Rekenen met VB

Status
Niet open voor verdere reacties.

phobia

Terugkerende gebruiker
Lid geworden
4 sep 2006
Berichten
1.777
Ik probeer de volgens de calculatie te doen
MsgBox(12 * Cos(20)) uitkomst zou 11.3 moeten zijn maar wordt 4.89
en
MsgBox(12 * Sin(20)) uitkomst zou 4.1 moeten zijn maar wordt 10.95

Wat doe ik fout?

Het zal wel een heel simpel iets zijn maar ik kom er met Google niet uit!
 
12 * Cos(20) is 4.89
12 * Sin(20) is 10.95

Calculatie via VB klopt, jouw eigen calculatie klopt niet.

Tardis
 
Tja, dat ligt er aan hoe je de berekening doet.
Radiaal: 12 * Cos(20) is 4.89
Graden: 12 * Cos(20) is 11.28
 
Dan maar even een juiste werkwijze

Gradiaal

12 * Cos(20) is 4.89
12 * Sin(20) is 10.95

Radiaal

12 * Cos((20*PI/180)) is 11.3
12 * Sin((20*PI/180)) is 4.1

Waarbij PI een constante is die je als volgt bepaalt:

Code:
Dim PI As Double
   
PI = 4 * Math.Atn(1)

Tardis
 
Waarbij PI een constante is die je als volgt bepaalt:

Code:
Dim PI As Double
   
PI = 4 * Math.Atn(1)

Of je gebruikt gewoon
[CPP]Math.PI[/CPP]
om het getal PI op te zoeken....

MartinJM

[edit]
Hier staat op de microsoft website dat het in radialen moet (hier alleen specifiek over de cosinus):
http://msdn.microsoft.com/en-us/library/system.math.cos.aspx
An angle, measured in radians.

Ik heb er laatst ook lang over gedaan om deze fout te vinden in mijn berekeningen...
[/edit]
 
Laatst bewerkt:
Thnx voor jullie hulp.
Het probleem was ook dat ik met graden rekende ipv radialen.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan