# complex coordinate
#  2007.11.22
clear
reset
unset border
set xzeroaxis lt -1
set yzeroaxis lt -1
plot [0:2.2] 0.275*x lt 3 title ""
set yrange [-3.5:3.5]
set offsets 3.5,1.3,0,0
set size square
set size 0.5
set xtics axis
set ytics axis
set ytics ("3j" 3,"2j" 2, "j" 1, \
"-j" -1, "-2j" -2, "-3j" -3)
replot
set terminal png
set output "S_complex_coord.png"
replot

# polar coordinate
#  2007.11.24
clear
reset
set terminal x11
unset border
set xzeroaxis lt -1
set yzeroaxis lt -1
set parametric
plot [0:pi/3] 1.6*cos(t),\
1.6*sin(t) title ""
set arrow 1 from 0,0 \
to 2*cos(pi/3),2*sin(pi/3)  lt 7 lw 2
set xrange [-3.5:3.5]
set yrange [-3.5:3.5]
set size square
## set x-y axis to 0,0 
set xtics axis
set ytics axis
## change y axis string to complex code
set ytics ("3j" 3,"2j" 2, "j" 1, \
"-j" -1, "-2j" -2, "-3j" -3)
set size 0.6
replot
set terminal png
set output "S_polar_coord.png"
replot

# file name : polar_add_coord_main.gp
# polar coordinate
#  2007.11.30
# multiplotモードでは、terminalの切り替えができないので
# 繰り返しx11を見ながら設定を変更する場合
# multiplotから抜け出ておく
clear
reset
unset multiplot
set terminal png
set output "S_polar_coordadd.png"
set parametric
set multiplot
call "polar_add_call_func000.gp"
##
unset multiplot
set terminal x11
set multiplot
call "polar_add_call_func000.gp"

# polar coordinate add figure
#  2007.11.30
unset border
set xzeroaxis lt -1
set yzeroaxis lt -1
set xrange [-1.5:3.5]
set yrange [-1.5:3.5]
set size square
set size 0.6
set xtics axis
set ytics axis
## change y axis to complexs discriptin
set ytics ("3j" 3,"2j" 2, "j" 1, \
"-j" -1)
####
THETA_1=pi/4
THETA_2=pi/3
THETA_3=0.295*pi
ARW_DELTA=pi/32
THETA_1POS=0.4
THETA_2POS=0.6
THETA_3POS=0.8
R_1=1.5
R_2=2.0
R_3=3.7
X_1=sqrt(1.5)
Y_1=sqrt(1.5)
X_2=1.0
Y_2=sqrt(3.0)
X_3=X_1+X_2
Y_3=Y_1+Y_2
####
plot [0:THETA_1] THETA_1POS*cos(t),\
THETA_1POS*sin(t) title ""
unset xtics
unset ytics
unset xzeroaxis
unset yzeroaxis
plot [0:THETA_2] THETA_2POS*cos(t),\
THETA_2POS*sin(t) title ""
plot [0:THETA_3] THETA_3POS*cos(t),\
THETA_3POS*sin(t) title ""
##
set arrow 1 from THETA_1POS*cos(THETA_1-ARW_DELTA),\
THETA_1POS*sin(THETA_1-ARW_DELTA) \
to THETA_1POS*cos(THETA_1),THETA_1POS*sin(THETA_1) \
head size 0.16,15
##
set arrow 2 from THETA_2POS*cos(THETA_2-ARW_DELTA),\
THETA_2POS*sin(THETA_2-ARW_DELTA) \
to THETA_2POS*cos(THETA_2),THETA_2POS*sin(THETA_2) \
head size 0.16,15
##
set arrow 3 from THETA_3POS*cos(THETA_3-ARW_DELTA),\
THETA_3POS*sin(THETA_3-ARW_DELTA) \
to THETA_3POS*cos(THETA_3),THETA_3POS*sin(THETA_3) \
head size 0.16,15
##
set arrow 4 from 0,0 to X_1,Y_1 lt 3 lw 2
set arrow 5 from 0,0 to X_2,Y_2 lt 3 lw 2
set arrow 6 from 0,0 to X_3,Y_3 lt 3 lw 2
##
set arrow 7 from X_1,Y_1 to X_3,Y_3 nohead lt 0 lw 1
set arrow 8 from X_2,Y_2 to X_3,Y_3 nohead lt 0 lw 1
##
replot