31 lines
785 B
Plaintext
31 lines
785 B
Plaintext
|
set term aqua enhanced font "Helvetica, 20"
|
||
|
|
id1='sc15MA'
|
||
|
|
id2='mid12co'
|
||
|
|
#dir=id.'/'
|
||
|
|
dir='../EL_data/'
|
||
|
|
fn='f7.'.id1.'_'.id2.'.txt'
|
||
|
|
set title id1."- mid row co"
|
||
|
|
|
||
|
|
al=0
|
||
|
|
|
||
|
|
set xrange[0:1]
|
||
|
|
set yrange[*:*]
|
||
|
|
set ytics 10
|
||
|
|
set xlabel "{/Symbol r}"
|
||
|
|
set ylabel "I_{cd} (kA/MW)"
|
||
|
|
unset key
|
||
|
|
set style line 1 lt 1 lc rgb "red" lw 1
|
||
|
|
set style line 2 lt 2 lc rgb "red" lw 1
|
||
|
|
set style line 3 lt 1 lc rgb "blue" lw 1
|
||
|
|
set style line 4 lt 2 lc rgb "blue" lw 1
|
||
|
|
|
||
|
|
|
||
|
|
plot dir.fn u 10:($8>0 && $5>=0.95 && (abs($4))>1 ? (abs($4)):1/0) w l ls 1, dir.fn u 10:($8<0 && $5>=0.95 && (abs($4))>1? (abs($4)):1/0) w l ls 2,\
|
||
|
|
dir.fn u 10:($3==al && $5>=0.95 ? (abs($4)):1/0) w p pt 7 lc rgb "black"
|
||
|
|
|
||
|
|
set term postscript eps enhanced font "Helvetica, 20"
|
||
|
|
set termoption dash
|
||
|
|
set output id1.'-'.id2."_icdrho.eps"
|
||
|
|
replot
|
||
|
|
reset
|