1;
function ret=plane_vec(phi)
ret=[cos(phi);sin(phi);0];
endfunction
function ret=PosG(rg,wgh)
ret=rg*[plane_vec(pi/6+wgh),plane_vec(pi/6-wgh),plane_vec(-pi/2+wgh),plane_vec(-pi/2-wgh),plane_vec(2/3*pi+pi/6+wgh),plane_vec(2/3*pi+pi/6-wgh)];
endfunction
function ret=Mfg(psi,theta,phi)
ret=[cos(theta)*cos(psi), cos(theta)*sin(psi), -sin(theta);sin(phi)*sin(theta)*cos(psi)-cos(phi)*sin(psi), sin(phi)*sin(theta)*sin(psi)+cos(phi)*cos(psi), sin(phi)*cos(theta);cos(phi)*sin(theta)*cos(psi)+sin(phi)*sin(psi), cos(phi)*sin(theta)*sin(psi)-sin(phi)*cos(psi), cos(phi)*cos(theta)];
endfunction
function ret=PosS(rs,wsh,T,R)
M=Mfg(R(1),R(2),R(3))';
ret= [T+M*rs*plane_vec(pi/2-wsh),T+M*rs*plane_vec(-pi/6+wsh),T+M*rs*plane_vec(-pi/6-wsh),T+M*rs*plane_vec(-pi/6+wsh-2/3*pi),T+M*rs*plane_vec(-pi/6-wsh-2/3*pi),T+M*rs*plane_vec(pi/2+wsh)];
endfunction
PosS(0.1,0.2,[0;0;-3],[0;0;0])
|
|
^
line 0: unknown or ambiguous terminal type; type just 'set
terminal' for a list
line 0: No terminal defined
error: print: no format specified
error: evaluating if command near line 207, column 5
error: evaluating if command near line 205, column 3
error: called from `print' in file
`/usr/share/octave/3.0.1/m/plot/print.m'
function ret=plane_vec(phi)
^
line 0: unknown or ambiguous terminal type; type just 'set terminal' for a list
line 0: No terminal defined
error: print: no format specified
error: evaluating if command near line 207, column 5
error: evaluating if command near line 205, column 3
error: called from `print' in file `/usr/share/octave/3.0.1/m/plot/print.m'
function ret=plane_vec(phi)
|
