[StarLogo/fujim2]
[ トップ ]   [ 一覧 | 単語検索 | 最終更新 | ヘルプ ]

CONTENTS

  • FrontPage
  • StarLogoについて
  • こんな人におすすめ
  • StarLogoのインストール
  • StarLogoの簡単な入門
  • StarLogo TIPS
  • StarLogoのサンプル解説
  • StarLogo関連リンク集
  • OpenStarLogo
  • StarLogoTNG
  • StarLogoNova
  • 実験・研究
  • Petit-Hack
  • 文献
  • ご意見ご感想など
  • このページについて

最新の10件
2019-01-27
  • FrontPage
  • StarLogo日本語化
  • Petit-Hack
  • このページについて
  • コメント/ご意見ご感想など
  • ご意見ご感想など
  • 文献
  • 実験・研究
  • こんな人におすすめ
  • StarLogoのインストール

Last-modified: 2019-01-27 (日) 01:45:41 (26d)
StarLogo_Reserch_Mandelbrot_Fine.PNG


  • GUI
    • 2005/06/17

†



↑

†

i * i = -1
↑

†

↑

†

↑

†

↑

†

↑

†

globals [ xmin ymin xmax ymax  itr colscale ]
↑

†

to minit 
	set itr 100
	set xmin (cenx - (rsize * 0.5)) / scale
  	set xmax (cenx + (rsize * 0.5)) / scale
  	set ymin (ceny - (rsize * 0.5)) / scale
  	set ymax (ceny + (rsize * 0.5)) / scale
end
↑

†

to mcalc

  ask-patches [

    let [:cx (xmin + xcor * (xmax - xmin)) ]
    let [:cy (ymin + ycor * (ymax - ymin)) ]

    let [:zx 0]
    let [:zy 0]
    let [:tx :cx]
    let [:ty :cy]
    let [:cnt 0]

    repeat itr [
      ;; z = z*z + c iteration
      set :tx (:zx * :zx) - (:zy * :zy)
      set :ty (:zx * :zy) + (:zy * :zx)
      set :zx (:zx + :tx + :cx)
      set :zy (:zy + :ty + :cy)

      let [ :a sqrt ((:zx * :zx) + (:zy * :zy))]

      if :a > 4.0 [ setpc  :cnt stop ]
      set :cnt (:cnt + 1)
    ]
    setpc black
 ]
end
↑

†

to mandelbrot
  ca
  minit
  mcalc
end
↑

GUI †

StarLogo_Reserch_Mandelbrot_Screen0.PNG

GUI̾
mandelbrot
cenx
ceny
rsize
↑

†

↑

†


↑

†

↑

2005/06/17 †

patches-own [ xmin ymin xmax ymax  itr colscale ]
globals [ xmin ymin xmax ymax  itr colscale ]
mcalc

Counter: 12, today: 1, yesterday: 1


添付ファイル: fileStarLogo_Reserch_Mandelbrot_Screen0.PNG 494件 [詳細] fileStarLogo_Reserch_Mandelbrot_Fine.PNG 491件 [詳細] fileStarLogo_Reserch_Mandelbrot_Panel.PNG 263件 [詳細]

トップ   一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2019-01-27 (日) 01:45:41 (26d)
Site admin: anonymous

PukiWiki 1.5.0 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL.
Based on "PukiWiki" 1.3 by yu-ji. Powered by PHP 5.6.21. HTML convert time: 0.119 sec.