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

多項式展開

　　多項式展開 しばっち 2008/03/22 21:42:39  (修正1回)
　　├係数が指定できると 島村1243 2008/03/23 08:57:56 
　　│└返事 しばっち 2008/03/23 09:52:22 
　　│　└失礼しました 島村1243 2008/03/23 13:43:12  (修正1回)
　　└!多変数多項式の演算（加減乗算） 山中和義 2008/03/23 21:13:46 
　　　└つづき 山中和義 2008/03/23 21:14:43 
　　　　└つづき 山中和義 2008/03/23 21:17:07
Re: つづき 返事を書く ノートメニュー
山中和義 <drdlxujciw> 2008/03/23 21:17:07
つづき



LET N=26 !変数の数

DIM p$(500) !p=a+b+c
LET p$(0)="3" !項の数
!　　　　　"abcdefghijklmnopqrstuvwxyz:係数"
LET p$(1)="10000000000000000000000000:1" !a
LET p$(2)="01000000000000000000000000:1" !b
LET p$(3)="00100000000000000000000000:1" !c

DIM q$(500) !q=1
LET q$(0)="1"
LET q$(1)="00000000000000000000000000:1" !1　※定数項


DIM r$(500)
!CALL PolySub(p$,q$, r$)
!MAT PRINT p$
!MAT PRINT q$
!MAT PRINT r$
!CALL PolyDisplay(r$)
!PRINT

FOR x=1 TO 9 !べき乗の計算
PRINT "(";
CALL PolyDisplay(p$)
PRINT ")^";STR$(x)

CALL PolyMul(p$,q$, r$)
CALL PolyDisplay(r$) !結果を表示
PRINT

CALL PolyCopy(r$, q$) !次へ
NEXT x


END

インデックスへ EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。