gmacro
note
note
note Berechnet obere alpha-Quantile bei der t-Verteilung;
note Freiheitsgrade in Spalte C1;
note hier: alpha=0.05
note

name c1 'n' c2 't-quantil'
note Ist Spalte C1 besetzt mit den gewünschten Freiheitsgraden (y/n)?
yesno k10
if k10 = 0
  exit
endif

name k1 'alpha'
let 'alpha' = 0.05
let k2 = count(c1)     # k2 = Anzahl der Elemente in C1
name k3 'i' k4 'n_i'
do 'i' = 1:k2
  let 'n_i' = c1('i')  # n_i = aktuelle Anz. der FG  
  let k5 = 1-'alpha'
  InvCDF k5 k6;
  T 'n_i'.             # k6 = oberes alpha-Quantil bei t-Vert. mit n_i FG
  let c2('i') = k6
enddo
endmacro