diff options
author | Wojtek Kosior <kwojtus@protonmail.com> | 2019-07-24 13:45:58 +0200 |
---|---|---|
committer | Wojtek Kosior <kwojtus@protonmail.com> | 2019-07-24 13:45:58 +0200 |
commit | 7e9efcd2e4446f6c51f457640d1a34f52d4b1ab3 (patch) | |
tree | fcef69ad6c4919943a2aa121f4309155fe0fef46 /run.sh | |
parent | ab59aec0a456d25bedac524be740937fbbe8d5cd (diff) | |
download | fortran-assignment3-7e9efcd2e4446f6c51f457640d1a34f52d4b1ab3.tar.gz fortran-assignment3-7e9efcd2e4446f6c51f457640d1a34f52d4b1ab3.zip |
correct polynomial order for gauss
Diffstat (limited to 'run.sh')
-rwxr-xr-x | run.sh | 7 |
1 files changed, 2 insertions, 5 deletions
@@ -41,10 +41,7 @@ IEND="1" SUBINTERVALS="1 4 16 64 128" -valid_poly_orders() { - if [ "$1" = newton-cotes ]; then seq 0 2; fi - if [ "$1" = gauss ]; then seq 1 3; fi -} +VALID_POLY_ORDERS="0 1 2" echo "\ # results of numerical integration of three different functions @@ -59,7 +56,7 @@ for FUNC in $FUNCTIONS; do for TYPE in $QUADRATURE_TYPES; do for N in $SUBINTERVALS; do - for P in `valid_poly_orders $TYPE`; do + for P in $VALID_POLY_ORDERS; do printf "%5s %12s %10s %12s " $FUNC $TYPE $P $N $COMMAND $TYPE $FUNC $IBEG $IEND $P $N done |