编程C,C ++,Java,PHP,Ruby,图灵,VB
计算机科学加拿大 
编程C,C ++,Java,PHP,Ruby,图灵,VB  

用户名:   Password: 
 登记登记   
 请帮忙...... turing !!
指数 -> 一般讨论;一般交流
查看上一个主题 可打印的版本下载主题订阅本主题私人信息刷新页面 查看下一个主题
作者 信息
CoolGirl97.




邮政发布: 星期四2013年6月8:33 AM  帖子主题:请帮助...... turing !!

嘿......我有这个作业,我有一个盒子,当按下箭头键时需要在所有方向上旋转。也需要在盒子里面移动......

我有盒子旋转,试图让球绕着弹跳......但我认为我的编码有点问题......因为它不起作用..

你可以看看下面,并提供帮助吗?太感谢了!!

---------- - ------------------------------------------------------------------- ---------------------------------------------------------------------------- ---------------------------------------------------------------------------- ---------------------

%得到了多维数据集
屏幕(“图形:1280,1080”)


颜色%变量
var盒子,背景:int

大小的%变量
var s:真实

%透视相关变量
var theta,phi,psi:真实

%位置相关变量
var x_cm,y_cm:真实

%Cube相关变量
var cube_x,cube_y,cube_z,vort_x,vort_y,vort_z,p_x,p_y:array 1 .. 8的真实

%-------------------------------------------------- ---------------------------------------------

const delta_time:= 1
const time_delay:= 10
const delta_theta:= 0.1
const delta_phi:= 0.1
const delta_psi:= 0.1

背景:= 0
框:= 7
S:= 200

Const ZV:= 1500

var ch:string(1)

X_CM:= 640
Y_CM:= 600

PHI:= 0
PSI:= 0
θ= 300

var t:真实

const l:= 75
Const W:= 20
t := 0

%-------------------------------------------------- ---------------------------------------------

cube_x(1):= + s
cube_y(1):= + s
cube_z(1):= + s

cube_x(2):= -S
cube_y(2):= -S
cube_z(2):= -s

cube_x(3):= -S
Cube_y(3):= + s
cube_z(3):= + s

cube_x(4):= + s
cube_y(4):= -S
cube_z(4):= -S

cube_x(5):= -S
Cube_y(5):= -S
cube_z(5):= + s

cube_x(6):= + s
Cube_y(6):= + s
cube_z(6):= -S

cube_x(7):= + s
Cube_y(7):= -S
cube_z(7):= + s

cube_x(8):= -s
cube_y(8):= + s
cube_z(8):= -S

%-------------------------------------------------- ---------------------------------------------

draw.fillbox(0,0,maxx,maxy,background)

%-------------------------------------------------- ---------------------------------------------

%旋转公式
环形

for i : 1 .. 8
vort_x(i):=(cos(theta)* cos(phi)* cos(psi) - sin(phi)* sin(psi))* cube_x(i) -
(COS(θ)* cos(phi)* sin(psi)+ sin(phi)* cos(psi))* cube_y(i)+
SIN(θ)* cos(phi)* cube_z(i)
vort_y(i):=(cos(theta)* sin(phi)* cos(psi)+ cos(phi)* sin(psi))* cube_x(i) -
(cos(θ)* sin(phi)* sin(psi) - cos(phi)* cos(psi))* cube_y(i)+
罪(θ)* sin(phi)* cube_z(i)
vort_z(i):= -sin(θ)* cos(psi)* cube_x(i)+
罪(θ)* sin(psi)* cube_y(i)+
cos(θ)* cube_z(i)
end for

for i : 1 .. 8
p_x(i):= vort_x(i)/(1 - vort_z(i)/ zv)
P_Y(i):= vort_y(i)/(1 - vort_z(i)/ zv)
end for

%-------------------------------------------------- ---------------------------------------------

%Cube Illustration
窗口(圆形(x_cm + p_x(1)),圆形(y_cm + p_y(1)),圆形(x_cm + p_x(3)),圆形(y_cm + p_y(3)),box)
窗口(圆形(x_cm + p_x(1)),圆形(y_cm + p_y(1)),圆形(x_cm + p_x(6)),圆形(y_cm + p_y(6)),box)
窗口(圆形(x_cm + p_x(1)),圆形(y_cm + p_y(1)),圆形(x_cm + p_x(7)),圆形(y_cm + p_y(7)),box)
窗口(圆形(x_cm + p_x(2)),圆形(y_cm + p_y(2)),圆形(x_cm + p_x(4)),圆形(y_cm + p_y(4)),框)
窗口(圆形(x_cm + p_x(2)),圆形(y_cm + p_y(2)),圆形(x_cm + p_x(5)),圆形(y_cm + p_y(5)),box)
横线(圆形(x_cm + p_x(2)),圆形(y_cm + p_y(2)),圆形(x_cm + p_x(8)),圆形(y_cm + p_y(8)),box)
窗口(圆形(x_cm + p_x(3)),圆形(y_cm + p_y(3)),圆形(x_cm + p_x(5)),圆形(y_cm + p_y(5)),box)
窗口(圆形(x_cm + p_x(3)),圆形(y_cm + p_y(3)),圆形(x_cm + p_x(8)),圆形(y_cm + p_y(8)),box)
窗口(圆形(x_cm + p_x(4)),圆形(y_cm + p_y(4)),圆形(x_cm + p_x(6)),圆形(y_cm + p_y(6)),box)
横线(圆形(x_cm + p_x(4)),圆形(y_cm + p_y(4)),圆形(x_cm + p_x(7)),圆形(y_cm + p_y(7)),box)
窗口(圆形(x_cm + p_x(5)),圆形(y_cm + p_y(5)),圆形(x_cm + p_x(7)),圆形(y_cm + p_y(7)),框)
窗口(圆形(x_cm + p_x(6)),圆形(y_cm + p_y(6)),圆形(x_cm + p_x(8)),圆形(y_cm + p_y(8)),box)

