আমার বার্ষিক সুদের হার গণনা করতে সক্ষম হওয়া দরকার যেমন এক্সটেল এটিতে রেট নামক ফাংশনটিতে করে তবে আমি অন্তর্নিহিত গণিতটি কোথাও পাই না।
আমি সম্ভবত এটি রুবি বা অজগরের মধ্যে প্রয়োগ করতে চাই।
আমার বার্ষিক সুদের হার গণনা করতে সক্ষম হওয়া দরকার যেমন এক্সটেল এটিতে রেট নামক ফাংশনটিতে করে তবে আমি অন্তর্নিহিত গণিতটি কোথাও পাই না।
আমি সম্ভবত এটি রুবি বা অজগরের মধ্যে প্রয়োগ করতে চাই।
উত্তর:
আপনি রুবিতে এক্সোনিও গ্রন্থাগারটি ব্যবহার করতে পারেন:
https://github.com/Noverde/exonio
এটার মত:
Exonio.rate(number_of_periods, payment_per_period, present_value)
numpy.rate()
পিরিয়ড প্রতি সুদের হার গণনা করে।
rate(nper, pmt, pv, fv[, when, guess, tol, ...])
এখানে ভিবিএতে একটি খুব সাধারণ উদাহরণ :
Function MyRATE(nper As Integer, pmt As Double, pv As Double, Optional fv As Double = 0, _
Optional PaymentEnd As Integer = 0, Optional guess As Double = 0.1)
Dim a As Double, b As Double, c As Double ' coefficients of the equation
Dim R As Double, RTmp As Double, i As Integer
' Initialize coefficients and R
R = 1 + guess
a = (pmt * (1 - PaymentEnd) - pv) / (pv + pmt * PaymentEnd)
b = (fv - pmt * PaymentEnd) / (pv + pmt * PaymentEnd)
c = (-pmt * (1 - PaymentEnd) - fv) / (pv + pmt * PaymentEnd)
' Iterate
For i = 1 To 20
RTmp = R - (R ^ (nper + 1) + a * R ^ nper + b * R + c) / ((nper + 1) * R ^ nper + a * nper * R ^ (nper - 1) + b)
If Abs(RTmp - R) < 0.0000001 Then Exit For
R = RTmp
Next i
If i <= 20 Then
MyRATE = RTmp - 1
Else
MyRATE = "N/A" ' Must try another guess
End If
End Function
ফাংশনটি ব্যবহার করতে (একটি কার্যপত্রক ঘরে) :
তৃতীয় আর্গুমেন্টের বিয়োগ চিহ্ন এবং 12 দ্বারা গুণফল দুটি উল্লেখ করুন।