假期医院实习报告 本文关键词：实习报告，假期，医院
假期医院实习报告 本文简介：假期医院实习报告临近假期，社会医学老师给我们布置了去医院实习体会的任务。我觉的所谓社会医学就应该到社会中去实践，了解现在的医疗形势，得知患者心中所想，为以后的学习和生活确立更准确的奋斗目标。社会实践活动是学校教育向课堂外的一种延伸也是推进素质教育进程的重要手段，可以有助于大学生接触社会，了解社会。同
假期医院实习报告 本文内容：
假期医院实习报告
临近假期，社会医学老师给我们布置了去医院实习体会的任务。我觉的所谓社会医学就应该到社会中去实践，了解现在的医疗形势，得知患者心中所想，为以后的学习和生活确立更准确的奋斗目标。社会实践活动是学校教育向课堂外的一种延伸也是推进素质教育进程的重要手段，可以有助于大学生接触社会，了解社会。同时实践也是大学生学习知识锻炼才干的有效途径更是大学生回报社会的一种良好形式。于是，我信心满满的开始了我的实习历程。
实践，就是把我们在学校所学的理论知识，运用到客观实际中去，使自己所学的理论知识有用武之地。对我们学生而言，实践就是从学校到社会，从一个学生到一个工作人的角色转变。俗话说，读万卷书行万里路，何况作为一个尚未毕业的医学生，只能也必须从基层做起，做好吃苦耐劳的心理准备。
在医院的一个月里，每天都和门诊医生一起上下班。每天耳濡目染医生怎么与病人沟通，怎么收集病情资料，怎么治疗。虽然现在的医疗环境不是很好，但医院每天都有很多的人来看病。医生们每天都忙忙碌碌的辛勤工作着，开始的几天我猛然间发现几年的书似乎都白念了，跟着代教老师跑了几天，我似乎跟普通不懂医学的患者没什么差距。原来读书和实践的差距如此之大。不会写病历，不会问病史，老师问的问题一问三不知，诊断时我脑袋里居然一片空白想不起老师上课讲的东西。还好及时转变了心态，我利用晚上的时间恶补书本，发现之前因为考试突击记住的东西是那么的脆弱，很多东西只是记住了个大概，具体是什么都不知道了。只能跟着老师一步步学习，大半个月后我终于不是那么不知所措，老师在看病的时候我基本都能反映出书本上哪里讲了什么知识。也能帮着老师写一些简单的病例和鉴别诊断。当看到病人进过治疗后病痛减轻康复时的笑逐颜开，医生的成功感得到最完美的体现，医生的辛苦和努力在病人健康面前变的那么的渺小。
那天晚上我被老师叫着值夜班，七点左右的时候大家吃完饭还在医生办公室休息，病人也不多。突然听到窗外传来一阵嚎哭，后来声音越来越大，闹的旁观的人群也越来越多，几个医生上前劝阻那人还不依不饶的，誓死要斗争到底的样子。我心里一紧，也许这就是传说中的医闹吧！想想书上讲的医患关系的紧张，作为医生的我们其实是挺难自处的。医患纠纷的愈演愈烈源于医疗事故的频频发生。个别医生大肆收受红包，不把患者的生命放在第一位，甚至有些庸医靠着找关系走后门进了医院却发挥不了应有的作用。所谓害群之马就是这些人，就是这些既没有医德有没有医术的人败坏了医疗队伍的整体名声使得医患关系日趋紧张。甚至发生了砍伤砍死医生的悲剧，我想这也是医疗体制的悲哀和局限性。
所谓医者仁心，作为一个医生本就应该悬壶济世普度众生，佛曰：救人一命胜造七级浮屠，生命所托健康所系，难道我们不应该尽心尽力吗？做医生不应该只为了金钱，要有更崇高的人生追求，不求名与利，但求问心无愧。我想，医患纠纷产生的原因是复杂的，排除病人和社会等方面因素，医院首当其冲，有其不可推卸的责任。具体来说，就体现在医生本身。有些医患纠纷其实是完全可以避免的。而现在的状态是患者不信任医生，医生很害怕患者。我们是悬壶济世，不是悬头济世。社会舆论也应该有一个正确的导向，不要一味的偏袒患者，生老病死是人之常情，患者也不要一出了人命就埋怨医院治疗不规范医术不高明。医生们冒着生命危险和骂名在治病救人，国家政府是不是也应该站出来主持公道呢，是不是应该先保证医生的合法权益呢？.
做一个医生真的很累，我的老师一天要看四五十个病人，从上班到下班一直都在药方和病例上奋笔疾书，很多症状较轻的病人根本来不及详细检查和诊断，不仅每天很疲惫还要遭受患者的责备和咒骂。我想，我国的人口中医生的比例太小是很重要的一个原因。媒体上总是报道医生不能拿提成收红包什么的，仅仅依靠那微薄的财政工资又怎么对得起医务工作者们累死累过的工作呢？他们只看到了表面现象却没经受过那份苦难。
短期的社会实践，一晃而过，在这其中，让我从中领悟到了很多的东西，而这些东西都将会让我终生受用。新的学期开始了，新一轮对医学知识的吸收和总结也拉开序幕，我会投入百分之百的努力，争取早日成为一名优秀的医务工作者。虽然环境恶劣，但是白衣天使的光荣使命依然对我有无限的吸引力，指引着我不断向前。
篇2：中钢集团洛阳耐火材料厂毕业实习报告
中钢集团洛阳耐火材料厂毕业实习报告 本文关键词：中钢，洛阳，耐火，材料厂，实习报告
中钢集团洛阳耐火材料厂毕业实习报告 本文简介：目录前言1一、实习目的1二、实习内容：11.实习单位简介22.1.镁质分厂简介22.2.镁质耐火材料33.1制品的使用质量要求及标准53.2镁铝砖的生产：63.3提高产品质量的途径83.4直接结合93.5生产方法的选择9三．设备及原理133.1破粉碎车间主要设备的构造及工作原理133.2成型车间主要
中钢集团洛阳耐火材料厂毕业实习报告 本文内容：
目
录
前言1
一、实习目的1
二、实习内容：1
1.实习单位简介2
2.1.镁质分厂简介2
2.2.镁质耐火材料3
3.1制品的使用质量要求及标准5
3.2镁铝砖的生产：6
3.3
提高产品质量的途径8
3.4
直接结合9
3.5
生产方法的选择9
三．设备及原理13
3.1破粉碎车间主要设备的构造及工作原理13
3.2成型车间主要设备的构造及工作原理17
3.3隧道窑的构造及工作原理18
四．实习感受19
参考文献：20
前言
在大四毕业之际，我们来到了中钢集团耐火材料厂进行我们的毕业实习。这里有完善的设备和健全管理体制，让我们在步入社会之前对自己本专业的知识有了系统和深入的了解。使我们更好的掌握所学的专业知识并能够将这些知识融会贯通于实际工作中。
一、实习目的
(1)学习耐火材料的生产工艺流程，对生产车间，管理体制等进行全面的了解和学习，让自己的理论知识和实际操作进行整合，让自己更好的认识自己的专业知识,同时也为毕业设计打好基础，采集毕业设计所需要的数据和设计来作为参考。可以将中钢已经成熟的生产工艺和自己的毕业设计做对比，取长补短，让自己的毕业设计更加成熟。
(2)了解目前国内耐火材料的发展前景和市场价值。
(3)让自己更早一步的认识本专业的实际工作，锻炼自己分析问题和解决问题的能力。让自己从实际操作中总结出自己的理论，更好的发现自己所存在的问题。。为后续的毕业设计以及今后的工作打下良好的基础。
(4)通过毕业实习，密切接触工人师傅和工程技术人员，学习他们的优秀品质和献身社会主义建设事业的精神，使学生进一步培养自己的专业素质，明确自己的责任和时代赋予我们的使命。
二、实习内容：
1.实习单位简介
中国耐火材料行业协会的会长单位--中钢集团耐火材料有限公司，是国内规模最大、品种最全的国有耐火材料生产厂家；是入选中国520家重点企业的唯一耐火材料企业；是国家统计局最新排定的中国大型企业之一；河南省高新技术企业。中钢集团耐火材料有限公司主要生产各种定型和不定型耐火材料，产品有
10
大系列、126个标准、350个牌号、4万多个型号。现主导产品有氧化物及非氧化物复合陶瓷耐火材料，优质高铝质、硅质制品，高档碱性制品，铝碳、铝镁碳连铸制品，轻质隔热制品，不烧制品，陶瓷窑具制品，不定型耐火材料制品等，许多产品填补了国内空白，达到并超过了国外同类产品质量。
2.1.镁质分厂简介
中钢集团耐火材料有限公司镁质分厂（原九分公司）是国家“八五”重点工程一优质镁铬生产线，1993年5月建成投产。2003年5月改制为中钢集团耐火材料有限公司控股子公司。该生产线采用先进的烧结和熔融合成原料系统、微机配料、高压成型，超高温（1850℃）隧道窑烧成，通过切、磨、钻、预砌、粘结等精加工组合。装备先进，技术水平居同行业前茅。产品有直接结合镁铬砖、半再结合镁铬砖、电熔再结合镁铬砖、镁铝尖晶石砖、镁铝铬尖晶石砖、镁（钙）锆砖、电熔（高纯）镁砖、刚玉铬砖等，年产高档镁质碱性耐火材料3万余吨，产品广泛用于大型干法水泥回转窑、玻璃窑蓄热室、重有色冶金炉，石灰窑，洁净钢精炼炉等领域。镁质分厂是国家高新技术企业并通过
IS09001
:
2000
国际质量体系认证，拥有国家高检局认可试验室，自行研制生产的大型干法水泥窑用直接结合镁铬砖、镁铝尖晶石砖、重有色冶炼用电熔再结合镁铬砖、半再结合镁铬砖、
RH
炉用镁铬砖属国家高新技术产品。
2.2.镁质耐火材料
镁质耐火材料多为碱性耐火材料，它含氧化镁80％～85％以上，以方镁石为主晶相。生产镁砖的主要原料有菱镁矿、海水镁砂由海水中提取的氢氧化镁经高温煅烧而成）等。对碱性渣和铁渣有很好的抵抗性。纯氧化镁的熔点高达2800℃,因此,镁砖的耐火度较粘土砖和硅砖都高。20世纪50年代中期以来，由于采用了吹氧转炉炼钢和采用碱性平炉炉顶，碱性耐火材料的产量逐渐增加，粘土砖和硅砖的生产则在减少。
其产品可分为冶金镁砂和镁质制品两大类。依化学组成及用途可分为冶金镁砂、镁砖、镁硅砖、镁铝砖、镁钙砖、镁碳砖及其他品种等。其性能受CaO/SiO2比和杂质的影响很大。高纯镁砖的荷重软化点和耐热震性都远较一般镁砖为好。耐火度高，对碱性渣和铁渣有很好的抵抗性，是一种重要的高级耐火材料。镁质制品多用烧结法生产，烧成温度一般在1500～1800℃之间，另外，也可以加化学结合剂，制成不烧砖和不定形耐火材料。主要用于平炉、电炉、氧化转炉、有色金属冶炼炉、水泥窑和碱性耐火材料的煅烧窑等。
镁砖：一般可分为烧结镁砖（又称烧成镁砖）和化学结合镁砖（又称不烧镁砖）两大类。纯度和烧成温度高的镁砖，由于方镁石晶粒直接接触，称为直接结合镁砖；用电熔镁砂为原料制成的砖称为电熔再结合镁砖。
镁砖有较高的耐火度，很好的耐碱性渣性能，荷重软化开始温度高，但抗热震性能差。烧结镁砖以制砖镁砖为原料，经粉碎、配料、混练、成型后，在1550～1600℃的高温下烧成，高纯制品的烧成温度在1750℃以上。不浇镁砖是在镁砂中加入适当的化学结合剂，经混炼、成型、干燥而制成。
主要用于炼钢碱性平炉、电炉炉底和炉墙，氧气转炉的永久衬，有色金属冶炼炉，高温隧道窑，煅烧镁砖和水泥回转窑内衬，加热炉的炉底和炉墙，玻璃窑蓄热室格子砖等
镁铬砖：以氧化镁(MgO)和三氧化二铬
(Cr2O3)为主要成分，方镁石和尖晶石为主要矿物组分的耐火材料制品。这类砖耐火度高,高温强度大,抗碱性渣侵蚀性强，热稳定性优良，对酸性渣也有一定的适应性。制造镁铬砖的主要原料是烧结镁砂和铬铁矿。镁砂原料的纯度要尽可能高，铬铁矿化学成分的要求为：Cr2O330～45％，CaO不大于1.0～1.5％。
烧制镁铬砖的生产工艺与镁质砖大体相仿。为了消除砖在烧成过程中由于MgO和Cr2O3、Al2O3或铁的氧化物反应生成尖晶石时的膨胀而引起的松散效应，也可采用合成的共同烧结料制成镁铬砖。此外，还有不烧镁铬砖，例如，用无机镁盐溶液结合的不烧镁铬砖。不烧镁铬砖生产工艺简单，成本低，热稳定性也好，但高温强度远不及烧成砖。50年代末，发展出一种所谓“直接结合”镁铬砖。这种砖的特点是原料纯,烧成温度高,方镁石、尖晶石等高温相之间直接结合，硅酸盐等低熔相为孤岛状分布,因此,显著地提高了砖的高温强度和抗渣性。
用铬矿－镁砂共磨压坯煅烧后制作的细粉，与镁砂粗颗粒配合制砖的方法,是消除松散效应的有效措施。用这种方法制成的镁铬砖，同普通镁铬砖相比，砖的气孔率低，耐压强度、荷重软化温度和抗折强度均较高。用铬矿-菱镁矿粉压坯,经高温煅烧的合成镁铬砂制成的镁铬砖，抗渣性和高温强度均比其他镁铬砖好。
此外，还有用电孤炉熔融镁铬料直接浇铸而得的熔铸镁铬砖，用电熔镁铬料按制砖工艺生产的熔粒再结合镁铬砖等。
镁铬砖主要用于冶金工业，如构筑平炉炉顶、电炉炉顶、炉外精炼炉以及各种有色金属冶炼炉。超高功率电炉炉壁的高温部位采用熔铸镁铬砖，炉外精炼炉高侵蚀区采用合成料制成的镁铬砖，有色金属闪速熔炼炉高侵蚀区采用熔铸镁铬砖、合成料制成的镁铬砖。此外，镁铬砖还用在水泥回转窑烧成带和玻璃窑的蓄热室等部位。
镁质耐火材料因其性能较好，原料较丰富，越来越多的被研究和应用。随着科学技术的进步与发展镁质耐火材料也会得到越来越高的推广和应用。
3.1制品的使用质量要求及标准
耐火材料在使用过程中受到高温下发生的物理化学变化，机械冲刷等作用，使材料容易熔融、腐蚀或崩裂损坏等现象。因此要求耐火材料有良好的高温性能和抗侵蚀性，要求如下：
3.1.1要求有足够的耐火度
耐火度是指耐火材料抵抗高温作用而不损坏的指标。镁质制品因MgO的熔点高达2800℃。因此有较高的耐火度。
3.1.2.有较高的荷重软化点：
尽管镁质制品有较高的耐火度，但荷重软化点却不高。主要原因是普通镁砖中主晶相方镁石为形成网路骨架，作为结合剂的一般是熔点较低的钙镁橄榄石或镁蔷薇石。且其液相的镁铝砖、镁铬砖则可大大的提高荷重软化点
3.1.3.有良好的高温体积稳定性：
一般制品体积变化小于1%。
3.1.4.有良好的热震稳定性：
镁砖的热震稳定性差。
镁铝砖具有较好的热震稳定性。
3.2镁铝砖的生产：
镁铝砖以镁铝尖晶石为主要的结合相，其含量对其性质有重要的影响，加入量在3-10%其工艺特点如下：
表3-1
生产镁铝砖的原料质量要求：
原料名称
灼减
MgO%
SiO2%
CaO%
Al2O3%
密度
一级轻烧镁砂
≤0.3%
≥90.5%
≤4.5
≤1.6
≥3.54
生矾土
＜3
Fe2O3＜1.3%
＜78
≥3.54
矾土熟料
75-78
≥3.54
a.当然Al2O3存在时，CaO是很强的熔剂，应严格控制原料的CaO和SiO2含量。
b.严格控制配料中Al2O3的含量（通常我为5-10%）生产中将矾土烧结物，镁砂在磨机中共同混合磨碎，要求＜0.088mm的粉料≥92%。
c.为提高热震稳定性，镁铝砖临界粒度较普通的镁砖打一些，一般采用3mm。
d.为提高高铝坯体密度，镁铝砖应尽可能高压成型，砖坯的密度≥3g/cm3。
e.其烧成温度较普通的镁砖高约10℃，其余的热工制度与普通的镁砖一致。
表3-2
镁砖理化指标：
项目
指标
MZ-91
MZ-89
MZ-87
MGZ-82
MgO,%
不小于
91
90
87
82
SiO2,%
-
-
-
5-10
CaO,%
不大于
3
3
3
2.5
0.2
MPa荷重软化开始温度，℃
不低于
1550
1550
1520
1550
显气孔率,%
不大于
18
20
20
20
表3-3
镁铝砖理化指标：
项目
指标
MgO,%
不低于
84
Al2O3+Cr2O3,%
不低于
6-8
显气孔率,%
不大于
17
常温耐压强度
MPa
不低于
45
0.2
MPa荷重软化开始温度，℃
不低于
1630
热震稳定性，次，不低于
4
表3-4
镁铬砖理化：
项目
指标
MGr-20
MGr-16
MGr-12
MGr-8
MgO,%
不低于
40
45
55
60
Cr2O3,%
不低于
20
16
12
8
0.2
MPa荷重软化开始温度，℃
不低于
1550
1550
1550
1530
显气孔率,%
不大于
23
23
23
24
常温耐压强度
MPa
不低于
24.5
24.5
24.5
24.5
3.3
提高产品质量的途径
改善耐火材料质量的途径是提高制品的纯度，减少低融物的数量。提高制品的密度和高温强度，高密度镁质耐火材料和高纯度直接结合镁质耐火材料是近几年镁质耐火材料的主要趋势和方向，改进的措施如下：
1.高纯度原料，高压成型，高温烧成
原料是生产的前提，MgO的含量越高，镁砂的质量越好，制品的结合和抗渣性越强。则制品的质量越好。镁质耐火材料是瘠性料，无结合剂，且不会出现过压现象，因此压力越高，制品的强度越好，进而提高了产品的质量，高温烧成是高纯原料的基础为达到充分的烧结而采取的措施。这可以在液相很少的条件下在砖中形成直接结合的晶体结构。
2.控制C/S：
CaO/SiO2
的比值越小，镁质耐火材料中主晶相方镁石并存的次晶相主要以钙镁橄榄石和蔷薇石等低熔点物相存在。C/S增大，则有C2S和C3S高熔点物相，因此除方镁石以外的次晶相对砖的高温强度有很大的影响。镁质耐火材料的C/S比应控制在获得强度最大值的最佳范围内，C/S比值增大，对镁砖初期的抗侵蚀也有提高。
3.调整制品的矿物组成，提高产生液相的温度，减少液相量
若在镁砂中加入适量的镁铝共磨粉，则可很好的改善砖的性质，其原因是加入的高铝熟料Al2O3与MgO反应生成镁铝尖晶石，次晶相把主晶相的方镁石结合起来，使结合相中镁铝尖晶石增多，CMS和M2S则减少，实践证明，镁铝砖性质许多方面优于镁砖，如热稳定性，荷重软化点以及抗渣性等。
4.控制耐火材料的结构
所谓控制耐火材料结构，即控制其物相的分布，普通的镁砖是全晶相结构，但是由于处于次晶相的起结合作用的CMS等晶相连续分布，而作为主晶体的方镁石则孤主分布，导致镁砖高温性能下降。若采用以方镁石主晶相结合的物相分布则可大大提高镁砖的性质，直接结合砖就是利用这一点。
3.4
直接结合
直接结合砖是从高纯度镁砂，镁质白云石合成砂以及低硅铬矿等优质原料，在高于一般烧成硅的成型压力和烧成温度下制成的镁质，镁铝质或镁白云石质的高级碱性耐火制品。其主要矿物为相为方镁石或方镁石与铬尖晶石之间的晶体直接结合，形成高温下稳定且坚固的组织结构，改变了一般烧成砖主要矿物相之间以低熔点硅酸盐熔体在高温下易熔融失去强度而降低制品的高温性能的缺点，具有高温强度大，而气孔率低，高温下体积稳定性好，荷重变形小，抗渗透性能好的特点。
为了促进砖坯在烧成时矿物相得直接结合，直接结合砖应采用高压成型，高温烧结烧成。成型压力要求1200-1500公斤/平方厘米以上，烧成温度一般在1700℃以上。
3.5
生产方法的选择
确定生产工艺的一般原则：
生产工艺应根据生产规模，产品方案，产品质量要求，技术装备水平，原料及工业试验报告，以及生产实践等因素所确定。
确定生产工艺时，应能满足高级制品须：精料，精配，高温高压的要求。保证生产优质产品；还应考虑资源的合理利用，尽管回收和利用生产过程中产生的废料及废热；应遵循环境保护的有关规定，采取相应的防护措施。确保个人在良好的劳动条件下从事生产及防止厂区环境污染。
1
原料及原料的贮存：
由于镁质耐火材料易水化，故应防潮因此采用封闭式机械化原料仓库，擦办公库内应用桥式抓斗起重机搬运物料。
2
原料的加工
1）粗碎：在原料仓库内进行，减小粉碎工段的振动和噪音，粗碎设备应选用颚式破碎机。
2）粉碎筛分流程的确定。
用于制砖生产的原料，由于配料粒度组成要求严格，一般采用短头圆锥破碎机，其粒度组成较稳定。粉碎后的物料中间颗粒较少，有利于控制砖坯和制品的体积密度和强度。根据镁质制品的配料要求，镁铝砖料一般需双层筛分，为简化生产并保证镁铝砖配料要求，一般设置双层振动筛。
3）磨碎：
根据镁质制品性质及要求，镁砖，镁铝砖，镁铬砖配料用的烧结镁砂不单独磨碎成细粉；为满足基质中成分形成镁铝尖晶石的要求，镁铝砖的生产采用烧结镁砂和高铝熟料混合磨碎。混合粉中的Al2O3含量一般控制在16%—20%。
细磨粉的细度一般控制在小于0.088mm的大于90%，采用的磨碎设备为管磨机。混合磨碎时，供料槽应不少于3个，以保证烧结镁砂，废砖，高铝熟料三种料的需要。
4）配料：
a.镁铝炉顶砖和热稳定性镁铬砖应质量要求严格，一般采用间断粒度多级配料，本次设计采用多级配料。
镁砖三级配料
粗颗粒：中颗粒：细颗粒=70:10:20
镁铝砖三级配料
粗颗粒：中颗粒：细颗粒=50:10:40
镁铬砖三级配料
粗颗粒：中颗粒：细颗粒=45:25:30
粗颗粒
3—0.5mm；中颗粒
0.5—0mm；细粉
＜0.088mm
三级配料应符合“两头大，中间小”的原则，尽量减少中间颗粒。
b.结合剂采用亚硫酸纸浆废液（浓度
1.2g/cm3以上）
c.配料中可加入一部分废砖，但加入过多会影响制品的体密度和高温性能，加入量一般控制在10%—20%。
d．为使配料精确，采用重量配料。
配料槽成排分布，料槽数量应满足品种和储存量的要求。并留有1—3个机动料槽。配料料槽的形状及加料口的位置应有利于减轻颗粒料的偏析。考虑到颗粒料偏析对配料的影响，每个配料槽的储量应按实际贮量的60%—70%计。
配料的设备用微机控制的配料车。配料灵活，精确度高。混合设备不受配料槽位置的限制，可适用多品种，多混合设备的加料。
5）混合：
a.镁质原料属于瘠性料，故其泥料须强化混连。混合时间一般为15—30分钟。镁铝砖应质量要求严格。混合时间多取上限。
b.加料顺序：先加颗粒料待干混均匀后加入部分纸浆废液润湿其表面，然后加入细粉混合并加入剩余的纸浆废液或水至混合均匀。这样可以使细磨粉均匀地包裹在颗粒表面，有助于保证混合的均匀性及减少细粉的结球。
c.混合设备
由于湿碾机的转动和压力对泥料具有碾柔，压实，预先排气和预先密实的作用，使泥料混合均匀，但其产量低，且对颗粒有再粉碎作用破坏原来的颗粒组成，故在采用时应考虑这些因素。
6）成型
因镁质原料是瘠性料。成型较困难，且坯料的水分含量较少，一般不会出现因空气被压缩而产生过压现象，故可采用高压成型设备，使坯体的密度高达2,95g/cm3以上，有利于改善制品的性能。可采用300T
400T
630T或1000T的摩擦压砖机或液压机。
7）砖坯的干燥
镁质砖坯成型水分较少，允许快速干燥。可直接入隧道干燥器干燥。镁质砖坯的干燥过程主要是水分的蒸发及部分MgO水化的过程。随干燥温度的升高而加快。但温度Q加快了MgO的水化，使坯体开裂。在生产实践中干燥介质的入口温度一般为80—120℃。废气的出口温度一般在40—60℃。为了保证坯体干燥后具有一定的强度坯体，干燥后仍保持0.6%左右的水分。为控制MgO在干燥过程中的水化程度，应主要以下几点：
a.
成型后的砖坯应及时干燥。
b.
干燥时宜采用低温大风量方式。
c.
干燥后的砖坯应立即入窑烧成，以免吸潮粉化。
8）烧成
Ⅰ
砖窑：镁质制品在高温下由于强度降低较多，易产生变形。因此装砖高度一般控制在0.7—1.0m以下，且采取平装。
Ⅱ
烧成制度的确定
1
温度制度
镁质制品烧成时，在不同温度阶段应控制不同的升温速度：
a.
小于400℃阶段，砖坯中水分蒸发并伴随有MgO的水化，使砖坯强度降低应设慢升温速度。
b.
400—800℃阶段水化物分解排除结构水，有机物燃烧，可快速升温。
c.
800—1200℃阶段出现液相并伴有固相反应发生，砖坯强度有所下降@@升温速度。
d.
1200℃到烧成阶段，随温度升高液相量增高。固相反应速度加快，砖坯强度降低较多，为防止制品开裂及变型应缓慢升温。
镁砖的烧成温度一般为1550—1600℃；镁铝砖，镁铬砖的烧成温度一般为1600—1640℃。
2
压力制度和窑内气氛
为防止生成的FeO-MgO固溶体。使氧化铁生成MF，又能促进制品的烧结，又不显著降低耐火性能，故一般采用若氧化气氛烧成，压力制度为微正压。
三．设备及原理
3.1破粉碎车间主要设备的构造及工作原理
（1）振动式喂料机
振动式喂料机的激振方式一般为电磁振动，所以又称电磁振动喂料机。电磁振动喂料机由斜槽、电磁激振器、减震器和电器控制箱组成。
工作原理：电磁振动喂料机是属于双质点定向强迫振动机械。由槽体、连接叉、衔铁、工作弹簧的一部分以及约占斜槽容积10%~20%的物料等组成工作质量m1；由激振器壳体、铁芯、线圈及工作弹簧的另一部分等组成对衡质量m2。质量m1和m2之间用激振器主弹簧连接起来，形成一个双质点定向强迫振动的弹性系统。激振器电磁线圈的电流一般是经过单相半波整流。电磁振动喂料机的供电，目前广泛使用可控硅调节的电流通过，在衔铁和铁芯之间便产生相互吸引的脉冲电磁力，使槽体向后运动，激振器的主弹簧发生变形而贮存了一定势能。在负半周内线圈中无电流通过，电磁力消失，借助弹簧贮存的势能使衔铁和铁芯朝相反方向离开，斜槽就向前运动。这样电磁喂料机就以交流电源的频率作3000次/min的往复振动。由于激振力作用线与槽底成一定角度，激振力在任一瞬间可分解为垂直分力和水平分力。前者使物料颗粒以大于重力加速度的加速度向上抛弃，而后者使物料颗粒在上抛期间作水平运动，综合效应就使物料间歇向前作抛物线式的跳跃运动。
（2）颚式破碎机
颚式破碎机是由固定颚（又是机架的前壁），悬挂在轴上的可动颚板，偏心轴，垂直连杆，肘板，传动飞轮。两颚板上的衬板，带有弹簧的拉杆，肘板座，调节块构成。
工作原理：电动机通过皮带使偏心轴旋转时，垂直连杆即向上向下运动，当垂直连杆向上时，带动两块肘板逐渐伸平，肘板迫使可动颚板向固定颚板推进，破碎腔（即由固定颚板和动颚组成的空间）中的矿石受到挤压、劈裂、折屈作用而破碎。垂直连杆向下运动，肘板和可动颚板借弹簧和拉杆之力向后退，此时排矿口增大，被破碎的矿石由此排出。可见颚式破碎机是间断破碎矿石的。偏心轴每转一转只有半个周期用于破碎，其后半个周期用于排矿，两颚板靠近时物料即被破碎，当两颚板离开时小于排料口的料块由底部排出。它的破碎动作是间歇进行的。
（3）圆锥破碎机
中细碎圆锥破碎机主要部件是定锥（又称外锥）和动锥（又称内锥）。定锥主要由调整套和定锥衬板组成；动锥主要由动锥驱体、主轴、动锥衬板和分配盘组成。工作原理：圆锥破碎机中，破碎物料的部件是两个截锥体，动锥固定在主轴上，定锥是机架的一部分，是静置的。主轴的中心线与定锥的中心线成一定角度。主轴悬挂在它们的焦点上，轴的下方活动地插在偏心衬套中。衬套以一定偏心距绕定锥中心轴旋转，是动锥沿定锥的内表面作偏旋运动。当靠近定锥时，物料受到动锥挤压和弯曲作用而被破碎；在偏离定锥处，已破碎的物料由于重力的作用从锥底落下。因为偏心衬套连续转动，动锥也就连续旋转，故破碎过程和卸料过程沿着定锥的内表面连续依次进行。
（4）振动筛
振动筛的筛面振动方向与筛面成一定角度，振动筛工作时，物料在筛面上主要是作相对滑动。振动筛的运动特性有助于筛面上的物料分层，减少筛孔堵塞现象，强化筛分过程。筛体以小振幅（振幅一般为0.5~5mm），高频率（振动为600~3000次/min）作强烈振动，消除物料堵塞现象，使筛机具有较高的筛分效率和处理能力；动力消耗小，构造简单，维修方便；使用范围广，不仅可以用于细筛，也可用于中、粗筛分。并且还可用于脱水和脱泥分力作业。
振动筛因其结构不和筛框运动轨迹不同，大致分为下列类型：
单轴惯性振动筛：偏心振动筛、自定中心振动筛、圆形空间旋转筛。
工作原理：由于激振器的偏心质量作回转运动，它所产生的离心惯性力（称激振力）传递给筛箱，激起筛箱的振动，筛上物料受筛面运动的作用力而连续的作抛掷运动，即物料被抛起前进一段距离后再落至筛面上，这样实现了物料颗粒垂直于筛面的运动，从而提高了筛分效率和处理能力。
双轴惯性振动筛：双轴强制式机械同步振动筛、双电机自同步振动筛、电磁筛、概率筛。
工作原理：双轴惯性振动筛筛箱的振动是由双激振器来实现的。激振器的两个主轴分别装有相同质量和偏心距的重块，两轴之间用一对速比为1的齿轮连接和一台电机驱动，因两轴回转方向相反，转速相等，故两偏心重块产生的离心惯性力在平行于筛面方向相互抵消，在垂直于筛面方向合成。
（5）球磨机
球磨机主要由筒体、衬板、隔仓板、主轴承、进料卸料装置构成。
工作原理：球磨机一般为卧式筒形旋转装置，外沿齿轮传动，两仓，格子型球磨机。物料由进料装置经入料中空轴螺旋均匀地进入磨机第一仓，该仓内有阶梯衬板或波纹衬板，内装不同规格钢球，筒体转动产生离心力将钢球带到一定高度后落下，对物料产生重击和研磨作用。物料在第一仓达到粗磨后，经单层隔仓板进入第二仓，该仓内镶有平衬板，内有钢球，将物料进一步研磨。粉状物通过卸料箅板排出，完成粉磨作业。
（6）斗式提升机
斗式提升机主要由牵引构件、料斗、传动装置、张紧装置、机壳构成。
工作原理：被输送的物料由进料口喂入后，连续被料斗舀起、提升，由机头出料口卸出。
（7）胶带输送机
胶带输送机是工业生产过程中最为普遍的一种连续输送机械，可用于水平方向和坡度不大的倾斜方向对粉体或成件物料的输送。它主要由输送带、托辊、驱动装置、改向装置、拉紧装置、装料及卸料装置、清理装置、制动装置构成。
3.2成型车间主要设备的构造及工作原理
（1）湿碾机
轮碾机通常用于粉碎中等硬度物料，也可作为混合物料之用。主要由碾轮和碾盘组成。为能将物料充分混合均匀，加料时应遵循“先粗后细”“先干后湿”的原则。
工作原理：物料是在碾盘平面与碾轮圆柱形表面之间受到挤压和研磨作用而被粉碎，被粉碎后的物料由固定刮板刮到筛板上，能够通过筛孔的物料
在斜槽中由活动刮板送至卸料口卸出。用作破碎时，产品的平均尺寸3～8mm；粉磨时为0.3～0.5mm。
（2）摩擦压砖机
主要由主动轮（左右对称的一组）、从动轮、传动螺杆、控制手柄、成型模具组成。
工作原理：主动轮一直旋转着，有一组控制手臂能够控制其在水平方向移动。当一个主动轮靠在从动轮时，由于摩擦力的存在，从动轮转动，带动传动螺杆转动，完成在垂直方向的上（或下）移动。当另一个主动轮靠在从动轮上时，则向相反的方向转动，进而完成在垂直方向的反向移动。操作人员将混合好的物料装入模具中，由于砖坯（标准件）的四角和八条楞容易破坏，装料时要遵循“四角扒料”原则，压成时也要遵循“先轻后重”的原则，即第一次轻压。
3.3隧道窑的构造及工作原理
隧道窑一般是一条长的直线形隧道，其两侧及顶部有固定的墙壁及拱顶，底部铺设的轨道上运行着窑车。燃烧设备设在隧道窑的中部两侧，构成了固定的高温带--烧成带，燃烧产生的高温烟气在隧道窑前端烟囱或引风机的作用下，沿着隧道向窑头方向流动，同时逐步地预热进入窑内的制品，这一段构成了隧道窑的预热带。在隧道窑的窑尾鼓入冷风，冷却隧道窑内后一段的制品，鼓入的冷风流经制品而被加热后，再抽出送入干燥器作为干燥生坯的热源，这一段便构成了隧道窑的冷却带。在台车上放置装入陶瓷制品的匣钵，连续地由预热带的入口慢慢地推入（常用机械推入），而载有烧成品的台车，就由冷却带的出口渐次被推出来（约1小时左右，推出一车）。
耐火材料用隧道窑按使用温度可分为三类：
1）低温隧道窑－烧成温度约1000℃，主要用于焙烧滑板砖和其它一些有特殊工艺要求的制品。
2）中温隧道窑：烧成温度1300℃～1650℃，主要用于烧成普通碱性砖、粘土砖、高铝砖、滑板砖、水口砖、硅砖等制品。
3）高温隧道窑：烧成温度大于1700℃，一般介于1800℃～1900℃，主要用于烧成中档镁砖、高纯镁砖、直接结合镁铬砖、镁铝质及刚玉质等制品。硅砖隧道窑一般长150m～180m，车台面至窑顶的高度为1.6m～1.9m；碱性砖隧道窑一般长80m～100m，车台面至窑顶的高度～1m等。
四．实习感受
做为大学的最后一次实习，三周的时间里，中钢集团洛阳耐火材料厂使我们收益良多，我们完整和系统的学习了耐火材料的整个生产流程，从原料的进厂和成品的出厂，我们看到了仿佛魔术一般神奇的变化，一堆堆不起眼的矿渣和泥土，在一转眼间就变成了充满经济效益的耐火材料，而这个神奇的过程，就是我们这门课程的意义所在。我们在这段毕业实习中，将所学的和所见的，有机结合起来。将冷僻的文字和活生生的生产流程贯穿起来，能充分了解到每一台机器，每一个流程的作用和意义。有了这段经历，我们对耐火材料的工艺有了深刻的认识，也为今后的实际工作打下了坚实的基础。在此，我再次感谢中钢集团给我们的这次实习机会，和带队导师给我们的指导。我必将用我所学来报答我们伟大的祖国，让我们的祖国更加繁荣昌盛。
参考文献：
[1]
徐维忠.耐火材料.冶金工业出版社，1992，1-1
[2]
袁林,王杰曾.碱性耐火材料的最新进展.耐火耐磨材料.1995，36-38
[3]
陈肇友，陈铜.炼镍用耐火材料的选择与发展.耐火材料,1992,26
[4]
薛群虎.耐火材料工艺设计概论.冶金工业出版社.2002.7
157-159
[5]
李锦文.耐火材料机械设备.冶金工业出版社.1985.56-62
[6]
姜金宁.耐火材料热工过程及设备.冶金工业出版社.1995.185-189
第
20
页
篇3：《电算实习报告》
《电算实习报告》word版 本文关键词：电算，实习报告，word
《电算实习报告》word版 本文简介：结构力学电算实习报告姓名:***学号:********摘要:现实生活中往往存在一些很复杂的连续梁模型，它们的支撑性质和受力特点都比较复杂，结构力学电算则是将它们有规律的进行简化，最后将其所有已知的性质表达为一组数据，将这些数据输入到我们所编好的程序中，既可以得到我们所要求一些量如：杆端力，各截面内力
《电算实习报告》word版 本文内容：
结构力学电算实习报告
姓名:***
学号:********
摘
要:
现实生活中往往存在一些很复杂的连续梁模型，它们的支撑性质和受力特点都比较复杂，结构力学电算则是将它们有规律的进行简化，最后将其所有已知的性质表达为一组数据，将这些数据输入到我们所编好的程序中，既可以得到我们所要求一些量如：杆端力，各截面内力，某界面的内力影响线等。
关键词：连续梁、电算程序、截面内力
程序功能：连续梁程序可对连续梁结构进行相关的计算。能够计算在任意形式均布荷载、跨中集中力荷载、跨中力偶荷载、节点力偶荷载组合下连续梁单元的杆端力，也可计算连续梁各截面内力，从而绘制连续梁的弯矩图。
影响线程序可以计算单位1集中力荷载作用下的指定截面中内力在单位1载荷按指定距离移动情况下的变化情况，从而提取数据绘制影响线。
使用说明：
（1）连续梁内力程序
在连续梁计算程序（.exe文件）所在文件夹中建立一新的txt文件，并命名（1.txt）。在文件其中依次输入单元数、支承类型、节点荷载个数、非节点荷载个数、指定截面个数、弹性模量、杆长;;;;;;;;;;;;;;;;;;;;所求截面内力;;;;;;;;;;;;;;;;;;;;
截面
1
弯矩=
2.272
剪力=
-.043
截面
2
弯矩=
-1.471
剪力=
-2.942
截面
3
弯矩=
4.412
剪力=
-2.942
截面
4
弯矩=
-2.621
剪力=
-7.083
截面
5
弯矩=
3.546
剪力=
.917
截面
6
弯矩=
-7.073
剪力=
1.907
截面
7
弯矩=
4.888
剪力=
1.907
======================
计算结束
======================
根据此得出数据，绘制连续梁弯矩图：
如下：
算例2：求图示结构1、2截面的剪力影响线。
输入数据：
3
1
2
1
1
4
4
5
5
6
6
1
2
2
1
输出结果：**********连续梁弯矩剪力影响线计算*****************
单元数=
3
支承类型=
1
要求影响线数量=
2
弹性模量=
1.0000
单位荷载每次移动距离
1.0000
杆长,惯性矩
GC(NE),GX(NE)
4.000
4.000
5.000
5.000
6.000
6.000
截面所在单元号，距离
1.000
2.000
2.000
1.000
单位力所在单元号
1
距离
1.0000
截面
1
弯矩=
.375
剪力=
.313
截面
2
弯矩=
-.187
剪力=
-.062
单位力所在单元号
1
距离
2.0000
截面
1
弯矩=
.800
剪力=
-.400
截面
2
弯矩=
-.300
剪力=
-.100
单位力所在单元号
1
距离
3.0000
截面
1
弯矩=
.325
剪力=
-.163
截面
2
弯矩=
-.262
剪力=
-.087
单位力所在单元号
1
距离
4.0000
截面
1
弯矩=
.000
剪力=
.000
截面
2
弯矩=
.000
剪力=
.000
单位力所在单元号
2
距离
1.0000
截面
1
弯矩=
-.160
剪力=
.080
截面
2
弯矩=
.512
剪力=
-.832
单位力所在单元号
2
距离
2.0000
截面
1
弯矩=
-.200
剪力=
.100
截面
2
弯矩=
.216
剪力=
-.616
单位力所在单元号
2
距离
3.0000
截面
1
弯矩=
-.160
剪力=
.080
截面
2
弯矩=
.064
剪力=
-.384
单位力所在单元号
2
距离
4.0000
截面
1
弯矩=
-.080
剪力=
.040
截面
2
弯矩=
.008
剪力=
-.168
单位力所在单元号
2
距离
5.0000
截面
1
弯矩=
.000
剪力=
.000
截面
2
弯矩=
.000
剪力=
.000
单位力所在单元号
3
距离
1.0000
截面
1
弯矩=
.051
剪力=
-.025
截面
2
弯矩=
.000
剪力=
.102
单位力所在单元号
3
距离
2.0000
截面
1
弯矩=
.074
剪力=
-.037
截面
2
弯矩=
.000
剪力=
.148
单位力所在单元号
3
距离
3.0000
截面
1
弯矩=
.075
剪力=
-.038
截面
2
弯矩=
.000
剪力=
.150
单位力所在单元号
3
距离
4.0000
截面
1
弯矩=
.059
剪力=
-.030
截面
2
弯矩=
.000
剪力=
.119
单位力所在单元号
3
距离
5.0000
截面
1
弯矩=
.032
剪力=
-.016
截面
2
弯矩=
.000
剪力=
.065
单位力所在单元号
3
距离
6.0000
截面
1
弯矩=
.000
剪力=
.000
截面
2
弯矩=
.000
剪力=
.000
======================
计算结束
======================
1截面弯矩影响线
1截面剪力影响线
截面2的弯矩剪力影响线同理，不再做出。
附：
程序清单（程序中含有注释）
（1）连续梁内力程序
PROGRAM
LXL
DIMENSION
GC(20),GX(20),PJ(20,2),PF(10,4),sqjm(20,2),DK(2,2),P(45),1,F0(2),WY(2),F(2),ZK1(45),ZK2(45),gd(20,2),qdnl(20,2)
character*12
dat0,dat1
write(*,*)
输入:初始数据文件名
read(*,10)dat0
write(*,*)
输入:计算结果数据文件名
read(*,10)dat1
10
format(A12)
open(8,file=dat0,status=
old
)
open(9,file=dat1,status=
new
)
write(9,11)
11
format(8x,*************连续梁内力计算*****************
)
READ(8,*)NE,NZ,NP,NF,njm,E0
WRITE(9,12)NE,NZ,NP,NF,njm,E0
12
FORMAT(1X,单元数=,6x,I3,5x,支承类型=,I3,5x,节点荷载个数=
I3,/,1
1x,非节点荷载个数=,I3,5x,指定截面个数=,i3,5x,弹性模量=,F12.,14)
NJ=NE+1
CALL
SRSJ(NE,NP,NF,GC,GX,PJ,PF,sqjm,njm)
CALL
XCP(NJ,NP,NF,NE,P,PJ,PF,F0,GC)
CALL
JCZK(NE,NJ,E0,ZK1,ZK2,DK,GC,GX)
CALL
ZCCL(NZ,NJ,ZK1,ZK2,P)
CALL
FCQJ(NJ,ZK1,ZK2,P)
CALL
SCWY(NJ,P)
CALL
GDL(NE,NJ,NF,E0,P,WY,F,F0,DK,PF,GC,GX,gd)
call
jmnl(gd,sqjm,njm,qdnl,gc,ne,nf,pf)
END
C***********************************
c
输入初始数据SRSJ子程序
C***********************************
SUBROUTINE
SRSJ(NE,NP,NF,GC,GX,PJ,PF,sqjm,njm)
DIMENSION
GC(NE),GX(NE),PJ(NP,2),PF(NF,4),sqjm(njm,2)
csqjm:所求截面
njm:截面数目
sqjm(njm,1)=所属单元
sqjm(njm,2)=距左端距离
C
GC(NE)：杆长
GX(NE)：惯性矩
C
结点荷载:PJ(NP,1)=荷载大小
PJ(NP,2)=对应未知数序号
C
非结点荷载
:
PF(NE,1)=荷载大小
PF(NE,2)=距离
PF(NE,3)=单元号
PF(NE,4)=荷载类型号
WRITE(9,11)
11
FORMAT(1X,杆长,惯性矩
GC(NE),GX(NE)
)
READ(8,*)(GC(I),GX(I),I=1,NE)
write(9,12)(GC(I),GX(I),I=1,NE)
12
FORMAT(10X,2F8.3)
IF(NP.GT.0)THEN
WRITE(9,22)
22
FORMAT(1X,节点荷载大小,对应未知数序号
PJ(I,1),PJ(I,2)
)
READ(8,*)(PJ(I,1),PJ(I,2),I=1,NP)
write(9,23)(PJ(I,1),PJ(I,2),I=1,NP)
23
FORMAT(1X,2F8.3)
END
IF
IF(NF.GT.0)
THEN
WRITE(9,33)
33
FORMAT(1X,非结点荷载值,距离,单元号,荷载类型号
)
READ(8,*)((PF(I,J),J=1,4),I=1,NF)
WRITE(9,34)((PF(I,J),J=1,4),I=1,NF)
34
FORMAT(1X,4F8.3)
END
IF
if(njm.gt.0)
then
write(9,35)
35
format(1x,截面所在单元号，距离
)
read(8,*)((sqjm(i,j),j=1,2),i=1,njm)
write(9,36)((sqjm(i,j),j=1,2),i=1,njm)
36
format(1x,2f8.3)
end
if
END
C******************************#***************
c
计算第NHF个非结点荷截引起的等效结点荷截列阵F0
C**********************************************
SUBROUTINE
DJH(NHF,NE,NF,PF,F0,GC)
DIMENSION
PF(NF,4),F0(2),GC(NE)
C
G—荷载值,C—作用距离,NT--单元号,ID—荷载类型号
G=PF(NHF,1)
C=PF(NHF,2)
NT=INT(PF(NHF,3)+0.1)
ID=INT(PF(NHF,4)+0.1)
BL=GC(NT)
D=BL-C
C1=C/BL
C2=C1*C1
GOTO(10,20,30),ID
C
均布荷载作用下的等效荷载列阵F0(2)
10
F0(1)=G*C*C*(6.0-8.0*C1+3.0*C2)/12.0
F0(2)=-G*C*C*C*(4.0-3.0*C1)/12.0/BL
GOTO
200
C
集中力作用下的等效荷截列阵P0(2)
20
F0(1)=G*C*D*D/BL/BL
F0(2)=-G*D*C2
goto
200
C跨中力偶作用下的等效荷载列阵Q0(2)
30F0(1)=+(6.0*G*c*c/bl/bl-6.0*g*c/bl+(2.0*g*c*bl-3.0*g*c*c)/bl/bl+g)
F0(2)=-(2.0*g*c*bl-3.0*g*c*c)/bl/bl
200
RETURN
END
C*****************************************
c
计算第NE0个单元的单元刚度矩阵DK(2,2)
C*****************************************
SUBROUTINE
DG(NE0,NE,E0,GC,GX,DK)
DIMENSION
GC(NE),GX(NE),DK(2,2)
DO
15
I=1,2
DO
10
J=1,2
DK(I,J)=0.0
10
CONTINUE
15
CONTINUE
C
DL—杆长,DI-惯性矩,S--线刚度
DL=GC(NE0)
DI=GX(NE0)
S=E0*DI/DL
DK(1,1)=4.0*S
DK(1,2)=2.0*S
DK(2,1)=2.0*S
DK(2,2)=4.0*S
END
c********************************************************
C
集成总体刚度矩阵,ZKl,ZK2分别存主对角元素和付对角元素
c********************************************************
SUBROUTINE
JCZK(NE,NJ,E0,ZK1,ZK2,DK,GC,GX)
DIMENSION
ZK1(NJ),ZK2(NJ),DK(2,2),GC(NE),GX(NE)
DO
10
I=1,NJ
ZK1(I)=0.0
ZK2(I)=0.0
10
CONTINUE
DO
100
I=1,NE
CALL
DG(I,NE,E0,GC,GX,DK)
ZK1(I)=ZK1(I)+DK(1,1)
ZK2(I)=ZK2(I)+DK(1,2)
ZK1(I+1)=ZK1(I+1)+DK(2,2)
100
CONTINUE
END
C****************************
C
形成总荷裁矩阵
C****************************
SUBROUTINE
XCP(NJ,NP,NF,NE,P,PJ,PF,F0,GC)
DIMENSION
P(NJ),PJ(NP,2),PF(NF,4),F0(2),GC(NE)
DO
10
I=1,NJ
P(I)=0.0
10
CONTINUE
IF(NP.GT.0)
THEN
DO
20
I=1,NP
J=INT(PJ(I,2)+0.1)
P(J)=PJ(I,1)
20
CONTINUE
END
IF
IF(NF.GT.0)
THEN
DO
100
NF0=1,NF
CALL
DJH(NF0,NE,NF,PF,F0,GC)
ND=INT(PF(NF0,3)+0.1)
P(ND)=P(ND)+F0(1)
P(ND+1)=P(ND+1)+F0(2)
100
CONTINUE
END
IF
END
c*********************************
c
进行支承条件处理
c*********************************
SUBROUTINE
ZCCL(NZ,NJ,ZK1,ZK2,P)
DIMENSION
ZK1(NJ),ZK2(NJ),P(NJ)
GOTO(10,20,30,20),NZ
10
GOTO
100
20
ZK1(1)=1.0
P(1)=0.0
ZK2(1)=0.0
IF(NZ.EQ.4)
GOTO
30
GOTO
100
30
ZK1(NJ)=1.0
ZK2(NJ-1)=0.0
P(NJ)=0.0
100
CONTINUE
END
c*****************************
c
解方程求节点位移P
c*****************************
SUBROUTINE
FCQJ(NJ,ZK1,ZK2,P)
DIMENSION
ZK1(NJ),ZK2(NJ),P(NJ)
DO
10
I=1,NJ-1
ZK1(I+1)=ZK1(I+1)-ZK2(I)*ZK2(I)/ZK1(I)
P(I+1)=P(I+1)-ZK2(I)*P(I)/ZK1(I)
10
CONTINUE
P(NJ)=P(NJ)/ZK1(NJ)
DO
20
I=1,NJ-1
P(NJ-I)=(P(NJ-I)-ZK2(NJ-I)*P(NJ-I+1))/ZK1(NJ-I)
20
CONTINUE
END
c******************************
c
输出位移
c******************************
SUBROUTINE
SCWY(NJ,P)
DIMENSION
P(NJ)
WRITE(9,10)
10
FORMAT(1X,：：：：：：：：：位
移
：；：：：：：：：：
)
DO
100
I=1,NJ
WRITE(9,20)I,P(I)
20
FORMAT(1X,结点号=,I2,5X,F10.4)
100
CONTINUE
END
c*****************************
c
计算单元杆端内力
c****************
SUBROUTINE
GDL(NE,NJ,NF,E0,P,WY,F,F0,DK,PF,GC,GX,gd)
DIMENSION
P(NJ),WY(2),F(2),F0(2),DK(2,2),PF(NF,4)
DIMENSION
GC(NE),GX(NE),gd(ne,2)
WRITE(9,2)
2
FORMAT(1X,.各单元杆端内力
)
DO
200
NE0=1,NE
CALL
DG
(NE0,NE,E0,GC,GX,DK)
WY(1)=P(NE0)
WY(2)=P(NE0+1)
DO
35
I=1,2
F(I)=0.0
DO
30
J=1,2
F(I)=F(I)+DK(I,J)*WY(J)
30
CONTINUE
35
CONTINUE
IF(NF.GT.0)
THEN
DO
50
I=1,NF
IF(INT(PF(I,3)+0.1).EQ.NE0)
THEN
CALL
DJH(I,NE,NF,PF,F0,GC)
DO
40
J=1,2
F(J)=F(J)-F0(J)
40
CONTINUE
END
IF
50
CONTINUE
END
IF
WRITE(9,150)
NE0,F(1),F(2)
gd(ne0,1)=f(1)!将杆端力数据存入内存
以备调用
gd(ne0,2)=f(2)
150
FORMAT(1X,单元号=,I2,5X,左端弯矩=,F9.3,2X,右端弯矩=,F9.3)
200
CONTINUE
end
c********************************************
c计算任意截面的弯矩和剪力（利用叠加法）
c***********************
subroutine
jmnl(gd,sqjm,njm,qdnl,gc,ne,nf,pf)
dimension
gd(ne,2),sqjm(njm,2),gc(ne),qdnl1(nf,njm,2),pf(nf,4),qdn，
1l(njm,2)
c
qdnl(njm,1)=弯矩
qdnl(njm,2)=剪力
c
取左侧梁为隔离体，弯矩逆时针为正，剪力向上为正，
write(9,20)
20format(1x,;;;;;;;;;;;;;;;;;;;;;所求截面内力;;;;;;;;;;;;;;;;;;;;
)
do
njm0=1,njm!按要求的截面顺序循环
dyh=sqjm(njm0,1)
qdnl(njm0,2)=-(gd(dyh,2)+gd(dyh,1))/gc(dyh)!单元上无荷载情况
qdnl(njm0,1)=-(gd(dyh,1)+qdnl(njm0,2)*sqjm(njm0,2))
do
nf0=1,nf
c=pf(nf0,2)
d=gc(dyh)-c
if((abs(pf(nf0,3)-dyh)=sqjm(njm0,2)))
then
if(pf(nf0,4)==1)then
!单元上有均布荷载且荷载结束位置在所求截面左侧
qdnl1(nf0,njm0,2)=pf(nf0,1)*c*(2.0*gc(dyh)-c)/2.0/gc(dyh)-pf(nf0,1,1)*sqjm(njm0,2)
qdnl1(nf0,njm0,1)=-(pf(nf0,1)*c*(2.0*gc(dyh)-c)/2.0/gc(dyh)*sqjm(n,1jm0,2)-pf(nf0,1)*sqjm(njm0,2)*sqjm(njm0,2)/2.0)
else
if(pf(nf0,4)==2)then
!单元上有集中力荷载且位置在所求截面左侧
qdnl1(nf0,njm0,2)=pf(nf0,1)*d/gc(dyh)
qdnl1(nf0,njm0,1)=-qdnl1(nf0,njm0,2)*sqjm(njm0,2)
else
if(pf(nf0,4)==3)then
!单元上有集中力偶且位置在所求截面左侧
qdnl1(nf0,njm0,2)=-pf(nf0,1)/gc(dyh)
qdnl1(nf0,njm0,1)=-qdnl1(nf0,njm0,2)*sqjm(njm0,2)
end
if
else
if((abs(pf(nf0,3)-dyh)=sqjm(njm0,2)))
then
qdnl1(1,njm0,2)=-1.0*d/gc(dyh)
qdnl1(1,njm0,1)=-qdnl1(1,njm0,2)*sqjm(njm0,2)
else
if((abs(pf(1,2)-dyh)<1.0e-6).and.(p