67 echo
"usage: mkgeo_couette <n>" >&2
75 bamgcad=${name}.bamgcad
76 echo
"! file \"$bamgcad\" created." >&2
78 cat > $bamgcad << EOF1
90 echo | awk -v n=$n -v radius_ratio=${radius_ratio}
'BEGIN {
91 pi = 3.14159265358979323846
93 for (i = 0; i < n; i++)
94 printf (
"%25.16g %25.16g 1\n", cos(2*i*pi/n), sin(2*i*pi/n))
95 for (i = 0; i < n; i++)
96 printf (
"%25.16g %25.16g 1\n", r*cos(2*i*pi/n), r*sin(2*i*pi/n))
99 cat >> $bamgcad << EOF2
104 echo | awk -v n=$n 'BEGIN {
105 for (i = 0; i < n; i++)
106 printf (
"%5d %5d 1\n", i+1, ((i+1)%n) + 1)
107 for (i = 0; i < n; i++)
108 printf (
"%5d %5d 2\n", n + ((i+1)%n) + 1, n+i+1)
111 cat >> $bamgcad << EOF3
118 command="bamg -g $bamgcad -o $bamg"
123 echo
"! file \"$dmn\" created." >&2
132 command=
"bamg2geo $bamg $dmn > $geo"