HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2012
0518
ひよこ日食シュミレーション7解決


ひよこ

リンク

2012/5/18(Fri) 21:28:47|NO.46696

5/21日食シュミレーションを作ってみました。
初めてd3moduleを使ったけど使い方はこれでいいのかな?


#include "d3m.hsp"
d3mkparticle 0,255,255,100
d3setcam 1000,0,1000,0,0,0
boxf

per=97;食分初期値%
dx=0;月の描画位置補正値
color 255,255,255
font "MS ゴシック",18
mes "月の大きさ: 太陽の %"
pos 215,0:input per,35
pos 0,25:mes "中心偏差: -100〜 〜+100"
pos 215,25:input dx,35
pos 0,50:button "start",*start

sunr=150;太陽の直径

sunx=320-sunr/2;太陽の描画位置
suny=240-sunr/2

*start
color :boxf 0,70,640,480
monr=0.01*per*sunr ;月の直径
monstx=320-monr/2+110;月の描画start位置
monsty=240-monr/2-110;月の描画start位置
dr=monr-sunr ;月と太陽の直径差
about=10
repeat 250
redraw 0

color :boxf 0,70,640,480
monx=monstx-cnt+dx
mony=monsty+cnt+dy
zure=abs((monx-dx/2)-(320-monr/2))
if abs(zure)<=about :wait 10;:if per>=100:d3particle 0,0,0,0 , (about-zure)*50;コロナ

if monx<=sunx & monx+monr >=sunx+sunr & mony<=suny & mony+monr>=suny+sunr{

wait 10

d3particle 0,0,0,0 , (about-zure)*55;コロナ

}

color 255,255,100
circle sunx,suny,sunx+sunr,suny+sunr
color ;,255

circle monx,mony,monx+monr,mony+monr
redraw 1

if monx-dx/2=320-monr/2:wait 100;中心
title ""+cnt
wait 10

loop


stop




この記事に返信する


大富豪A

リンク

2012/5/19(Sat) 23:01:15|NO.46717

「シュミレーション」とは - シミュレーション(simulation)のありがちな覚え間違いです。
僕も、も間違っていたので、気をつけてくださいね。



大富豪A

リンク

2012/5/19(Sat) 23:01:55|NO.46718

あっ、「も」2回つけてた、、



(´ω`)

リンク

2012/5/20(Sun) 14:48:14|NO.46729

これはいい日食。
この勢いで、グランドクロス(惑星全直列)シミュレーターをいつかぜひ。(*´ω`*)



bensan

リンク

2012/5/20(Sun) 19:50:50|NO.46766

これは見てて面白いですね。
パラメータが設定しやすくていいと思います。
現実でも見れたらいいなあ。



流星群

リンク

2012/5/20(Sun) 20:00:40|NO.46768

みなさんがいいっぽいかんじでかいているので
実行させていただきました。
感想:
これはすごい。
面白いです。
いよいよ明日ですね



M

リンク

2012/5/20(Sun) 23:31:46|NO.46780

うん、これは面白いね。
方角を固定して、月と太陽それぞれの動きを追えれば、かなり実用的になりそう。
(改良するにも、あと6時間ちょっとしかないのですが)



RelayTiming

リンク

2012/5/25(Fri) 16:15:37|NO.46851

面白いですね。
色が変わる様にするともっと良くなるかも。



ONION software Copyright 1997-2021(c) All rights reserved.