integral.dec

来自「没有说明」· DEC 代码 · 共 108 行

/*
** integral.dec - Integration of functions.
** (C) Copyright 1988-1996 by Aptech Systems, Inc.
** All Rights Reserved.
**
** Global variable definitions for procedures INTGRATx, INTQUADx.
*/

declare matrix _intord = 12;   /* Order of integration */
declare matrix _intrec = 0;    /* Recursion level      */

declare matrix _intq2[2,2] = -0.577350269189626 1
                               0.577350269189626 1;

declare matrix _intq3[3,2] = -0.774596669241483 0.555555555555556
                               0                 0.888888888888889
                               0.774596669241483 0.555555555555556;

declare matrix _intq4[2,2] = 0.339981043584856 0.652145154862546
                              0.861136311594053 0.347854845137454;

declare matrix _intq6[3,2] = 0.238619186083197 0.467913934572691
                              0.661209386466265 0.360761573048139
                              0.932469514203152 0.171324492379170;

declare matrix _intq8[4,2] = 0.183434642495650 0.362683783378362
                              0.525532409916329 0.313706645877887
                              0.796666477413627 0.222381034453374
                              0.960289856497536 0.101228536290376;

declare matrix _intq12[6,2] = 0.125233408511469 0.249147045813403
                               0.367831498998180 0.233492536538355
                               0.587317954286617 0.203167426723066
                               0.769902674194305 0.160078328543346
                               0.904117256370475 0.106939325995318
                               0.981560634246719 0.047175336386512;

declare matrix _intq16[8,2] = 0.0950125098376374 0.1894506104550685
                               0.2816035507792589 0.1826034150449236
                               0.4580167776572274 0.1691565193950025
                               0.6178762444026437 0.1495959888165767
                               0.7554044083550030 0.1246289712555339
                               0.8656312023878317 0.0951585116824928
                               0.9445750230732326 0.0622535239386479
                               0.9894009349916499 0.0271524594117541;

declare matrix _intq20[10,2] = 0.076526521133497 0.152753387130725
                                0.227785851141645 0.149172986472603
                                0.373706088715419 0.142096109318382
                                0.510867001950827 0.131688638449176
                                0.636053680726515 0.118194531961518
                                0.746331906460150 0.101930119817240
                                0.839116971822218 0.083276741576704
                                0.912234428251325 0.062672048334109
                                0.963971927277913 0.040601429800386
                                0.993128599185094 0.017614007139152;

declare matrix _intq24[12,2] = 0.064056892862605 0.127938195346752
                                0.191118867473616 0.125837456346828
                                0.315042679696163 0.121670472927803
                                0.433793507626045 0.115505668053725
                                0.545421471388839 0.107444270115965
                                0.648093651936975 0.097618652104113
                                0.740124191578554 0.086190161531953
                                0.820001985973902 0.073346481411080
                                0.886415527004401 0.059298584915436
                                0.938274552002732 0.044277438817419
                                0.974728555971309 0.028531388628933
                                0.995187219997021 0.012341229799987;

declare matrix _intq32[16,2] = 0.048307665687738 0.096540088514727
                                0.144471961582796 0.095638720079274
                                0.239287362252137 0.093844399080804
                                0.331868602282127 0.091173878695763
                                0.421351276130635 0.087652093004403
                                0.506899908932229 0.083311924226946
                                0.587715757240762 0.078193895787070
                                0.663044266930215 0.072345794108848
                                0.732182118740289 0.065822222776361
                                0.794483795967942 0.058684093478535
                                0.849367613732569 0.050998059262376
                                0.896321155766052 0.042835898022226
                                0.934906075937739 0.034273862913021
                                0.964762255587506 0.025392065309262
                                0.985611511545268 0.016274394730905
                                0.997263861849481 0.007018610009470;

declare matrix _intq40[20,2] = 0.038772417506050 0.077505947978424
                                0.116084070675255 0.077039818164247
                                0.192697580701371 0.076110361900626
                                0.268152185007253 0.074723169057968
                                0.341994090825758 0.072886582395804
                                0.413779204371605 0.070611647391286
                                0.483075801686178 0.067912045815233
                                0.549467125095128 0.064804013456601
                                0.612553889667980 0.061306242492928
                                0.671956684614179 0.057439769099391
                                0.727318255189927 0.053227846983936
                                0.778305651426519 0.048695807635072
                                0.824612230833311 0.043870908185673
                                0.865959503212259 0.038782167974472
                                0.902098806968874 0.033460195282547
                                0.932812808278676 0.027937006980023
                                0.957916819213791 0.022245849194166
                                0.977259949983774 0.016421058381907
                                0.990726238699457 0.010498284531152
                                0.998237709710559 0.004521277098533;