HSPプログラミング 斜方投射アニメーション

質問

http://ja.wikipedia.org/wiki/%E6%96%9C%E6%96%B9%E6%8A%95%E5%B0%84
の公式を使ってアニメーションを作ろうとしているのですが、正しく動きません。プログラムは、
celload "素材のファイル名",1　；画像IDを指定
title "球投げ"
screen 0,760,400　　　　　　　；ウィンドウサイズ指定（表示）
pos 0,368　　　　　　　　　　　；素材の座標
gmode 2　　　　　　　　　　　　；素材をコピー
celput 1　　　　　　　　　　　；素材を貼り付け　
t=0 :s=3.14/4 :g=-1/2　　　　；計算に使う、定数を宣言
*hata1
redraw 0
x=5*t*cos(s)　　　　　；X=Votcosθを使って計算（初速＝５ドット）
y=g*9.8*t*t+5*t*sin(s)　；y=-1/2gtの２乗＋Votsinθ+Yo(Yo＝０）
y=y-y-y
y=y+368
　　　　pos x,y　　　　　　　　；座標を指定
gmode 2　　　　　　　　；素材をコピー
celput 1　　　　　　　；素材を貼り付け
t=t+1　　　　　　　　　；経過時間を更新
wait 10
if y>=0　:goto *hata1　；素材の位置が、0以下になったら終了
stop

です。
どこが間違っているか教えてください。

回答No.1

osamuy · ベストアンサー

1)数値変数について、double型とint型の使い分けができてない模様。
2)redraw 0で画面更新を抑止しているけど、解除してないような。
3)初速や経過時間の分解能などが適切でない(メートルや秒で計算しているけど、y<0となるtを考えると、1秒ずつの計算ではあんまり面白くない)。
――とかでしょうか。HSPほとんど使ったこと無いので間違ってるかもしれませんが(添付画像のコードを書くのに1日かかってる)。

お礼

回答ありがとうございました。
おかげで、プログラムが、動くようになりました。

補足

回答ありがとうございます。
残っているなら、画像を大きく写すか文章にするか、してくれませんか？
できるならでいいです。お願いします。