Quelle: (c) Josef Raddy auf Youtube
wxMaxima: Raketenhoehe
Link zu Maxima Online: http://maxima-online.org/?inc=r476511951
(%i1) "*"/* Berechnung von
http://www.youtube.com/watch?v=MxstZ8UnpK4 */;
(%o1) *
(%i2) "*"/* Ergebnis der Messungen */;
(%o2) *
(%i3) alpha:45;
(%o3) 45
(%i4) alpha:alpha*%pi/180;
%pi
(%o4) ---
4
(%i5) beta:63.43;
(%o5) 63.43
(%i6) beta:beta*%pi/180;
(%o6) 0.35238888888889 %pi
(%i7) entfernung:44;
(%o7) 44
(%i8) "*"/* Gleichungen */;
(%o8) *
(%i9) g1:h/x=tan(beta);
h
(%o9) - = tan(0.35238888888889 %pi)
x
(%i10) g2:h/(x+entfernung)=tan(alpha);
h
(%o10) ------ = 1
x + 44
(%i11) "*"/* Lösung */;
(%o11) *
(%i12) l:solve([g1,g2],[h,x]),numer;
rat: replaced -1.999568208319 by -4631/2316 = -1.99956822107081
(%o12) [[h = 88.01900647948165, x = 44.01900647948164]]
(%i13) h:ev(h,l);
(%o13) 88.01900647948165
(%i14) "*"/* Ergebnisfeststellung */;
(%o14) *
(%i15) Raketenhoehe_in_m:floor(h*10+0.5)/10.0;
(%o15) 88.0
(%i16)
