Grafiken und Statistik in R

"theta[ni=%8$2s]:%1$32.50f psi=%2$8.5f E*=%3$8.5f\n a*=%4$+-10.5e b*=%5$+-10.5e ←↪
c*=%6$+-10.5e d*=%7$+-10.5e cos=%9$8.5f sin=%10$8.5e",
theta[ni] , psi, E_Star, aStar[1], bStar[1], cStar[1], dStar[1], ni, cos( theta[ni] ←↪
), sin( theta[ni] )
),
"\n", sep=""
);
cat(
" a*=",An[1] ,"*", cos( theta[ni] ) ,"+", Bn[1] ,"*", sin( theta[ni] ),
"\n"
)
}
# m12_11 = cos(psi)*An[ni] + sin(psi)*Cn[ni]; m12_12 = cos(psi)*Bn[ni] + sin(psi)*Dn[ni];
# m12_21 = -sin(psi)*An[ni] + cos(psi)*Cn[ni]; m12_22 = -sin(psi)*Bn[ni] + cos(psi)*Dn[ni];
#
# m23_11 = m12_11 * cos(ni*theta[1]) + m12_12 * sin(ni*theta[1]); m23_12 = m12_11 * (-1) * ←↪
sin(ni*theta[1]) + m12_12 * cos(ni*theta[1]);
# m23_21 = m12_21 * cos(ni*theta[1]) + m12_22 * sin(ni*theta[1]); m23_22 = m12_21 * (-1) * ←↪
sin(ni*theta[1]) + m12_22 * cos(ni*theta[1]);
#
# aNorm[ni] = 1 / E_Star * m23_11; bNorm[ni] = 1 / E_Star * m23_12;
# cNorm[ni] = 1 / E_Star * m23_21; dNorm[ni] = 1 / E_Star * m23_22;
m1