delay (TIME_DELAY)

窗口(圆形(x_cm + p_x(1)),圆形(y_cm + p_y(1)),圆形(x_cm + p_x(3)),圆形(y_cm + p_y(3)),白色)
窗口(圆形(x_cm + p_x(1)),圆形(y_cm + p_y(1)),圆形(x_cm + p_x(6)),圆形(y_cm + p_y(6)),白色)
窗口(圆形(x_cm + p_x(1)),圆形(y_cm + p_y(1)),圆形(x_cm + p_x(7)),圆形(y_cm + p_y(7)),白色)
窗口(圆形(x_cm + p_x(2)),圆形(y_cm + p_y(2)),圆形(x_cm + p_x(4)),圆形(y_cm + p_y(4)),白色)
绕线(圆形(x_cm + p_x(2)),圆形(y_cm + p_y(2)),圆形(x_cm + p_x(5)),圆形(y_cm + p_y(5)),白色)
窗口(圆形(x_cm + p_x(2)),圆形(y_cm + p_y(2)),圆形(x_cm + p_x(8)),圆形(y_cm + p_y(8)),白色)
窗口(圆形(x_cm + p_x(3)),圆形(y_cm + p_y(3)),圆形(x_cm + p_x(5)),圆形(y_cm + p_y(5)),白色)
窗口(圆形(x_cm + p_x(3)),圆形(y_cm + p_y(3)),圆形(x_cm + p_x(8)),圆形(y_cm + p_y(8)),白色)
窗口(圆形(x_cm + p_x(4)),圆形(y_cm + p_y(4)),圆形(x_cm + p_x(6)),圆形(y_cm + p_y(6)),白色)
窗口(圆形(x_cm + p_x(4)),圆形(y_cm + p_y(4)),圆形(x_cm + p_x(7)),圆形(y_cm + p_y(7)),白色)
窗口(圆形(x_cm + p_x(5)),圆形(y_cm + p_y(5)),圆形(x_cm + p_x(7)),圆形(y_cm + p_y(7)),白色)
窗口(圆形(x_cm + p_x(6)),圆形(y_cm + p_y(6)),圆形(x_cm + p_x(8)),圆形(y_cm + p_y(8)),白色)

%-------------------------------------------------- ---------------------------------------------

%操纵立方体

if hasch then
getch (ch)

%Turn Upwards

如果ch = chr(200)那么
psi:= psi + delta_psi

%Turn Downwards

elsif ch = chr(208)然后
psi:= psi - delta_psi

%Turn Right

elsif ch = chr(205)然后
Theta:=θ+ delta_theta

%Turn Left

elsif ch = chr(203)然后
θ:= theta - delta_theta


end if

end if

%_______________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________

const deltatime:= 0.10
Const Timedelay:= 10
var x,y,z,x0,y0,z0,v0x,v0y,v0z,t:真实

const x_right_boutalary:= 1100
const x_left_boundary:= 250
const y_top_boundary:= 1000
const y_bottom_boundary:= 250

Const Radius:= 0.025

const depth_scale:= 0.1

x0 := 100
y0 := 100
z0 := 100
v0x := 30
v0y := 10
v0z := 20
T := 0
x := x0 + v0x * T
y := y0 + v0y * T
z := z0 + v0z * T

拔出(645,600,20,20,黑色)

delay (TIME_DELAY)

窗玻璃(645,600,20,20,白色)
T := T + 1

if x >x_right_boutalary那么
x0:= 2 * x_right_boutalary - x
y0 := y
v0x := -v0x
T := 0
end if

if x <那时x_left_boutalary
x0:= 2 * x_left_boundary - x
v0x := -v0x
y0 := y
T := 0
end if

if y > y_top_boundary then
y0:= 2 * y_top_boutalary - y
v0y := -v0y
x0 := x
T := 0
end if

if y <y_bottom_boundary那么
y0:= 2 * y_bottom_boutalary - y
v0y := -v0y
x0 := x
T := 0
end if
结束循环
赞助
赞助
赞助
赞助
博彩




邮政发布: 2013年8月14日星期三12:36 AM  帖子主题:RE:请帮忙...... TING !!

这些信息很有用,我从这个网站上了 Google.com.
从上一个显示帖子:   
   指数 -> 一般讨论;一般交流
查看上一个主题 告诉一个朋友可打印的版本下载主题订阅本主题私人信息刷新页面 查看下一个主题

11  [ 2 Posts ]
跳到:   


Style:  
搜索: