[comp.sys.handhelds] aeronautics program

jn190068@longs.LANCE.ColoState.EDU (Jay Nestle) (05/19/91)

%%HP: T(3)A(D)F(.);
DIR
  Sl
    DIR
      ESland 'Sland
=1.69*W^2/(g*\Gr\oo*S*
CLmax*(D+\Gmr*(W-L)))
'
      Mpar
Library Data
      EQ { EV\oo
EDAVG ELAVG ESland
}
      EV\oo 'V\oo=.91*\v/
(2*W/(\Gr\oo*S*CLmax))'
      EDAVG 'D=.5*
\Gr\oo*V\oo^2*S*(CD0+(16*
h/b)^2/(1+(16*h/b)^
2)*(CLmax^2/(\pi*E*b^
2/S)))'
      ELAVG 'L=.5*
\Gr\oo*S*CLmax*V\oo^2'
    END
  SLO
    DIR
      Mpar
Library Data
      EQ
        \<< 'SLO'
MROOT
        \>>
      ESLO 'SLO=
1.44*W^2/(g*\Gr\oo*S*
CLmax*(T\oo-(D+\Gmr*(W-
L))))'
      ELAVG 'L=.5*
\Gr\oo*S*CLmax*V\oo^2'
      EDAVG 'D=.5*
\Gr\oo*V\oo^2*S*(CD0+(16*
h/b)^2/(1+(16*h/b)^
2)*(CLmax^2/(\pi*E*b^
2/S)))'
      EV\oo 'V\oo=.84*\v/
(2*W/(\Gr\oo*S*CLmax))'
    END
  E678 'CODMAX=(3*
CD0*\pi*E*AR)^.75/(4*
CD0)'
  E677 'CODMAX=(1/3
*CD0*E*\pi*AR)^.25/(4
/3*CD0)'
  E676 'CODMAX=(CD0
*E*AR*\pi)^.5/(2*CD0)
'
  E668 'R=2*\v/(2/(\Gr\oo
*S))*(1/ct)*(CL^(1/
2)/CD)*(W0^(1/2)-W1
^(1/2))'
  E663 'E=1/ct*(CL/
CD)*LN(W0/W1)'
  E643 'Vv=-(\v/(4*S^
-2*E^-2*W^4*AR^-2*
V\oo^-2/\Gr0/\Gr\oo*\pi^-2+2/
E*W^2/AR*V\oo^2/\Gr0*\Gr\oo
*CD0/\pi+.25*S^2*V\oo^6
/\Gr0*\Gr\oo^3*CD0^2)/W*
\Gr0^.5*\Gr\oo^-.5)+INV(W
)*V\oo/\Gr0*\Gr\oo*TA0'
  E659 'E=\Gn/c*(CL^(
3/2)/CD)*(2*\Gr\oo*S)^(
1/2)*(W1^(-1/2)-W0^
(-1/2))'
  E658 'R=\Gn/c*(CL/
CD)*LN(W0/W1)'
  E631 'PA=TA0*(\Gr\oo/
\Gr0)*V\oo'
  E637B 'PR=\v/(4*S^
-2*E^-2*W^4*AR^-2*
V\oo^-2/\Gr0/\Gr\oo*\pi^-2+2/
E*W^2/AR*V\oo^2/\Gr0*\Gr\oo
*CD0/\pi+.25*S^2*V\oo^6
/\Gr0*\Gr\oo^3*CD0^2)*\Gr0^
.5*\Gr\oo^-.5'
  E637 'PR=\v/(4*S^-2
*E^-2*W^4*AR^-2*V\oo^
-2/\Gr0/\Gr\oo*\pi^-2+2/E*W
^2/AR*V\oo^2/\Gr0*\Gr\oo*
CD0/\pi+.25*S^2*V\oo^6/
\Gr0*\Gr\oo^3*CD0^2)*\Gr0^
.5*\Gr\oo^-.5'
  EBS2 'D=2/S/E*W^2
/AR*V\oo^-2/\Gr\oo/\pi+.5*S
*V\oo^2*\Gr\oo*CD0'
  E615 'TR=(2/S/E*W
/AR*V\oo^-2/\Gr\oo/\pi+.5*S
/W*V\oo^2*\Gr\oo*CD0)*W'
  E612 'CD=CD0+(W/(
.5*\Gr\oo*V\oo^2*S))^2/(\pi
*E*AR)'
  E6.16 'CL=W/(.5*
\Gr\oo*V\oo^2*S)'
  EBS1 'CL0CD=INV(2
/S/E*W/AR*V\oo^-2/\Gr\oo/
\pi+.5*S/W*V\oo^2*\Gr\oo*
CD0)'
END