# | Line 14 | Line 14 | set pict = "$4" | |
---|---|---|
14 | set zbf = "$5" | |
15 | set piopt = ($argv[6-]:q) | |
16 | cnt $n | rcalc -e `vwright i < $pict` \ | |
17 | < | -e "M:19;a:$a/2;d:$d;N:$n;" -e 'tmax:PI*a*(M+1)' \ |
17 | > | -e "M:$n/5+1;a:$a/2;d:$d;N:$n;" -e 'tmax:PI*a*(M+1)' \ |
18 | -e 't=tmax/N*($1+rand($1))' \ | |
19 | -e 'theta=2*M*PI/(M-1)*(M-sqrt(M*M-(M-1)/(PI*a)*t))' \ | |
20 | -e 'r=a*(1-(M-1)/(2*M*M*PI)*theta)' \ |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |