Danke @STARGÅTE
Nachtrag:
Durch den Hinweis auf den neuen PB-Befehl in 4.5: "Radian()" hat @STARGÅTE auf einen grundsätzlichen
Fehler aufmerksam gemacht, der auch in den Foren immer wieder auftaucht:
Man vergißt die Umrechnung der Bogenmaße.
Hier nun der Code nach den Formeln, wie er auch in den Lehrbücher steht:
Code: Alles auswählen
a=200 ;Ankathete
b=400 ;Gegenkathete
;c=447 ;Hypotenuse
;- die Formeln
c=Sqr((a*a)+(b*b))
Debug "Die Länge der Hypotenuse ist : "+ Str(c)
alpha.f = (ATan(a/b)*360)/(2*#PI)
Debug "Der Winkel alpha ist : " +StrF(alpha) + " Grad"
b=Sqr((c*c)-(a*a))
Debug "Die Länge der Gegenkathete ist: "+ Str(b)
bwinkel.f=2*#PI*alpha/360 ;ausführliche Bogenmaßumrechnung
a=200
c=a/Sin(bwinkel)
Debug "Die Länge der Hypotenuse ist : "+ Str(c)
b=400
c=b/Cos(bwinkel)
Debug "Die Länge der Hypotenuse ist : "+ Str(c)
;neuere PB-Version vereinfacht die Sache
pbwinkel.f=Radian(alpha) ;ab PB 4.5
a=200
c=a/Sin(pbwinkel)
Debug "Die Länge der Hypotenuse ist : "+ Str(c)
b=400
c=b/Cos(pbwinkel)
Debug "Die Länge der Hypotenuse ist : "+ Str(c)