請參考下列程式 *nK4XgD
d`,z4_
LEN; DIM M; EPD 10 8,IQ6Or|-2
PRV o)GesgxFa5
PWL 703.0 654.6 589.3 541.0 489.0 448.0 400.0 6:q,JB@i
'GlassX' 1.39671 1.39791 1.39988 1.40180 1.40451 1.40729 1.41178 Y!`pF
END !sp`oM
WL 656.3 587.6 486.1 pD!j#suMA
S 0 0 yIC
C8M
GL1 'GlassX' *'*,mfk[
S 0 0 8!b>[Nsc
GO CTe!jMZ=
^nd == (IND S1 W2) -Q/wW4dE=
^nF == (IND S1 W3) ::_bEmk
^nC == (IND S1 W1) 5IA3\G}+
WRI 'nd = ' ^nd DL#y_;#3_
WRI 'V = ' (^nd-1)/(^nF-^nC)