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

　　素数セミのシナリオについて 会社員 2007/12/03 00:06:24 
　　├個人的見解：予定調和組み 小塚貞典 2007/12/03 16:21:09 
　　│└生成消滅演算子 小塚貞典 2007/12/13 23:08:22 
　　├蝉の生い立ちを考えると、 山中和義 2007/12/05 15:15:09 
　　│└つづき 山中和義 2007/12/05 15:15:57 
　　└ただいま自力でプログラムを作ってますので 会社員 2007/12/19 00:27:40 
　　　├途中ですが、中間報告です突然変異考慮して... 会社員 2007/12/29 06:50:22 
　　　├!（つづき） 会社員 2007/12/29 06:51:44 

Re: ただいま自力でプログラムを作ってますので	返事を書く ノートメニュー
会社員 <qiekrrepwd> 2007/12/29 06:51:44
!（つづき） !■■■■■■■■■■■■メインルーチン■■■■■■■■■■■■ FOR JJJ=1 TO 10000 ! JJJ年間のシュミレーション PRINT "" PRINT "■■■■■■■■■";JJJ;"年目■■■■■■■■■" CALL Born_SUM !生まれた合計の計算・表示 CALL STATUS_PRT !その年の発生状態 CALL JOB1 !捕食-生存・繁殖の処理 CALL Under_Grand1 !土の中の状態表示 CALL JOB_1year_SLEEP !１年経過処理(シフト) CALL Under_Grand2 !土の中の状態表示 CALL Worm_die !寄生虫が絶滅したか判定 NEXT JJJ PRINT "終了！" !■■■■■■■■■■■■メインルーチン■■■■■■■■■■■■ !------------------------------以下、サブルーチン---------------------------------------- SUB Under_Grand1 PRINT "■■■■■■■■ 夏 ■■■■■■■■■■" PRINT "-------------土の中の状態-----------------" FOR J=1 TO 5 FOR I=1 TO J IF I=1 THEN PRINT J;"年セミ 残り冬眠数=";I;"年";"---" !(残り冬眠年数,年ゼミ) ELSE PRINT J;"年セミ 残り冬眠数=";I;"年";Cimi_N_Egg_Sleep(I,J) !(残り冬眠年数,年ゼミ) END IF NEXT I NEXT J FOR J=1 TO 5 FOR I=1 TO J IF I=1 THEN PRINT J;"年寄生虫 残り冬眠数=";I;"年";"---" ELSE PRINT J;"年寄生虫 残り冬眠数=";I;"年";KIL_N_Egg_Sleep(I,J) END IF NEXT I NEXT J END SUB SUB JOB_1year_SLEEP !１年経過処理 PRINT "★冬を越す：冬眠期間が、１年減る ２０年→１９年 １９年→１８年・・・" FOR I=1 TO 20 !眠る期間が、１年づつ シフトさせる (残り冬眠年数,年ゼミ) FOR K=1 TO I LET Cimi_N_Egg_Sleep(K-1,I)=Cimi_N_Egg_Sleep(K,I) LET KIL_N_Egg_Sleep(K-1,I)=KIL_N_Egg_Sleep(K,I) NEXT K NEXT I PRINT "★新たな冬眠セミ・寄生虫を追加" FOR I=1 TO 20 LET Cimi_N_Egg_Sleep(I,I)=Cimi_N_Egg(I) LET KIL_N_Egg_Sleep(I,I)=KIL_N_Egg(I) NEXT I END SUB

　　　├!(つづき２) 会社員 2007/12/29 06:53:31 
　　　└!(つづき３) 会社員 2007/12/29 06:54:31 

インデックスへ

EXIT