新しく発言する EXIT インデックスへ
SIN,COS倍角式
　　SIN,COS倍角式 しばっち 2008/02/08 20:45:02 
　　├EXTERNALSUBSINEX(F,COSA(),SINA(,),COSB()... しばっち 2008/02/08 20:45:37

Re: SIN,COS倍角式 返事を書く ノートメニュー
しばっち <dihjvcfsyu> 2008/02/08 20:45:37
EXTERNAL SUB SINEX(F,COSA(),SINA(,),COSB(),SINB(,),SINE(,))
OPTION BASE 0
DIM S(2)
LET S(2)=-1
LET S(0)=1
FOR M=0 TO F
FOR I=0 TO F
FOR J=0 TO F-I
LET SINE(M,I+J)=SINE(M,I+J)+SINA(M,I)*COSB(J)+COSA(J)*SINB(M,I)
NEXT J
NEXT I
NEXT M
FOR L=F TO 2 STEP -1
FOR I=0 TO F-2
FOR J=0 TO 2
LET SINE(I+J,L-2)=SINE(I+J,L-2)+SINE(I,L)*S(J)
NEXT J
LET SINE(I,L)=0
NEXT I
NEXT L
END SUB
 

　　│└!チェビシェフの多項式Tn(x)からｎ倍角の公... 山中和義 2008/02/09 15:09:21 
　　│　└山中和義さんご返事ありがとうございます。 しばっち 2008/02/10 17:34:35  (修正1回)
　　└!tanのｎ倍角の公式 山中和義 2008/02/10 17:34:41  (修正1回)
　　　└つづき 山中和義 2008/02/10 17:35:22  (修正1回)
インデックスへ EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。