請參考下列程式 H?,Dv>.#*
CR;E*I${
LEN; DIM M; EPD 10 *9|p}q9n
PRV PXML1.r$Q
PWL 703.0 654.6 589.3 541.0 489.0 448.0 400.0 VVcli*
'GlassX' 1.39671 1.39791 1.39988 1.40180 1.40451 1.40729 1.41178 3i\Np =
END F'CJN$6Mw/
WL 656.3 587.6 486.1 hj{)6dBX%
S 0 0 Wf-XH|j[
GL1 'GlassX' KzQFG)q ,
S 0 0 lM#,i\8Q
GO ,v`03?8l(
^nd == (IND S1 W2) #XG3{MGX[
^nF == (IND S1 W3) @pH6FXVGzt
^nC == (IND S1 W1) ] ^?w0A
WRI 'nd = ' ^nd (?TK P 7
WRI 'V = ' (^nd-1)/(^nF-^nC)