請參考下列程式 qR4-~p8
eXkpU7w;
LEN; DIM M; EPD 10 ,5x9o"N!
PRV \3x+Z!
PWL 703.0 654.6 589.3 541.0 489.0 448.0 400.0 =$_kkVQ$
'GlassX' 1.39671 1.39791 1.39988 1.40180 1.40451 1.40729 1.41178 HYNp vK
END oYWHO<b
WL 656.3 587.6 486.1 OSwum!hzN
S 0 0 w=~X 6[+3
GL1 'GlassX' CH6;jo]
S 0 0 8w~X4A,
GO ]hbrzvo
^nd == (IND S1 W2) T|5uywA|
^nF == (IND S1 W3) cHnd
gUW]
^nC == (IND S1 W1) SOS|3q_`
WRI 'nd = ' ^nd _iu^VK,}
WRI 'V = ' (^nd-1)/(^nF-^nC)