新しく発言する  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 
   ├!(つづき2) 会社員 2007/12/29 06:53:31 
   └!(つづき3) 会社員 2007/12/29 06:54:31 

Re: ただいま自力でプログラムを作ってますので  返事を書く  ノートメニュー
会社員 <qiekrrepwd> 2007/12/29 06:54:31
!(つづき3)
SUB JOB1 !捕食-生存・繁殖の処理
IF Cimi_N(0)-KIL_N(0)=>0 THEN
LET Cimi_Nokori=Cimi_N(0)-KIL_N(0)
ELSE
LET Cimi_Nokori=0
END IF

IF Cimi_N(0)-KIL_N(0)=>0 THEN
LET KIL_Nokori=Mlt_KIL*KIL_N(0)
ELSE
LET KIL_Nokori=Mlt_KIL*Cimi_N(0)
END IF

PRINT ""
PRINT "寄生虫";KIL_N(0);"匹に食べられて"
PRINT "セミは";Cimi_Nokori;"匹が生き残った"
PRINT "寄生虫は";KIL_Nokori;"匹まで増加した"
PRINT ""

PRINT "生き残ったセミは、";Mlt_cimi;"個/匹のたまごを産んだ"
LET Cimi_Egg=Mlt_cimi*Cimi_Nokori
PRINT "セミは、産んだ卵の数=";Cimi_Egg;"個"


PRINT "これを元に今年から冬眠するセミ・寄生虫を計算すると・・・"

FOR I=1 TO 20
IF Cimi_N(0)>0 THEN
LET Cimi_N_Egg(I) =INT(Cimi_Egg*(Cimi_N(I)/Cimi_N(0)))
ELSE
LET Cimi_N_Egg(I) =0
END IF
NEXT I




FOR I=1 TO 20
IF KIL_N(0)>0 THEN
LET KIL_N_Egg(I)=INT(KIL_Nokori*KIL_N(I)/KIL_N(0))
ELSE
LET KIL_N_Egg(I)=0
END IF
NEXT I

PRINT "1年セミ冬眠数=";Cimi_N_Egg(1)
PRINT "2年セミ冬眠数=";Cimi_N_Egg(2)
PRINT "3年セミ冬眠数=";Cimi_N_Egg(3)
PRINT "4年セミ冬眠数=";Cimi_N_Egg(4)
PRINT "5年セミ冬眠数=";Cimi_N_Egg(5)
PRINT "1年寄生虫冬眠数=";KIL_N_Egg(1)
PRINT "2年寄生虫冬眠数=";KIL_N_Egg(2)
PRINT "3年寄生虫冬眠数=";KIL_N_Egg(3)
PRINT "4年寄生虫冬眠数=";KIL_N_Egg(4)
PRINT "5年寄生虫冬眠数=";KIL_N_Egg(5)
END SUB


SUB Worm_die
! 寄生虫が土にも、地上にもいない場合 終了。

LET FLG=0
FOR J=1 TO 20
FOR I=1 TO J
IF KIL_N_Egg_Sleep(I,J)>0 THEN LET FLG=1 !寄生虫が生きていたら、フラグを立てる
NEXT I
NEXT J

IF FLG=0 THEN
PRINT "■■■■■■■■■■■■寄生虫は絶滅した!■■■■■■■■■■■"
STOP
END IF
END SUB



END


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