物理のおおまかな話/跳ねるボール

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
|
|
!
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

;
;	バウンドサンプル(v2.61)
;(2007/02/)
;
 
#include "mp001.as"
 
title "バウンドサンプル"
;	 初期化
px = 100 : py = 100    ;座標
vx = 0 : vy = 0        ;速度
ax = 0 : ay = 0        ;加速度
g = 1    ;重力加速度
 
*main
    ;
    ;	 画面の初期化
    ;
    DrwCls 17,255,255,255        ;16.67ms (= 1/60 秒)
 
    ;
    ;	パラメータ表示
    ;
    color 0,0,0
    mes "座標( "+px+", "+py+" )"
    sqrt vx*vx + (vy*vy) : vv = stat/1    ;現在の速度
    mes "速度 v = " + vv + " ("+vx+", "+vy+")"
    if vy = 0 : mes "スペースキーを押してください。"
 
    gosub *inkey    ;	 キー入力
 
    ;
    ;	 物理計算
    ;
    ax = 0 : ay = g    ;重力
 
    vx = vx + ax    ;速度の変化
    vy = vy + ay
 
    px = px + vx    ;座標
    py = py + vy
 
    if py>400{    ;地面衝突
        vy = vy * -4/5    ;跳ね返り係数 -4/5
        if (-g<vy)&(vy<0) : vy = 0
        ay = 0
        py = 400
    }
 
    ;
    ;	 自機の描画
    ;
    boxf px, py, px+10, py+10
    ;	 速度ベクトル描画
    color 255,0,0
    DrwArrow px+5,py+5, vx*5+px+5, vy*5+py+5
 
goto *main
 
stop
 
;	 キー入力
*inkey
    stick key, 5
    if key&16 : vy=vy-20    ;ジャンプ
    if key&1 : vx-=2
    if key&4 : vx+=2
    if key&128 : end
    return
 

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
!
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

//  バウンドサンプル(v3.00, 2007/2/16)
//  モジュール不要, 解説記事と一部適切に対応していません。
#module
#deffunc DrwArrow int x1, int y1, int x2, int y2
    line x1, y1, x2, y2
 
    x = x1 - x2
    y = y1 - y2
    x3 = (x - y) / 7 + x2
    y3 = (y + x) / 7 + y2
    line x2, y2, x3, y3
 
    x3 = (x + y) / 7 + x2
    y3 = (y - x) / 7 + y2
    line x2, y2, x3, y3
return
#global
#const G 1              // 重力加速度
#const GROUND 400       // 地面の位置
#const RAD 6            // 球の半径
#const HANE -0.8        // 跳ね返り係数
    title "重力加速度サンプル"
 
;	初期化
    px = 100 : py = 100 // 座標
    vx = 0 : vy = 0     // 速度
    ax = 0 : ay = G     // 加速度（不変）
 
*main
    redraw 0
    //  画面の初期化
    color 255, 255, 255 : boxf
    gosub *inkey                // キー入力
    gosub *calc                 // 物理計算
    gosub *draw                 // 描画
    await 17
    redraw 1
goto *main
 
stop
 
*inkey
    stick key, 5
    if key & 128 : end
    if key & 16 : vy -= 20       // ジャンプ
    vx += 2*((key>>2&1) - (key&1))
    return
 
*calc
    vx += ax : vy += ay         // 速度の変化
    py += vy                    // 座標の変化
    px = limit(px + vx, RAD, ginfo_winx - RAD)
 
    if py > GROUND - RAD {      // 地面に衝突
        vy = int(HANE * sqrt(2 * ay * (GROUND - RAD  - py) + vy * vy))
        py = GROUND - RAD
    }
    return
 
*draw
    //  パラメータ表示
    color : pos 0, 0
    mes "座標( " + px + ", " + py + " )"
    mes "速度 v = " + sqrt(vx*vx + vy*vy)   // 現在の速度
    if vy = 0 : mes "スペースキーを押してください。"
 
    //  地面の描画
    color 192, 192, 192
    boxf ginfo_winx, ginfo_winy, 0, GROUND
 
    //  自機の描画
    color
    circle px - RAD, py - RAD, px + RAD, py + RAD
 
    //  速度ベクトル描画
    color 255 : DrwArrow px, py, vx * 5 + px, vy * 5 + py
    return