請參考下列程式 mzoNXf:x
].,TSnb
LEN; DIM M; EPD 10 Pln*?o
PRV R$xk cg2(
PWL 703.0 654.6 589.3 541.0 489.0 448.0 400.0 \y*,N^w u
'GlassX' 1.39671 1.39791 1.39988 1.40180 1.40451 1.40729 1.41178 ;rJ
END D |BP]j}6
WL 656.3 587.6 486.1 9'S~zG%{
S 0 0 eOI#T'5
GL1 'GlassX' Q`4]\)Dp
S 0 0 x[i Et%_
GO 8G0DuMI5
^nd == (IND S1 W2) DZ9qIc}Y
^nF == (IND S1 W3) TPeBb8v8D
^nC == (IND S1 W1) :1JICxAU
WRI 'nd = ' ^nd c(y~,hN&p
WRI 'V = ' (^nd-1)/(^nF-^nC)