17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
Nx=`grep "MTTNx " <$1_def.r | awk '{print $3}' | sed 's/;//'`
#Write some file headers
lang_header $1 switch m mttx '[mttxs]' > $1_switch.m
# This is the main transformation using gawk
awk '{
if (NR==1){
printf("for i=1:%s\n",Nx)
printf(" mttxs(i) = mttx(i);\n")
printf("end;\n\n")
}
printf("if (%s==0.0)\n mttxs(%s)=0.0;\nend;\n\n", $1,$2)
printf("if (%s<0.0)\n if (mttx(%s)<0.0)\n mttxs(%s)=0.0;\n end;\nend;\n", $1,$2,$2)
}' Nx=$Nx < $1_switch.txt >> $1_switch.m
|
|
|
>
>
|
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
Nx=`grep "MTTNx " <$1_def.r | awk '{print $3}' | sed 's/;//'`
#Write some file headers
lang_header $1 switch m mttx '[mttxs]' > $1_switch.m
# This is the main transformation using gawk
awk '{
if ($1=="#"){
printf("for i=1:%s\n", Nx)
printf(" mttxs(i) = mttx(i);\n")
printf("end;\n\n")
}
else{
printf("if (%s==0.0)\n mttxs(%s)=0.0;\nend;\n\n", $1,$2)
printf("if (%s<0.0)\n if (mttx(%s)<0.0)\n mttxs(%s)=0.0;\n end;\nend;\n", $1,$2,$2)
}
}' Nx=$Nx < $1_switch.txt >> $1_switch.m
|