Cos Function
একটি কোনের কোসাইন গণনা করে থাকে। কোনটি রেডিয়ানে উল্লেখ করে থাকে। ফলাফল -1 এবং 1 এর মধ্যে একটি মান হয়।
আলফা কোন ব্যবহার করে, কোসাইন ফাংশনের সাহায্যে কোন সংশ্লিষ্ট বাহুর দৈর্ঘ্য, সমকোনী ত্রিভুজের অতিভুজের দৈর্ঘ্য দ্বরা ভাগের অনুপাত গণনা করা হয়।
Cos(Alpha) = Adjacent/Hypotenuse
সিনট্যাক্স:
Cos (Number)
প্রদান মান:
ডাবল
প্যারামিটার:
সংখ্যা: সংখ্যাসূচক এক্সপ্রশেশন যা একটি কোন রেডিয়ানে উল্লেখ করে থাকে এবং যার কোসাইন গণনা করতে চান।
ডিগ্রি থেকে রেডিয়ানে রূপান্তর করার জন্য, ডিগ্রিকে pi/180 দ্বারা গুণ করা হবে। রেডিয়ান থেকে ডিগ্রিতে রূপান্তর করার জন্য, রেডিয়ানকে 180/pi দ্বারা গুণ করা হবে।
degree=(radian*180)/pi
radian=(degree*pi)/180
3.14159... পূর্ণ সংখ্যা মান সহ নির্দিষ্ট বৃত্তাকার ধ্রুবক হলো পাই।
উদাহরণ:
REM নিচের উদাহরণটি একটি সমকোনী ত্রিভুজের জন্য এর ইনপুট অনুমোদন করে থাকে
REM পরস্পরছেদী এবং কোন (ডিগ্রিতে) এবং অতিভুজের দৈর্ঘ্য গণনা করা হয়:
Sub ExampleCosinus
REM rounded Pi = 3.14159
Dim d1 As Double, dAngle As Double
d1 = InputBox$ (""Enter the length of the adjacent side: ","Adjacent")
dAngle = InputBox("Enter the angle Alpha (in degrees): ","Alpha")
Print "The length of the hypothenuse is"; (d1 / cos (dAngle * Pi / 180))
End Sub