請參考下列程式 -H|!KnR
d@b2XCh<K
LEN; DIM M; EPD 10 qwn EVjf
PRV J*6B~)Sp@
PWL 703.0 654.6 589.3 541.0 489.0 448.0 400.0 xbHI4A"Z
'GlassX' 1.39671 1.39791 1.39988 1.40180 1.40451 1.40729 1.41178 L`9.Gf
END :2wT)w z
WL 656.3 587.6 486.1 JP^x]t:
S 0 0 C}L2'l,
GL1 'GlassX' +Oo-8f*
S 0 0 KilN`?EJ
GO a^[s[j#^,
^nd == (IND S1 W2) "Wb KhE
^nF == (IND S1 W3) CC$rt2\e
^nC == (IND S1 W1) 8f%OPcr&
WRI 'nd = ' ^nd t!B,%,Dp
WRI 'V = ' (^nd-1)/(^nF-^nC)