Functiile sin, cos, tan, etc. imi intorc valori in radiani
Last Updated: Jan 16 2007 17:16, Started by
pen
, Jan 13 2007 21:25
·
0
#1
Posted 13 January 2007 - 21:25
Private Sub cmdDurata_Click() Dim dblTimp As Double, dblUnghi As Double, dblDistTot As Double dblUnghi = txtUnghi dblDistTot = txtDistTot dblTimp = dblDistTot / 715 * Cos(dblUnghi) txtTimp = dblTimp End Sub Asta este procedura si este de fapt o formula de calcul al timpului. Unghiul se introduce, distanta este preluata si ea dar problema e ca functia cos imi intoarce valoarea in radiani si sunt si valori negative, asa ca se vede simplu din formula ca valoarea timpului va fi negativa. Ceea ce nu e bine. M-am uitat in help si am vazut ca se recomanda ca valoarea in grade sa fie inmultita cu 180/pi. Am incercat mai multe variante dar tot nu mi-a iesit (cos(dblUnghi*180/3.1415)). Pls help! ___ mod edit: foloseste tag-urile de cod Edited by RAZ, 17 January 2007 - 14:14. |
#2
Posted 14 January 2007 - 13:15
sin, cos, tg nu intorc valori in radiani - eventual parametrii trimisi trebuie sa fie radiani si nu grade.
Formulele sunt aceleasi ca cele invatate la scoala: x_degr = y_rad * (PI / 180) y_rad = x_degr * (180 / PI) (unde x_degr se refera la grade de arc - de la 0 la 360, si nu gradiani, de la 0 la 400) Parametrii e normal sa fie in radiani, asta fiind unitatea de masura folosita de obicei in matematica. |
#3
Posted 14 January 2007 - 19:17
ok. Am scris si eu ce ai zis tu. Dar deschide te rog un Ms Access, fa un form si adauga pe el un buton command si scrie asta:
Private Sub cmdDurata_Click() Dim dblTimp As Double, dblUnghi As Double dblUnghi = txtUnghi dblTimp = Cos(dblUnghi) txtTimp = dblTimp End Subtrebuie sa faci si un text txtUnghi in care sa introduci valoarea unghiului si un text txtTimp care sa afiseze valoarea calculului. apasa pe buton sa calculeze (de ex cos(4)) si vezi ca o sa obtii o valoare negativa. Dupa care deschide accessories-calculator, bifeaza sus "Radians" si calculeaza cos(4). O sa vezi ca obtii acelasi rezultat. ___ mod edit: foloseste tag-urile de cod Edited by RAZ, 17 January 2007 - 14:14. |
#4
Posted 14 January 2007 - 21:22
pen, on Jan 14 2007, 19:17, said: apasa pe buton sa calculeze (de ex cos(4)) si vezi ca o sa obtii o valoare negativa. Dupa care deschide accessories-calculator, bifeaza sus "Radians" si calculeaza cos(4). O sa vezi ca obtii acelasi rezultat. |
#5
Posted 16 January 2007 - 17:16
mda..iau valori pe -1, 1 dar asta e codomeniul. eu voiam sa calculez cos(4 grade). Si raspunsul este: cos (4*pi/180). Eu calculam cos(4*180/pi).
|
Anunturi
Bun venit pe Forumul Softpedia!
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users