新しく発言する EXIT インデックスへ

　　実行時内部エラーが発生します。 山中和義 2008/02/11 13:45:18 
　　└御報告ありがとうございます。深刻なバグの... 白石　和夫 2008/02/11 13:53:55 
　　　└2進モードと複素数モードで不具合が起こらな... 白石　和夫 2008/02/11 14:49:36 
　　　　└とりあえず，次のように規格の範囲内で使っ... 白石　和夫 2008/02/11 15:04:34 
　　　　　├少なくとも， 白石　和夫 2008/02/11 16:15:59  (修正1回)
　　　　　│└修正しました（とりえあずWindows版のみです... 白石　和夫 2008/02/12 08:50:18  (修正1回)
　　　　　│　└このプログラムでは内部エラーが発生します... 山中和義 2008/02/12 15:29:57  (修正1回)

Re: 修正しました（とりえあずWindows版のみです...	返事を書く ノートメニュー
山中和義 <drdlxujciw> 2008/02/12 15:29:57 ** この記事は1回修正されてます
このプログラムでは内部エラーが発生します。 !ライプニッツの定理 !　an=nC0*a0 + nC1*b1 + nC2*c2 + nC3*d3 + … OPTION ARITHMETIC rational OPTION BASE 0 LET maxlevel=10 SUB poly_mul(n,a(),b(), x()) !乗算x=a*b DIM xx(100) MAT xx=ZER(2*n) FOR i=n TO 0 STEP -1 FOR j=n TO 0 STEP -1 LET xx(i+j)=xx(i+j)+a(i)*b(j) !分配する NEXT j NEXT i MAT x=xx !copy it END SUB !その他 !!!DIM c1(100) !!!MAT c1=ZER(maxlevel) DIM c1(maxlevel) !<---------- これでエラーになる LET c1(0)=1 !定数１ SUB xxx(n,k, w()) !変数（n）の多項式 n*(n-1)*(n-2)*…*(n-k)/k! DIM T1(100) MAT T1=ZER(n) LET T1(1)=1 !n FOR p=1 TO k CALL poly_mul(n,w,T1, w) MAT T1=T1-c1 !n-p MAT PRINT T1 NEXT p END SUB !------------------------------ ここまでがサブルーチン LET k=3 !!!DIM w(100) !!!MAT w=ZER(maxlevel*2) DIM w(maxlevel*2) !MAT w=ZER LET w(0)=1 !1 CALL xxx(maxlevel,k, w) MAT w=(1/fact(k))*w !/k! MAT PRINT w END

　　　　　│　　└かなり深刻な問題があるようです。調査しま... 白石　和夫 2008/02/12 21:05:55 
　　　　　│　　　└原因が判明した（と思う）。 白石　和夫 2008/02/13 07:01:55  (修正1回)
　　　　　│　　　　└修正しました。 白石 和夫 2008/02/13 12:35:23 
　　　　　└FullBASICはDIM文などの宣言文を内部手続き... 白石　和夫 2008/02/11 20:58:33 

インデックスへ

EXIT