root / utils / AnaPathrel @ 6
Historique | Voir | Annoter | Télécharger (1,83 ko)
| 1 | 1 | equemene | #!/bin/bash |
|---|---|---|---|
| 2 | 4 | pfleura2 | if [ $# -lt 1 ]; then |
| 3 | 4 | pfleura2 | echo "Use: $0 File.out" |
| 4 | 1 | equemene | exit |
| 5 | 1 | equemene | fi |
| 6 | 1 | equemene | |
| 7 | 1 | equemene | Fout=$1 |
| 8 | 4 | pfleura2 | ItMax=`grep MAXCYC $Fout | tail -1 | awk '{print $3}'`
|
| 9 | 4 | pfleura2 | Nom=`grep PATHNAME $Fout | tail -1 | awk '{print $3}'`
|
| 10 | 4 | pfleura2 | NGeomF=`grep NGEOMF $Fout | tail -1 | awk '{print $3}'`
|
| 11 | 1 | equemene | |
| 12 | 4 | pfleura2 | |
| 13 | 1 | equemene | export LANG=C |
| 14 | 1 | equemene | |
| 15 | 1 | equemene | echo "#ItMax=$ItMax" |
| 16 | 1 | equemene | echo "#Nom=$Nom" |
| 17 | 1 | equemene | echo "#NGeomF"=$NGeomF |
| 18 | 1 | equemene | |
| 19 | 1 | equemene | if [ -s ${Nom}_cart.0 ]; then
|
| 20 | 1 | equemene | Ext=_cart |
| 21 | 1 | equemene | elif [ -s ${Nom}.0 ]; then
|
| 22 | 1 | equemene | Ext="" |
| 23 | 1 | equemene | else |
| 24 | 1 | equemene | echo "Cannot find ${Nom}.0 nor ${Nom}_cart.0: ERROR"
|
| 25 | 1 | equemene | exit |
| 26 | 1 | equemene | fi |
| 27 | 1 | equemene | echo "Using files ${Nom}${Ext}.XX"
|
| 28 | 1 | equemene | |
| 29 | 1 | equemene | if [ -s $Nom.datl ]; then |
| 30 | 1 | equemene | it=1 |
| 31 | 1 | equemene | while [ -s $Nom.datl_${it} ]
|
| 32 | 1 | equemene | do |
| 33 | 1 | equemene | let it=it+1 |
| 34 | 1 | equemene | done |
| 35 | 1 | equemene | echo "Moving $Nom.datl into $Nom.datl_${it}"
|
| 36 | 1 | equemene | mv $Nom.datl $Nom.datl_${it}
|
| 37 | 1 | equemene | fi |
| 38 | 1 | equemene | echo "Creating $Nom.datl" |
| 39 | 1 | equemene | |
| 40 | 1 | equemene | for i in `seq 0 $ItMax` |
| 41 | 1 | equemene | do |
| 42 | 1 | equemene | xyz2path ${Nom}${Ext}.$i
|
| 43 | 1 | equemene | cat Scan.dat >> $Nom.datl |
| 44 | 1 | equemene | echo " " >> $Nom.datl |
| 45 | 1 | equemene | echo " " >> $Nom.datl |
| 46 | 1 | equemene | done |
| 47 | 1 | equemene | |
| 48 | 1 | equemene | E0=`head -1 Scan.dat | awk '{print $NF}' `
|
| 49 | 1 | equemene | |
| 50 | 1 | equemene | cat << EOF > ${Nom}_l.gplot
|
| 51 | 1 | equemene | #!/usr/bin/gnuplot -persist |
| 52 | 1 | equemene | set pointsize 2 |
| 53 | 1 | equemene | Eref=$E0 |
| 54 | 1 | equemene | Conv=627.51 |
| 55 | 1 | equemene | EOF |
| 56 | 1 | equemene | |
| 57 | 1 | equemene | for i in `seq 1 $ItMax` |
| 58 | 1 | equemene | do |
| 59 | 1 | equemene | echo "plot \"$Nom.datl\" i 0 u 1:(\$2-Eref)*Conv w lp " >> ${Nom}_l.gplot
|
| 60 | 1 | equemene | echo "replot \"$Nom.datl\" i $i u 1:(\$2-Eref)*Conv w lp " >> ${Nom}_l.gplot
|
| 61 | 1 | equemene | echo "pause -1" >> ${Nom}_l.gplot
|
| 62 | 1 | equemene | done |
| 63 | 1 | equemene | echo "pause -1" >> ${Nom}_l.gplot
|
| 64 | 1 | equemene | |
| 65 | 1 | equemene | cat << EOF > ${Nom}_l2.gplot
|
| 66 | 1 | equemene | #!/usr/bin/gnuplot -persist |
| 67 | 1 | equemene | set pointsize 2 |
| 68 | 1 | equemene | Eref=$E0 |
| 69 | 1 | equemene | Conv=627.51 |
| 70 | 1 | equemene | EOF |
| 71 | 1 | equemene | |
| 72 | 1 | equemene | echo "plot \"$Nom.datl\" i 0 u 1:(\$2-Eref)*Conv w lp " >> ${Nom}_l2.gplot
|
| 73 | 1 | equemene | for i in `seq 1 $ItMax` |
| 74 | 1 | equemene | do |
| 75 | 1 | equemene | echo "replot \"$Nom.datl\" i $i u 1:(\$2-Eref)*Conv w lp " >> ${Nom}_l2.gplot
|
| 76 | 1 | equemene | done |
| 77 | 1 | equemene | |
| 78 | 1 | equemene | cat << EOF > ${Nom}_l3.gplot
|
| 79 | 1 | equemene | #!/usr/bin/gnuplot -persist |
| 80 | 1 | equemene | set pointsize 2 |
| 81 | 1 | equemene | Eref=$E0 |
| 82 | 1 | equemene | Conv=627.51 |
| 83 | 1 | equemene | EOF |
| 84 | 1 | equemene | |
| 85 | 1 | equemene | echo "plot \"$Nom.datl\" i 0 u 0:(\$2-Eref)*Conv w lp " >> ${Nom}_l3.gplot
|
| 86 | 1 | equemene | for i in `seq 1 $ItMax` |
| 87 | 1 | equemene | do |
| 88 | 1 | equemene | echo "replot \"$Nom.datl\" i $i u 0:(\$2-Eref)*Conv w lp " >> ${Nom}_l3.gplot
|
| 89 | 1 | equemene | done |
| 90 | 1 | equemene | |
| 91 | 1 | equemene | chmod u+x ${Nom}_l.gplot ${Nom}_l2.gplot ${Nom}_l3.gplot |