Revision 11 examples/Test/Dep_tscan_movie

Dep_tscan_movie (revision 11)
51 51
 unset key
52 52
 set term $DefTerm
53 53
EOF
54
let ItM=ItMax-1
54
let ItM=ItMax-2
55 55
for i in `seq 0 $ItM`
56 56
  do
57 57
 xyz2scan ${Nom}${ExtF}.${i} > /dev/null
58 58
 mv Scan.dat ${Nom}_${i}.dat
59
 echo "plot \"HCN_irc.dat\" u 1:3 w l lw 2" >> ${NGplot}
59
 echo "plot \"HCN_irc.dat\" u 1:3 w l ls 1" >> ${NGplot}
60 60
 if [ "$PES" != "" ]; then
61
  echo "replot \"HCN_PES_2D.dat\" u 1:2 w l 2, \"HCN_PES_2D.dat\" u 1:(-\$2) w l 2,\"HCN_PES_2D.dat\" u 1:(360-\$2) w l 2" >> ${NGplot}
61
  echo "replot \"HCN_PES_2D.dat\" u 1:2 w l ls 2, \"HCN_PES_2D.dat\" u 1:(-\$2) w l ls 2,\"HCN_PES_2D.dat\" u 1:(360-\$2) w l ls 2" >> ${NGplot}
62 62
 fi
63 63
 if [ -s ${Nom}_spline.${i} ]; then
64
 echo "replot \"${Nom}_${i}.dat\" u 1:3 w p ls 1" >> ${NGplot}
65
 echo "replot \"${Nom}_spline.${i}\" u 2:4 w l ls 1" >> ${NGplot}
64
 echo "replot \"${Nom}_${i}.dat\" u 1:3 w p ls 5" >> ${NGplot}
65
 echo "replot \"${Nom}_spline.${i}\" u 2:4 w l ls 5" >> ${NGplot}
66 66
 elif [  -s ${Nom}_dbgtgt_${i}.dat ]; then
67
 echo "replot \"${Nom}_${i}.dat\" u 1:3 w p ls 1" >> ${NGplot}
68
 echo "replot \"${Nom}_dbgtgt_${i}.dat\" u 2:(\$4*180./pi) w l ls 1" >> ${NGplot}
67
 echo "replot \"${Nom}_${i}.dat\" u 1:3 w lp ls 5" >> ${NGplot}
68
 echo "replot \"${Nom}_dbgtgt_${i}.dat\" u 2:(\$4*180./pi) w l ls 4" >> ${NGplot}
69 69
 else
70
 echo "replot \"${Nom}_${i}.dat\" u 1:3 w lp ls 1" >> ${NGplot}
70
 echo "replot \"${Nom}_${i}.dat\" u 1:3 w lp ls 5" >> ${NGplot}
71 71
fi
72 72
 if [ "$Tgt" != "" ]; then
73
  echo "replot \"${Nom}_tgt_${i}.dat\" u 1:3 w l" >> ${NGplot}
73
  echo "replot \"${Nom}_tgt_${i}.dat\" u 1:3 w l ls 4" >> ${NGplot}
74 74
 fi
75 75
 IMov=`echo $i | awk '{ It="000" $1; l=length(It); print substr(It,l-2,3)}' `
76 76
 cat <<EOF >> ${NGplot}
......
82 82
 set term $DefTerm
83 83
EOF
84 84
 done
85
let i=ItMax
85
let i=ItMax-1
86 86
 awk -f $WDir/Path2dat.awk  ${Nom}.${i} > ${Nom}_${i}.dat
87
 echo "plot \"HCN_irc.dat\" u 1:3 w l lw 2" >> ${NGplot}
87
 echo "plot \"HCN_irc.dat\" u 1:3 w l ls 1" >> ${NGplot}
88 88
 if [ "$PES" != "" ]; then
89
  echo "replot \"HCN_PES_2D.dat\" u 1:2 w l 2, \"HCN_PES_2D.dat\" u 1:(-\$2) w l 2,\"HCN_PES_2D.dat\" u 1:(360-\$2) w l 2" >> ${NGplot}
89
  echo "replot \"HCN_PES_2D.dat\" u 1:2 w l ls 2, \"HCN_PES_2D.dat\" u 1:(-\$2) w l ls 2,\"HCN_PES_2D.dat\" u 1:(360-\$2) w l ls 2" >> ${NGplot}
90 90
 fi
91 91
 echo "replot \"${Nom}_${i}.dat\" u 1:3 w lp ls 1" >> ${NGplot}
92 92
 IMov=`echo $i | awk '{ It="000" $1; l=length(It); print substr(It,l-2,3)}' `

Also available in: Unified diff