Skip to content
Snippets Groups Projects
Commit 18720d9e authored by Jan Willem Thorbecke's avatar Jan Willem Thorbecke
Browse files

new script for f2backprop

parent 9d2795af
No related branches found
No related tags found
No related merge requests found
#!/bin/bash
# $1 input-file of backpropf2_sp.su format
export PATH=$HOME/OpenSource/bin/:$PATH:
#rm prop_movie.su
for fldr in $(seq 1 101);
do
times=$(echo "scale=2; -0.01*(${fldr}-101)" | bc -l)
echo " Adding ${fldr}-th frame"
suwind key=fldr min=$fldr max=$fldr < backpropf2_sp.su > neg.su
(( fldr = 101+(101-$fldr) ))
suwind key=fldr min=$fldr max=$fldr < backpropf2_sp.su > pos.su
susum neg.su pos.su >prop_frame.su
if [ "$fldr" != "201" ]; then
cat prop_movie.su prop_frame.su >temp_movie.su
mv temp_movie.su prop_movie.su
else
cp prop_frame.su prop_movie.su
fi
done
suchw <prop_movie.su key1=ntr key2=fldr b=1001 >temp_movie.su
susort <temp_movie.su -fldr tracf >prop_movie.su
rm neg.su pos.su temp_movie.su
n2=`surange <backpropf2_sp.su | grep tracf | awk '{print $3}'`
suxmovie <prop_movie.su loop=1 height=500 width=1000 title=%g n2=$n2
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment