nang: number of angles between 0-90 degrees
dang: defines angles for calculation (kleinste Einheit)

For j: 1 — nang
    theta = (j-1) * nang
    mu_j = cos(theta)
where dang = 0.5*Pi * 1/(nang-1)

mxnang: maximum allowable “nang”

Possibility I:
mu = Table[0,{mxnang}]
For [i=o, i<= nang, theta = (i-1)*dang; mu[[i+1]] = cos(theta); i++]

Possibility II:
mu = Table[theta=(i-1)*dang; cos(theta), {i,0,nang}]
mu = (theta=(i-1)*dang; cos(theta))&/@ Range[0,nang]
mu = Array[theta=(i-1)*dang; cos(theta)&, nang, 0]