Révision 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)}' `
|
Formats disponibles : Unified diff