## 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