%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:73
File Name:TEMPE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\If A\>=82345
\Then \(-)205.05+.00164A\->A
\Else \If A\>=36152
\Then \(-)70\->A
\Else 59-.00356A\->A
\IfEnd
\IfEnd
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:78
File Name:TEMP
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\If A\<=11019
\Then 288.05-.00649A\->A
\Else \If A\<=25098
\Then 216.5\->A
\Else 141.44+.00299A\->A
\IfEnd
\IfEnd
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:158
File Name:UTTEMP
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ViewWindow 0,100000,10000,\(-)75,75,25
\For 0\->B \To 100000 \Step 1000
B\->A
\Prog "TEMPE"
A\->C
.3048B\->A
\Prog "TEMP"
A\->D
(D-273.15)*1.8+32\->E
\If \Abs (C-E)\>=1
\Then "ERROR"\Disp\IfEnd
\Plot B,C
\If B\<>0
\Then \Line
\IfEnd
\Next 
"DONE"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:12
File Name:VSOUNDT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
20.01\sqrtA\->A
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:21
File Name:VSOUNDH
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Prog "TEMP"
\Prog "VSOUNDT"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:100
File Name:UTVSOUND
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ViewWindow 0,100000,10000,650,800,50
\For 0\->B \To 100000 \Step 1000
.3048B\->A
\Prog "VSOUNDH"
2.237A\->C
\Plot B,C
\If B\<>0
\Then \Line
\IfEnd
\Next 

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:118
File Name:PRESSH
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
A\->B
\Prog "TEMP"
\If B\<=11019
\Then 1.19752\EE\(-)8(A+.01667)^5.256\->A
\Else \If B\<=25098
\Then \e^x(11.76-1.575\EE\(-)4B)\->A
\Else 9.903\EE29A^\(-)11.388\->A
\IfEnd
\IfEnd
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:137
File Name:PRESSE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
A\->B
\Prog "TEMPE"
\If B\>=82345
\Then 51.97((A+459.7)/389.98)^\(-)11.388\->A
\Else \If B\>=36152
\Then 473.1\e^x(1.73-.000048B)\->A
\Else 2116((A+459.7)/518.6)^5.256\->A
\IfEnd
\IfEnd
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:155
File Name:UTPRESSH
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ViewWindow 0,100000,10000,\(-)1,1.2,1
\For 0\->C \To 100000 \Step 1000
C\->A
\Prog "PRESSE"
A/144\->D
.3048C\->A
\Prog "PRESSH"
1.45\EE\(-)4A\->E
\If \Abs (D-E)\>=.01D
\Then "ERROR"\Disp\IfEnd
\Plot C,\log D
\If C\<>0
\Then \Line
\IfEnd
\Next 
"DONE"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:43
File Name:DENSH
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
A\->C
\Prog "PRESSH"
A\->B
C\->A
\Prog "TEMP"
.0035B/A\->A
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:105
File Name:UTDENSH
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ViewWindow 0,100000,10000,\(-)5,\(-)2,1
\For 0\->D \To 100000 \Step 1000
.3048D\->A
\Prog "DENSH"
1.941\EE\(-)3A\->A
\Plot D,\log A
\If D\<>0
\Then \Line
\IfEnd
\Next 
"DONE"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:29
File Name:DRAG
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
B\->D
\Prog "DENSH"
.0065673AD\x^2\->A
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:119
File Name:UTDRAG1
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ViewWindow 0,100000,10000,0,25,5
\For 50\->E \To 250 \Step 50
\For 0\->F \To 100000 \Step 1000
.3048F\->A
.447E\->B
\Prog "DRAG"
.2248A\->A
\Plot F,A
\If F\<>0
\Then \Line
\IfEnd
\Next 
\Next 
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:135
File Name:UTDRAG2
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ViewWindow 0,40000,10000,0,400,100
170\->E
\For 0\->F \To 40000 \Step 1000
\While 1
.3048F\->A
.447E\->B
\Prog "DRAG"
.2248A\->A
\If A\>=12
\Then \Break
\IfEnd
E+1\->E
\WhileEnd
\Plot F,E
\If F\<>0
\Then \Line
\IfEnd
\Next 
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:432
File Name:DROP
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ViewWindow 0,100000,10000,0,800,100
0\->A~Z
30480\->F
.5\->H
\While F>0
F\->A
G\->B
\Prog "DRAG"
A-53.38\->I
I/5.443\->I
\If I>N
\Then I\->N
F\->O
E\->P
G\->Q
\IfEnd
.5IH\x^2+GH+F\->J
IH+G\->I
E+H\->E
I\->G
J\->F
\If \Abs G>K
\Then \Abs G\->K
F\->L
E\->M
\IfEnd
\If T=0
\Then F\->A
\Prog "VSOUNDH"
\If \Abs G>A
\Then F\->R
E\->S
\Abs G\->T
\IfEnd
\IfEnd
\Plot 3.281F,2.237\Abs G
\If E\<>0
\Then \Line
\IfEnd
\WhileEnd
"TIME SEC"
E\Disp"V MPH"
2.237G\Disp"VMAX"
2.237K\Disp"HVMAX FT"
3.281L\Disp"TVMAX"
M\Disp"AMAX MPHPS"
2.247N\Disp"HAMAX"
3.281O\Disp"TAMAX"
P\Disp"VAMAX"
2.237Q\Disp"THYP"
S\Disp"HHYP"
3.281R\Disp"VHYP"
2.237T\Disp"DONE"
%End