forked from erosita/uds
14 lines
366 B
Prolog
14 lines
366 B
Prolog
pro rate
|
|
ar=[[1.8847140728347272e-13, 0.37631887197494507],$
|
|
[1.521645609807299e-13, 0.40992528200149536],$
|
|
[4.915687878270888e-13, 1.0217742919921875],$
|
|
[1.7903951117830771e-13, 0.282895565032959],$
|
|
[6.886249544234846e-14, 0.21058528125286102],$
|
|
[9.49530897031588e-14, 0.2018834501504898]]
|
|
|
|
for i=0L,5 do begin
|
|
print, i, (ar[1,i])/(ar[0,i])
|
|
endfor
|
|
|
|
end
|