66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
my @args = @_;
my $retval = '';
if ($#args == 18-1)
{
my ($component,
$out_causality,
$out_port,
$x1,
$causality1,
$port1,
$y1,
$causality2,
$port2,
$x2,
$causality3,
$port3,
$y2,
$causality4,
$port4,
$psi,
$causality5,
$port5) = @args;
# [ x2 ] [ +cos(psi) +sin(psi) 0 ] [ x1 ]
# [ y2 ] = [ -sin(psi) +cos(psi) 0 ] [ y1 ]
# [ z2 ] [ 0 0 1 ] [ z1 ]
# for reverse transformation (x2->x1) use psi=-psi
# note that cos(-psi)=cos(psi) and sin(-psi)=-sin(psi)
|
|
<
<
|
<
<
|
<
<
|
<
<
|
<
<
<
|
|
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
my @args = @_;
my $retval = '';
if ($#args == 18-1)
{
my ($component,
$out_causality, $out_port,
$x1, $causality1, $port1,
$y1, $causality2, $port2,
$x2, $causality3, $port3,
$y2, $causality4, $port4,
$psi, $causality5, $port5) = @args;
# [ x2 ] [ +cos(psi) +sin(psi) 0 ] [ x1 ]
# [ y2 ] = [ -sin(psi) +cos(psi) 0 ] [ y1 ]
# [ z2 ] [ 0 0 1 ] [ z1 ]
# for reverse transformation (x2->x1) use psi=-psi
# note that cos(-psi)=cos(psi) and sin(-psi)=-sin(psi)
|