实战宝典 原创大赛 仪器问答 仪友会 总帖：8044015今日发帖：540 我的社区 签到
快速导航 采购仪器 提醒
液相色谱（LC）
版主:
入住本版
专家:
居民列表

主题：【第七届原创】一个极限的求证过程

浏览0 回复14 电梯直达
可能感兴趣
temp
temp
结帖率：
100%
关注：0 |粉丝：0
新手级： 新兵
2014/8/14 0:03:37 11楼 管理 分享 倒序浏览 只看楼主 回复 私聊
传说中的不明觉厉啊！
赞贴
0
收藏
0
拍砖
0
举报
nixiaolong
nixiaolong
结帖率：
100%
关注：0 |粉丝：0
新手级： 新兵
2014/8/14 6:50:19 12楼 管理 分享 倒序浏览 只看楼主 回复 私聊
好高深 完全是数学问题 我们只能是看看结论了
赞贴
0
收藏
0
拍砖
0
举报
Daichaozheng
Daichaozheng
结帖率：
100%
关注：0 |粉丝：0
新手级： 新兵
2014/8/17 11:23:48 13楼 管理 分享 倒序浏览 只看楼主 回复 私聊


改进后的程序如下：



Dim x As Double, y(301) As Double, sh As Double, ch As Double, n As Integer, fw As Double, fw1 As Double

Private Sub Command1_Click()

fw = Val(Text1.Text)

fw1 = fw / 150

n = 1

For i = 1 To 301

If i = 150 Then GoTo 10

x = -fw + i * fw1

sh = (Exp(x) - Exp(-x)) / 2

ch = (Exp(x) + Exp(-x)) / 2

y(i) = (2 * x ^ 3 * sh ^ 2 + 2 * x * sh ^ 2 + x * ch ^ 2 * sh ^ 2 + 3 * ch * sh ^ 3 - 6 * x ^ 3 * ch ^ 2 - x * sh ^ 4) / x ^ 5 / sh ^ 4

10 Next i

If y(149) > y(151) Then y(0) = y(149) Else y(0) = y(151)

If 2 * y(149) - y(148) < 2 * y(151) - y(152) Then y(150) = 2 * y(149) - y(148) Else y(150) = 2 * y(151) - y(152)

y(150) = (y(150) + y(0)) / 2

a = 32 / 315

Text2.Text = Str$(a)

Text3.Text = Str$(y(150))

Picture1.Cls

Picture1.Scale (0, 0)-(100, 5000)

For i = 1 To 5000

a = 256 - i / 10

If a < 0 Then a = 0

Picture1.Line (0, i)-(100, i), RGB(0, 0, a)

Next i

Picture1.Scale (-1.1 * Val(Text1.Text), 0.13)-(1.1 * Val(Text1.Text), -0.02)

Picture1.Line (-Val(Text1.Text), 0)-(Val(Text1.Text), 0), RGB(256, 256, 256)

Picture1.Line (0, 0)-(0, 0.12), RGB(256, 256, 256)

For i = 0 To 0.115 Step 0.01

Picture1.Line (-0.08, i)-(0.08, i), RGB(256, 256, 256)

Next i

For i = 0 To 0.115 Step 0.001

Picture1.Line (-0.03, i)-(0.03, i), RGB(256, 256, 256)

Next i

For i = 0 To 0.115 Step 0.01

Picture1.CurrentX = 0.02

Picture1.CurrentY = i + 0.0035

Picture1.Print i

Next i

For i = 1 To 300

X1 = -fw + i * fw1

X2 = X1 + fw1

Y1 = y(i)

Y2 = y(i + 1)

Picture1.Line (X1, Y1)-(X2, Y2), RGB(128, 256, 256)

Next i

SavePicture Picture1.Image, "c:\tu.jpeg"

End Sub

Private Sub end_Click()

End

End Sub

Private Sub Form_Activate()

Picture1.Scale (0, 0)-(100, 5000)

For i = 1 To 5000

a = 256 - i / 10

If a < 0 Then a = 0

Picture1.Line (0, i)-(100, i), RGB(0, 0, a)

Next i

End Sub

放大图形的上部如下：

赞贴
0
收藏
0
拍砖
0
举报
zyl3367898
zyl3367898
结帖率：
100%
关注：0 |粉丝：0
新手级： 新兵
2014/9/2 17:27:22 14楼 管理 分享 倒序浏览 只看楼主 回复 私聊
看不懂，楼主厉害。
赞贴
0
收藏
0
拍砖
0
举报
手机版： 一个极限的求证过程
猜你喜欢最新推荐热门推荐更多推荐
头像
高级回复 发表评论
品牌合作伙伴
岛津
日立科学仪器
珀金埃尔默仪器（上海）有限公司（PerkinElmer）
日本电子株式会社
丹纳赫
安捷伦
赛默飞世尔科技
普析通用
欧波同
天美
天瑞仪器
德国耶拿
海能技术
马尔文帕纳科
磐诺科技
上海仪电科仪
梅特勒托利多
聚光科技
莱伯泰科
盛瀚
多宁生物
丹东百特
科哲
卓立汉光
屹尧科技
华谱科仪
宝德仪器
优莱博
HORIBA
布鲁克核磁