采矿系统工程上机实验报告Word下载.docx
- 文档编号:19002393
- 上传时间:2023-01-02
- 格式:DOCX
- 页数:13
- 大小:109.99KB
采矿系统工程上机实验报告Word下载.docx
《采矿系统工程上机实验报告Word下载.docx》由会员分享,可在线阅读,更多相关《采矿系统工程上机实验报告Word下载.docx(13页珍藏版)》请在冰豆网上搜索。
37
41
39
40
42
30
注:
以上每个数字的位置本应在其所在表格的左上角点处
3.
程序流程图
4.实验思路
1、建立源数据文本文档xtgc.txt,作为输入数据源;
2、在vb窗体中绘制所需图框,其中text1,text2作为接收输入的计算起始和终止步距;
4个复选框为选择计算的方向,text3用于输出结果,picture1用于输出绘图内容;
3、编写代码,先编写输入数据的代码,再编写东西、南北、北东、北西四个方向计算方法的子函数,其中子函数的设计是根据方向和输入数据维数的不同运用数组编写,再编写调用子函数的过程,最后根据计算结果编写绘图程序。
4、运行程序,输入步距分别为100,300,再选择计算方向,点击输入数据按钮,再点击计算,文本框中出现显示结果,再点击绘图,在绘图框中出现r(h)的图像。
5.程序代码
OptionBase1
Dima(8,10)AsInteger'
数组a用于存放输入数据
Dimb(3)AsSingle
Dimc(3)AsSingle
Dimd(3)AsSingle
Dime(3)AsSingle
PrivateSubCommand1_Click()
DimiAsInteger,jAsInteger
Open"
c:
\ckxtgc1\xtgc.txt"
ForInputAs#1
DoWhileNotEOF
(1)
Fori=1To8
Forj=1To10
Input#1,a(i,j)
Nextj
Nexti
Loop
Close#1
EndSub
PrivateSubcommand2_click()
DimhAsInteger,r1AsSingle,r2AsSingle,r3AsSingle,r4AsSingle,b1AsInteger,b2AsInteger,kAsInteger
b1=Val(h1.Text)
b2=Val(hn.Text)
Fork=1To(b2-b1+100)/100
IfCheck1.Value=1Then
Callewr(k,r1)
b(k)=r1
xtr.Text=xtr.Text&
"
东西方向r("
&
k*100&
):
"
Str(r1)&
vbCrLf
EndIf
IfCheck2.Value=1Then
Callsnr(k,r2)
c(k)=r2
南北方向r("
Str(r2)&
IfCheck3.Value=1Then
Callner(k,r3)
d(k)=r3
北东方向r("
Str(r3)&
IfCheck4.Value=1Then
Callnwr(k,r4)
e(k)=r4
北西方向r("
Str(r4)&
Nextk
PrivateSubewr(ByValbAsInteger,rAsSingle)'
东西方向变异函数
DimiAsInteger,jAsInteger,a(8,10)AsInteger,jsAsInteger
r=0
Forj=1To10-b
If(a(i,j)<
>
0Anda(i,j+b)<
0)Then
r=r+(a(i,j)-a(i,j+b))*(a(i,j)-a(i,j+b))
js=js+1
r=r/(2*js)
PrivateSubsnr(ByValbAsInteger,rAsSingle)'
南北方向半变异函数
DimiAsInteger,jAsInteger,jsAsInteger
Fori=1To8-b
0Anda(i+b,j)<
r=r+(a(i,j)-a(i+b,j))*(a(i,j)-a(i+b,j))
PrivateSubner(ByValbAsInteger,rAsSingle)'
北东方向半变异函数
Fori=1+bTo8
0Anda(i-b,j+b)<
r=r+(a(i,j)-a(i-b,j+b))*(a(i,j)-a(i-b,j+b))
PrivateSubnwr(ByValbAsInteger,rAsSingle)'
北西方向半变异函数
Forj=1+bTo10
0Anda(i-b,j-b)<
r=r+(a(i,j)-a(i-b,j-b))*(a(i,j)-a(i-b,j-b))
PrivateSubcommand3_Click()'
绘图
DimxAsSingle,yAsSingle,iAsInteger,jAsInteger,kAsInteger,hAsInteger
Picture1.Scale(-5,25)-(70,-5)
DrawWidth=1
Picture1.Line(0,0)-(40,0)
Picture1.Print"
h"
Picture1.Line(0,0)-(0,20)
r"
Picture1.CurrentY=-0.1:
Picture1.CurrentX=-0.4
0"
Picture1.CurrentY=0:
Picture1.CurrentX=0
Fori=1To3
Picture1.Line-(10*i,b(i)),RGB(0,0,255)
Forj=1To3
Picture1.Line-(10*j,c(j)),RGB(0,255,0)
Fork=1To3
Picture1.Line-(10*k,d(k)),RGB(0,255,255)
Forh=1To3
Picture1.Line-(10*h,e(h)),RGB(255,0,0)
Nexth
Picture1.Line(45,10)-(50,10),RGB(0,0,255)
东西方向r(h)"
Picture1.Line(45,12)-(50,12),RGB(0,255,0)
南北方向r(h)"
Picture1.Line(45,14)-(50,14),RGB(0,255,255)
北东方向r(h)"
Picture1.Line(45,16)-(50,16),RGB(255,0,0)
北西方向r(h)"
6.输入界面及运行结果
图1.输入界面
图2.计算结果及绘图
7.实验小结
实验报告二
1.实验名称
某矿原煤生产系统由两部分构成:
破碎筛分系统和储运装车系统。
根据该系统6个月的运行情况,对其进行统计分析并完成如下任务:
(1)分析破碎筛分环节的故障类型,如更换、修补、保养等,给出,各类型的累积故障时间;
(2)分析原煤系统两大环节的各月累积故障时间,绘制柱状图;
(3)假设该原煤系统由破碎筛分系统、储运装车系统和电务班三个环节串联而成,建立串联系统可靠性模型,计算各环节和系统可靠度。
实验步骤
1)各故障累计时间记录
2)
破碎、储运故障累积时间记录
3)建立可靠性模型
假设原煤生产系统年工作时间为330d,每天24小时连续工作。
根据系统累积故障时间和累积故障次数(见下图)
系统累积故障次数统计
根据以上数据,计算破碎和储运环节的可靠度:
(1)破碎环节
R(t)=
==
其中,
为平均故障率,次/小时;
m为平均故障间隔时间,h/次,m=
=
=0.0539次/小时
故,R(t)=
(2)储运环节
=0.0125次/小时
4.
实验小结
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 采矿 系统工程 上机 实验 报告
![提示](https://static.bdocx.com/images/bang_tan.gif)