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]
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment