Subversion Repositories wimsdev

Rev

Rev 13593 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 13593 Rev 14850
Line 53... Line 53...
53
slib_a=cos($slib_phi); slib_b=sin($slib_phi); slib_c=cos($slib_theta); slib_d=sin($slib_theta);\
53
slib_a=cos($slib_phi); slib_b=sin($slib_phi); slib_c=cos($slib_theta); slib_d=sin($slib_theta);\
54
P = Mat([slib_a*slib_c,-slib_d,-slib_b*slib_c;slib_a*slib_d,slib_c,-slib_b*slib_d;slib_b,0,slib_a]);\
54
P = Mat([slib_a*slib_c,-slib_d,-slib_b*slib_c;slib_a*slib_d,slib_c,-slib_b*slib_d;slib_b,0,slib_a]);\
55
vecextract(mattranspose(P^(-1)*M+T),[2,3])
55
vecextract(mattranspose(P^(-1)*M+T),[2,3])
56
 
56
 
57
slib_axe=!exec pari vecextract(mattranspose( $slib_size*P^(-1)+matrix(3,3,i,j,slib_G[i]+0.5)),[2,3])
57
slib_axe=!exec pari vecextract(mattranspose( $slib_size*P^(-1)+matrix(3,3,i,j,slib_G[i]+0.5)),[2,3])
58
 
-
 
59
 
-
 
60
 
58
 
61
slib_axe=!translate internal ; to $\
59
slib_axe=!translate internal ; to $\
62
$ in $slib_axe
60
$ in $slib_axe
63
!distribute line $slib_axe into slib_ox, slib_oy, slib_oz
61
!distribute line $slib_axe into slib_ox, slib_oy, slib_oz
64
 
62