没有合适的资源?快使用搜索试试~ 我知道了~
Smith圆图VB仿真程序代码
4星 · 超过85%的资源 需积分: 10 36 下载量 33 浏览量
2011-05-22
21:23:10
上传
评论 1
收藏 4KB TXT 举报
温馨提示
试读
6页
VB仿真,能显示Smith圆图上各个点各参数值。
资源推荐
资源详情
资源评论
Private Sub Command1_Click()
Picture1.Cls
Dim i, r, a, b, j As Single
Picture1.Scale (-1, 1)-(1, -1)
For i = 0.1 To 1 Step 0.1
Picture1.Circle (0, 0), i, RGB(0, 255, 255)
Next i
r = 0
a = 0
b = 0
For j = 0 To 10
r = r + 0.05
a = a - 0.02
b = b + 0.02
Picture1.Circle (r / (r + 1), 0), 1 / (r + 1), RGB(100, 100, 255)
Picture1.Circle (1, 1 / a), 1 / Abs(a), RGB(255, 255, 100)
Picture1.Circle (1, 1 / b), 1 / b, RGB(255, 255, 100)
Next j
r = 2
a = -1
b = 1
For j = 0 To 20
r = r + 0.5
a = a - 0.5
b = b + 0.5
Picture1.Circle (r / (r + 1), 0), 1 / (r + 1), RGB(100, 100, 255)
Picture1.Circle (1, 1 / a), 1 / Abs(a), RGB(255, 255, 100)
Picture1.Circle (1, 1 / b), 1 / b, RGB(255, 255, 100)
Next j
r = 0.5
Picture1.Cls
Dim i, r, a, b, j As Single
Picture1.Scale (-1, 1)-(1, -1)
For i = 0.1 To 1 Step 0.1
Picture1.Circle (0, 0), i, RGB(0, 255, 255)
Next i
r = 0
a = 0
b = 0
For j = 0 To 10
r = r + 0.05
a = a - 0.02
b = b + 0.02
Picture1.Circle (r / (r + 1), 0), 1 / (r + 1), RGB(100, 100, 255)
Picture1.Circle (1, 1 / a), 1 / Abs(a), RGB(255, 255, 100)
Picture1.Circle (1, 1 / b), 1 / b, RGB(255, 255, 100)
Next j
r = 2
a = -1
b = 1
For j = 0 To 20
r = r + 0.5
a = a - 0.5
b = b + 0.5
Picture1.Circle (r / (r + 1), 0), 1 / (r + 1), RGB(100, 100, 255)
Picture1.Circle (1, 1 / a), 1 / Abs(a), RGB(255, 255, 100)
Picture1.Circle (1, 1 / b), 1 / b, RGB(255, 255, 100)
Next j
r = 0.5
a = -0.2
b = 0.2
For j = 0 To 15
r = r + 0.1
a = a - 0.1
b = b + 0.1
Picture1.Circle (r / (r + 1), 0), 1 / (r + 1), RGB(100, 100, 255)
Picture1.Circle (1, 1 / a), 1 / Abs(a), RGB(255, 255, 100)
Picture1.Circle (1, 1 / b), 1 / b, RGB(255, 255, 100)
Next j
Picture1.Line (-1, 0)-(1, 0), RGB(0, 0, 0)
Picture1.Line (0, 1)-(0, -1), RGB(0, 0, 0)
End Sub
Private Sub Command3_Click()
Dim f As Integer
Picture1.Cls
Picture1.Scale (-1, 1)-(1, -1)
Picture1.Circle (0, 0), 1, RGB(0, 255, 255)
Picture1.Line (-1, 0)-(1, 0), RGB(0, 0, 0)
Picture1.Line (0, 1)-(0, -1), RGB(0, 0, 0)
u = shib
v = xub
'u = (sb ^ 2 + xb ^ 2 - 1) / ((sb + 1) ^ 2 + xb ^ 2)
'v = 2 * xb / ((sb + 1) ^ 2 + xb ^ 2)
'q = (1 - u ^ 2 - v ^ 2) / ((1 + u) ^ 2 + v ^ 2)
'w = (-2 * v) / ((1 + u) ^ 2 + v ^ 2)
b = 0.2
For j = 0 To 15
r = r + 0.1
a = a - 0.1
b = b + 0.1
Picture1.Circle (r / (r + 1), 0), 1 / (r + 1), RGB(100, 100, 255)
Picture1.Circle (1, 1 / a), 1 / Abs(a), RGB(255, 255, 100)
Picture1.Circle (1, 1 / b), 1 / b, RGB(255, 255, 100)
Next j
Picture1.Line (-1, 0)-(1, 0), RGB(0, 0, 0)
Picture1.Line (0, 1)-(0, -1), RGB(0, 0, 0)
End Sub
Private Sub Command3_Click()
Dim f As Integer
Picture1.Cls
Picture1.Scale (-1, 1)-(1, -1)
Picture1.Circle (0, 0), 1, RGB(0, 255, 255)
Picture1.Line (-1, 0)-(1, 0), RGB(0, 0, 0)
Picture1.Line (0, 1)-(0, -1), RGB(0, 0, 0)
u = shib
v = xub
'u = (sb ^ 2 + xb ^ 2 - 1) / ((sb + 1) ^ 2 + xb ^ 2)
'v = 2 * xb / ((sb + 1) ^ 2 + xb ^ 2)
'q = (1 - u ^ 2 - v ^ 2) / ((1 + u) ^ 2 + v ^ 2)
'w = (-2 * v) / ((1 + u) ^ 2 + v ^ 2)
剩余5页未读,继续阅读
资源评论
- 孤影品茗2013-07-31不怎么用vb,智能看看
- jkl7412582013-08-08我以为是用c#写的。。
- drillgrind2011-10-29功能上一般,界面不甚美观,但是还是有可以汲取之处。
- 流雲大叔2013-03-07嗯,正好学习学习,关于smith原图的画法~顶一个
y_yusheng
- 粉丝: 0
- 资源: 1
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功