input moments.sh
show.pol
input moments.sh
show.pol
print e1 e2
input moments.sh
show.pol
print theta e1 e2
set fr = f0
rotate fr 190
tv -n tv fr -0.01 0.5
rotate fr 90
set fr = f0
rotate fr 90
tv -n tv fr -0.01 0.5
set fr = f0
rotate fr 95
tv -n tv fr -0.01 0.5
rotate fr 85
tv -n tv fr -0.01 0.5
set fr = f0
rotate fr 85
tv -n tv fr -0.01 0.5
star fr {fr[][0]/2} {fr[0][]/2} 71
echo star fr {fr[][0]/2} {fr[0][]/2} 71
buff
input moments.sh; test.rot
tv fr -0.01 0.2
set fr = f0
rotate fr 5
tv fr
input moments.sh; test.rot
tv fr -0.01 0.2
tv f0
set fr = f0
rotate fr 2
tv fr
input moments.sh; test.rot; tv f0
input moments.sh; test.rot; tv f0
tv fr
input moments.sh; test.rot; tv -ch 1 f0; tv -ch 2 fr
input moments.sh; test.rot; tv -ch 1 f0; tv -ch 2 fr
input moments.sh; test.rot; tv -ch 1 f0; tv -ch 2 fr
input moments.sh; test.rot; tv -ch 1 f0; tv -ch 2 fr
resize 800 800
set fr = f0
rotate fr 10
tv -ch 2 fr
input moments.sh; test.rot; tv -ch 1 f0; tv -ch 2 fr
input moments.sh; test.rot; tv -ch 1 f0; tv -ch 2 fr
input moments.sh; test.rot; tv -ch 1 f0; tv -ch 2 fr
buffers
echo {fr[][0]/2} {fr[0][]/2}
$x = 360 - 720/2
$y = 360 - 720/2
$xo = 360 - 720/2
$yo = 360 - 720/2
$x = $xo*dcos(2) + $yo*dsin(2)
$y = $yo*dcos(2) - $xo*dsin(2)
echo $x
echo $y
echo $xo
echo quit
echo {dcos(2)} {dsin(2)}
input moments.sh; test.rot; tv -ch 1 f0; tv -ch 2 fr
echo {fr[][0]/2}  {fr[0][]/2}
input moments.sh; test.rot; tv -ch 1 f0; tv -ch 2 fr
header
head f0
head fr
show.pol
lim -n 2 theta e1; clear; box; plot theta e1
lim -n 2 theta e2; clear; box; plot theta e2
input moments.sh; show.pol
lim -n 2 theta e2; clear; box; plot theta e2
plot -c blue theta e1
vstat e1
tv -n 0 -0.01 0.2 f0
tv -n 0 f0 -0.01 0.2
input moments.sh; show.pol
tv -n 0 f0 -0.01 0.2
input moments.sh; show.pol
tv -n 0 f0 -0.01 0.2
vstat e1
vstat e2
