請參考下列程式 ;NBT 4
r.9 $y/5
LEN; DIM M; EPD 10 T6;>O`B.r
PRV _En]@xK3&
PWL 703.0 654.6 589.3 541.0 489.0 448.0 400.0
+*<K"H|,
'GlassX' 1.39671 1.39791 1.39988 1.40180 1.40451 1.40729 1.41178 ?f9$OLEB
END o;%n,S8J|^
WL 656.3 587.6 486.1 EtJD'&
S 0 0 }\U0[x#q
GL1 'GlassX' b~F!.^7Q
S 0 0 `TOX1cmw
GO wqf& i^_
^nd == (IND S1 W2) ynx WQ%d(`
^nF == (IND S1 W3) %@o&*pF^,
^nC == (IND S1 W1) > e;]mU`,
WRI 'nd = ' ^nd FU'^n6[<B
WRI 'V = ' (^nd-1)/(^nF-^nC)