請參考下列程式 !Sy'Z6%f
;&t1FH#=
LEN; DIM M; EPD 10 ^&Rxui
PRV Fh!!T%5>C
PWL 703.0 654.6 589.3 541.0 489.0 448.0 400.0 i1_>>49*
'GlassX' 1.39671 1.39791 1.39988 1.40180 1.40451 1.40729 1.41178 LPm# 3U
END }:c,SO!
WL 656.3 587.6 486.1 MTFVnoZMQ_
S 0 0 :v
WYII7
GL1 'GlassX' }T1Xds8w)t
S 0 0 ]9yA0,z/
GO YK=#$,6
^nd == (IND S1 W2) <DlanczziF
^nF == (IND S1 W3) L_zmU_zD
^nC == (IND S1 W1) (J;zk b
WRI 'nd = ' ^nd *l'$pJ X
WRI 'V = ' (^nd-1)/(^nF-^nC)