您的位置：程序门 -> vb -> 资源

考研用急求混沌方程图型

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

考研用急求混沌方程图型

发表于：2007-07-05 09:26:52 楼主

混沌方程：
y = dx
dy = p1 * x - x ^ 3 - p * y + q * cos（wt)

求高手帮忙用vb画出以（x,y)为坐标的图象,在线等
图象在 http://hi.baidu.com/ghdwff/blog/item/391e762da4c76836359bf753.html

发表于：2007-07-06 17:12:371楼得分:0

option explicit

private function f（x as single, y as single) as boolean
'检查 x、y 是否满足函数
end function

private sub form_load（)
me.scalemode = vbpixels
me.windowstate = vbmaximized
me.autoredraw = true

dim i as long
dim j as long
dim x as single
dim y as single
dim d
me.cls

for i = -300 to 300
x = i / 100
for j = -300 to 300
y = j / 100

if f（x, y) then
pset （i, j), 0
end if
next
next
end sub

下一篇：如何调用excel2007，并写入数据呢
上一篇：vb 求助！！

其他资讯