rtr

f(x,:)不行吧，如果x不是整数呢？如果可以这样表示的话，第一行赋零应该是f(x,:)=0另外公式里的di应该是随i变化的，但你的程序里是常数

应该去找一些专业的人士来帮助你求取这个公式，我对于这一方面不是很了解，要不然你可以去书中查找一些，看如何求取。

鲁迅，1882年9月25日出生于绍兴都昌坊口一个封建士大夫家庭，7岁启蒙，12岁就读于三味书屋，勤学好问，博闻强记，课余喜读野史笔记及民间文学书籍，对绘画艺术产生浓厚兴趣，自此打下坚实的文化基础。他不囿于四书五经，多方寻求课外读物，努力掌握历史文化知识。 绍兴的悠久历史和灿烂文化，特别是众多越中先贤的道德文章，给鲁迅的思想以很大的熏陶和影响。鲁迅少年时代，祖父因科场案下狱，父亲病故，家道从此中落。鲁迅由一个封建士大夫大家庭的长房长孙，变成了一个破落户子弟。家庭所遭受的一系列重大变故，使少年鲁迅饱受人间冷暖，世态炎凉，看到了“世人的真面目”，认识到封建社会的腐朽和没落。鲁迅母亲鲁瑞，农民的女儿，品格高尚，对鲁迅影响很大。 1898年春，鲁迅离开故乡，满怀人生新的希望，考入了南京江南水师学堂，翌年，因不满学堂的“乌烟瘴气”，改入江南陆师学堂附设的矿务铁路学堂。他广泛接触西方自然科学和社会科学，阅《时务报》，看《天演论》，深受维新思潮和进化论学说的影响，初步形成“将来必胜于过去，青年必胜于老人”的社会发展观。 1902年，鲁迅以优异的成绩毕业，被官派赴日留学。他先入东京弘文学院学习日语，后入仙台医学专门学校习医。因深受资产阶级民主革命浪潮的影响，积极投身于反清革命的洪流之中，课余“赴会馆，跑书店，往集会，听讲演”，立下了“我以我血荐轩辕”的誓言。1906年，鲁迅在事实面前，有感于国内同胞的愚弱，认识到改变国民性的重要，便毅然弃医从文，迈出了人生道路上具有决定意义的一步，选择了文学艺术，以笔作为自己救国救民的战斗武器。他参与筹办文艺杂志《新生》，撰写了《人之历史》、《科学史教篇》、《文化偏至论》、《摩罗诗力说》等早期重要论文。鲁迅认为，中国的严重问题在于人，不在于物；在于精神，不在于物质；在于个性，不在于“众人”；要“立国”，必先“立人”，而“立人”的关键，在于个性的觉醒与精神的振奋。 辛亥革命前夜，鲁迅回到祖国，先在杭州的浙江两级师范学堂执教，担任化学、生理学教员，后又回到故乡绍兴，担任绍兴府中学堂监学兼博物教员、山会初级师范学堂监督（校长）。他一方面教书育人，培养青年， 一方面积极投身于辛亥革命。 他领导故乡文学团体“越社”， 支持创办《越铎日报》。 1912年初， 鲁迅应教育总长蔡元培之邀，赴南京临时政府教育部任职，不久，随教育部迁至北京，任社会教育司第一科科长，同时先后受聘于北京大学、北京高等师范学校、北京女子高等师范学校等一些高等院校，担任校外兼职讲师。 俄国十月革命胜利后，鲁迅深受鼓舞，与李大钊、陈独秀等当时许多先进知识分子一起，写文章，办杂志，揭开了中国五四运动的序幕。他站在反帝反封建的前列，积极提倡新文化、新思想、新道德，猛烈抨击几千年来的旧文化、旧思想、旧道德。1918年，他发表了我国现代文学史上第一篇白话小说《狂人日记》，小说通过象征的艺术手法，无情地揭露了中国几千年封建社会吃人的本质，强烈地控诉了封建礼教和封建宗法制度的罪恶。此后，鲁迅“一发而不可收”，以彻底的不妥协的姿态，创作了《孔乙己》、《药》、《阿Q正传》等许多小说和大量杂文、随笔、评论，从而成为五四五四运动的先驱和中国现代文学的奠基人。 1926年夏，鲁迅离开北洋军阀盘踞的北京，南下厦门，担任厦门大学中国文学系教授，同时兼任国学院教授。1927年初，鲁迅又转赴当时的革命中心广州，担任了中山大学中文系主任，同时兼任教务主任，一边从事教育和文学创作，一边投入新的战斗。同年4月，反革命政变发生，鲁迅经受了腥风血雨的考验，因营救学生无果，愤而辞职。在血的教训面前，鲁迅早年形成的社会发展观发生了深刻的变化，他严厉解剖自己的思想，纠正了过去只信进化论的“偏颇”，从此，他的思想发展进入了一个崭新的起点。 20年代中期，参与创办《莽原》周刊、《语丝》周刊和文学社团末名社。1927年初到广州中山大学任文学系主任兼教务主任。1927年8月到厦门大学任教授。 1927年10月，鲁迅到了上海，从此定居下来，集中精力从事革命文艺运动。1928年与郁达夫创办《奔流》杂志。193O年，中国左翼作家联盟成立，他是发起人之一，也是主要领导人，曾先后主编《萌芽》、《前哨》、《十宇街头》、《译文》等重要文学期刊。他参加和领导了中国左翼作家联盟、中国自由运动大同盟和中国。

1、这是大纲，可以看一下。2、历年真题在5年（具体记不清）之内是不准泄漏的，现在见到的都是记忆版，即考生考完凭记忆写下来的。3、今年是第五年，05年开始考的4、专门的建筑书店里有卖参考书的5、只有现在工作15年以上才有可能免考基础，89级是最后一级免考基础的。6、7、我也不是很明白，考试可以带规范的，但要是正版，最好看一下，否则到时翻书都找不到公式注册公用设备工程师(动力)执业资格考试基础考试大纲 一、高等数学 1．1空间解析几何 向量代数 直线 平面 柱面 旋转曲面 二次曲面 空间曲线 1．2微分学 极限 连续导数 微分 偏导数 全微分导数与微分的应用 1．3积分学 不定积分 定积分 广义积分 二重积分 三重积分平面曲线积分 积分应用 1．4无穷级数 数项级数 幂级数 泰勒级数 傅里叶级数 1．5常微分方程 可分离变量方程 一阶线性方程 可降阶方程 常系数线性方程 1．6概率与数理统计 随机事件与概率 古典概型 一维随机变量的分布和数字特征 数理 统计的基本概念 参数估计 假设检验 方差分析 一元回x／刁分析 1．7向量分析 1．8线性代数 行列式 矩阵 n维向量 线性方程组 矩阵的特征值与特征向量 二次型 二、普通物理 2．1热学 气体状态参量 平衡态 理想气体状态方程 理想气体的压力和温度 的统计解释 能量按自由度均分原理 理想气体内能 平均碰撞次数 和平均自由程 麦克斯韦速率分布律 功 热量 内能 热力学第一 定律及其对理想气体等值过程和绝热过程的应用 气体的摩尔热容循环过程 热机效率 热力学第二定律及其统计意义 可逆过程和不可逆过程 熵 2．2波动学 机械波的产生和传播 简谐波表达式 波的能量 驻波 声速 超声波 次声波 多普勒效应 2．3光学 相干光的获得 杨氏双缝干涉 光程 薄膜干涉迈克尔干涉仪 惠 更斯一菲涅耳原理 单缝衍射 光学仪器分辨本领 x射线衍射 自 然光和偏振光 布儒斯特定律 马吕斯定律 双折射现象 偏振光的 干涉 人工双折射及应用 三、普通化学 3．1物质结构与物质状态 原子核外电子分布 原子、离子的电子结构式 原子轨道和电子云概 念 离子键特征共价键特征及类型 分子结构式 杂化轨道及分子空 间构型 极性分子与非极性分子 分子间力与氢键 分压定律及计算 液体蒸气压 沸点 汽化热 晶体类型与物质性质的关系 3．2溶液 溶液的浓度及计算非电解质稀溶液通性及计算 渗透压概念电解质 溶液的电离平衡 电离常数及计算 同离子效应和缓冲溶液 水的离 子积及PH值 盐类水解平衡及溶液的酸碱性 多相离子平衡 溶度积 常数 溶解度概念及计算 3．3周期表 周期表结构 周期 族 原子结构与周期表关系 元素性质 氧化物 及其水化物的酸碱性递变规律 3．4化学反应方程式 化学反应速率与化学平衡 化学反应方程式写法及计算 反应热概念 热化学反应方程式写法化学反应速率表示方法 浓度、温度对反应速率的影响 速率常数与 反应级数 活化能及催化剂概念 化学平衡特征及平衡常数表达式 化学平衡移动原理及计算 压力熵 与化学反应方向判断 3．5氧化还原与电化学 氧化剂与还原剂 氧化还原反应方程式写法及配平 原电池组成及符 号 电极反应与电池反应 标准电极电势 能斯特方程及电极电势的 应用 电解与金属腐蚀 3．6有机化学 有机物特点、分类及命名 官能团及分子结构式 有机物的重要化学反应：加成 取代 消去 氧化 加聚与缩聚 典型有机物的分子式、性质及用途： 甲烷 乙炔 苯 甲苯 乙醇 酚 乙醛 乙酸 乙酯 乙胺 苯胺 聚氯乙烯 聚乙烯 聚丙烯酸 酯类 工程塑料(ABS) 橡胶 尼龙66 四、理论力学 4．1静力学 于衡 刚体 力 约束 静力学公理 受力分析 力对点之矩 力对 轴之矩 力偶理论 力系的简化 土矢 主矩 力系的平衡 物体系 统(含平面静定桁架)的平衡 滑动摩擦 摩擦角 自锁 考虑滑动摩 擦时物体系统的平衡 重心 4．2运动学 点的运动方程 轨迹 速度和加速度 刚体的平动 刚体的定轴转动 转动方程 角速度和角加速度 刚体内任一点的速度和加速度 4．3动力学 动力学基本定律 质点运动微分方程 动量 冲量 动量定理 动量守恒的条件 质心 质心运动定理 质心运动守恒的条件动量矩 动量矩定理 动量矩守恒的条件 刚体的定轴转动微分方程 转动惯量 回转半径 转动惯量的平行轴定理 功 动能 势能 动 能定理 机械能守恒 惯性力 刚体惯性力系的简化 达朗伯原理 单自由度系统线性振动的微分方程振动周期 频率和振幅 约束 自由度 广义坐标 虚位移 理想约束 虚位移原理 五、材料力学 5．1轴力和轴力图 拉、压杆横截面和斜截面上的应力 强度条件虎克定律和位移计算应变能计算 5．2剪切和挤压的实用计算 剪切虎克定律 切(剪)应力互等定理 5．3外力偶矩的计算 扭矩和扭矩图 圆轴扭转切(剪)应力及强度条件 扭转角计算及刚度条件 扭转应变能计算 5．4静矩和形心 惯性矩和惯性积 平行移轴公式 形心土惯性矩 5．5梁的内力方程 切(剪)力图和弯矩图 分布载荷、剪力、弯矩之间 的微分关系 正应力强度条件 切(剪)应力强度条件 梁的合理截 面 弯曲中心概念 求梁变形的积分法 叠加法和卡氏第二定理 5.6平面应力状态分析的数值解法和图解法 一点应力状态的土应力和最大切(剪)应力 广义虎克定律 四个常用的强度理论 5．7斜弯曲 偏心压缩(或拉伸) 拉—弯或压—弯组合 扭—弯组合 5．8细长压杆的临界力公式 欧拉公式的适用范围 临界应力总图和经验公式 压杆的稳定校核 六、流体力学 6．1流体的主要物理性质 6．2流体静力学 流体静压强的概念 重力作用下静水压强的分布规律 总压力的计算 6．3流体动力学基础以流场为对象描述流动的概念 流体运动的总流分析 恒定总流连续性方程、能量方程和动量方程 6．4流动阻力和水头损失 实际流体的两种流态一层流和紊流 圆管中层流运动、紊流运动的特征 沿程水头损失和局部水头损失 边界层附面层基本概念和绕流阻力 6．5孔口、管嘴出流 有压管道恒定流 6．6明渠恒定均匀流 6．7渗流定律井和集水廊道 6．8相似原理和量纲分析 6．9流体运动参数(流速、流量、压强)的测量 七、计算机应用基础 7．1计算机基础知识 硬件的组成及功能 软件的组成及功能 数制转换 7．2 Windows操作系统 基本知识、系统启动 有关目录、文件、磁盘及其它操作 网络功能 注：以Windows98为基础 7．3计算机程序设计语言 程序结构与基本规定 数据 变量 数组 指针 赋值语句 输入输出的语句 转移语句 条件语句 选择语句 循环语句 函数 子程序(或称过程) 顺序文件 随机文件 注：鉴于目前情况，暂采用FORTRAN语言 八、电工电子技术 8．1电场与磁场 库仑定律 高斯定理 环路定律 电磁感应定律 8．2直流电路 电路基本元件 欧姆定律 基尔霍夫定律 叠加原理 戴维南定理 8．3正弦交流电路 正弦量三要素 有效值 复阻抗 单相和三相电路计算 功率及功率 因数 串联与并联谐振 安全用电常识 8．4 RC和RL电路暂态过程 三要素分析法 8．5变压器与电动机 变压器的电压、电流和阻抗变换 三相异步电动机的使用 常用继电一接触器控制电路 8．6二极管及整流、滤波、稳压电路 8．7三极管及单管放大电路 8．8运算放大器 理想运放组成的比例 加、减和积分运算电路 8．9门电路和触发器 基本门电路 RS、D、JK触发器 九、工程经济 9．1现金流量构成与资金等值计算 现金流量 投资 资产 固定资产折旧 成本 经营成本 销售收入 利润 工程项目投资涉及的主要税种 资金等值计算的常用公式及应 用 复利系数表的用法 9．2投资经济效果评价方法和参数 净现值 内部收益率 净年值 费用现值 费用年值 差额内部收益 率 投资回收期 基准折现率 备选方案的类型 寿命相等方案与寿 命不等方案的比选 9．3不确定性分析 盈亏平衡分析 盈亏平衡点 固定成本 变动成本 单因素敏感性分 析 敏感因素 9．4投资项目的财务评价 工业投资项目可行性研究的基本内容 投资项目财务评价的目标与工作内容 赢利能力分析 资金筹措的土 要方式 资金成本 债务偿还的主要方式 基础财务报表 全投资经济效果与自有资金经济效果 全投资现金流量表与自有资金现金流量 表 财务效果计算 偿债能力分析 改扩建和技术改造投资项目财务 评价的特点(相对新建项目) 9．5价值工程 价值工程的概念、内容与实施步骤 功能分析 十、热工学(工程热力学、传热学) 10．1基本概念 热力学系统 状态 平衡 状态参数 状态公理 状态方程 热力参 数及坐标图 功和热量 热力过程 热力循环 单位制 10．2准静态过程 可逆过程和不可逆过程 10．3热力学第一定律 热力学第一定律的实质 内能 焓 热力学第一定律在开口系统和闭 口系统的表达式 储存能 稳定流动能量方程及其应用 10．4气体性质 理想气体模型及其状态方程 实际气体模型及其状态方程 压缩因子 临界参数 对比态及其定律 理想气体比热 混合气体的性质 10．5理想气体基本热力过程及气体压缩 定压 定容 定温和绝热过程 多变过程气体压缩轴功 余隙 多极压缩和中间冷却 10．6热力学第二定律 热力学第二定律的实质及表述 卡诺循环和卡诺定理 熵 孤立系统 熵增原理 10．7水蒸汽和湿空气 蒸发 冷凝 沸腾 汽化 定压发生过程 水蒸气图表 水蒸气基本 热力过程u2022湿空气性质 湿空气焓湿图 湿空气基本热力过程 10．8气体和蒸汽的流动，喷管和扩压管 流动的基本特性和基本方程 流速 音速 流量 临界状态 绝热节流 10．9动力循环朗肯循环 回热和再热循环 热电循环 内燃机循环 10．10致冷循环 空气压缩致冷循环 蒸汽压缩致冷循环 吸收式致冷循环 热泵 气体的液化 1 0．11导热理论基础 导热基本概念 温度场 温度梯度 傅里叶定律 导热系数导热微 分方程 导热过程的单值性条件 10．12稳态导热 通过单平壁和复合平壁的导热 通过单圆筒壁和复合圆筒壁的导热 临界热绝缘直径 通过肋壁的导热 肋片效率 通过接触面的导热 二维稳态导热问题 10．1 3非稳态导热 非稳态导热过程的特点 对流换热边界条件下非稳态导热 诺模图 集总参数法 常热流通量边界条件下非稳态导热 10．14导热问题数值解 有限差分法原理 问题导热问题的数值计算 节点方程建立节点方 程式求解 非稳态导热问题的数值计算 显式差分格式及其稳定性 隐式差分格式 10．1 5对流换热分析 对流换热过程和影响对流换热的因素 对流换热过程微分方程式 对流换热微分方程组 流动边界层 热边界层 边界层换热微分方程 组及其求解 边界层换热积分方程组及其求解 动量传递和热量传递 的类比 物理相似的基本概念 相似原理 实验数据整理方法 1 0．16单相流体对流换热及准则方程式 管内受迫流动换热 外掠圆管流动换热 自然对流换热 自然对流与 受迫对流并存的混合流动换热 10．17凝结与沸腾换热 凝结换热基本特性 膜状凝结换热及计算 影响膜状凝结换热的因素 及增强换热的措施 沸腾换热 饱和沸腾过程曲线 太空间泡态沸腾换热及计算 泡态沸腾换热的增强 10．18热辐射的基本定律 辐射强度和辐射力 普朗克定律 斯蒂芬一波尔兹曼定律 兰贝特余 弦定律 基尔霍夫定律 10．19辐射换热计算 黑表面间的辐射换热 角系数的确定方法 角系数及空间热阻 灰表面间的辐射换热 有效辐射 表面热阻 遮热板 气体辐射的特 点 气体吸收定律 气体的发射率和吸收率 气体与外壳间的辐射换 热 太阳辐射 10．20传热和换热器 通过肋壁的传热 复合换热时的传热计算 传热的削弱和增强平均温 度差 效能一传热单元数 换热器计算 十一、工程流体力学及泵与风机 11．1流体动力学 流体运动的研究方法 稳定流动与非稳定流动 理想流体的运动方程 式 实际流体的运动方程式 柏努利方程式及其使用条件 11．2相似原理和模型实验方法 物理现象相似的概念 相似三定理 方程和因次分析法 流体力学模 型研究方法 实验数据处理方法 11．3流动阻力和能量损失 层流与紊流现象 流动阻力分类 圆管中层流与紊流的速度分布 层 流和紊流沿程阻力系数的计算 局部阻力产生的原因和计算方法 减 少局部阻力的措施 11．4管道计算 简单管路的u2022计算 串联管路的计算 并联管路的计算 11．5特定流动分析 势函数和流函数概念 简单流动分析 圆柱形测速管原理 旋转气流 性质 紊流射流的一般特性 特殊射流 11．6气体射流压力波传播和音速概念 可压缩流体一元稳定流动的基本方程渐缩喷管与拉伐尔管的特点 实际喷管的性能 11．7泵与风机与网络系统的匹配 泵与风机的运行曲线 网络系统中泵与风机的工作点 离心式泵或风 机的工况调节 离心式泵或风机的选择 气蚀 安装要求 十二、自动控制 12．1自动控制与自动控制系统的一般概念 “控制工程”基本含义 信息的传递 反馈及反馈控制 开环及闭环 控制系统构成 控制系统的分类及基本要求 12．2控制系统数学模型 控制系统各环节的特性 控制系统微分方程的拟定与求解 拉普拉斯 变换与反变换 传递函数及其方块图 12．3线性系统的分析与设计 基本调节规律及实现方法 控制系统一阶瞬态响应 二阶瞬态响应 频率特性基本概念 频率特性表示方法 调节器的特性对调节质量的 影响 二阶系统的设计方法 12．4控制系统的稳定性与对象的调节性能 稳定性基本概念 稳定性与特征方程根的关系 代数稳定判据对象的 调节性能指标 12．5掌握控制系统的误差分析 误差及稳态误差 系统类型及误差度 静态误差系数 12．6控制系统的综合与和校正 校正的概念 串联校正装置的形式及其特性 继电器调节系统(非线性系统)及校正：位式恒速调节系统、带校正 装置的双位调节系统、带校正装置的位式恒速调节系统 十三、热工测试技术 1 3．1测量技术的基本知识 测量 精度 误差 直接测量 间接测量 等精度测量 不等精度测 量 测量范围 测量精度 稳定性 静态特性 动态特性 传感器传输通道 变换器 l 3．2温度的测量 热力学温标 国际实用温标 摄氏温标 华氏温标 热电材料 热电 效应膨胀效应测温原理及其应用 热电回路性质及理论 热电偶结构 及使用方法 热电阻测温原理及常用材料、常用组件的使用方法 单 色辐射温度计 全色辐射温度计 比色辐射温度计 电动温度变送器 气动温度变送器 测温布置技术 1 3．3湿度的测量 干湿球温度计测量原理 干湿球电学测量和信号传送传感 光电式露 点仪 露点湿度计 氯化锂电阻湿度计 氯化锂露点湿度计 陶瓷电 阻电容湿度计 毛发丝膜湿度计 测湿布置技术 13．4压力的测量 液柱式压力计 活塞式压力计 弹簧管式压力计 膜式压力计波纹 管式压力计 压电式压力计 电阻应变传感器 电容传感器 电感传 感器 霍尔应变传感器 压力仪表的选用和安装 1 3．5流速的测量 流速测量原理 机械风速仪的测量及结构 热线风速仪的测量原理及 结构 L型动压管 圆柱型三孔测速仪 三管型测速仪 流速测量布 置技术 1 3．6流量的测量 节流法测流量原理 测量范围 节流装置类型及其使用方法 容积法 测流量 其它流量计 流量测量的布置技术 1 3．7液位的测量 直读式测液位 压力法测液位 浮力法测液位 电容法测液位超声波 法测液位 液位测量的布置及误差消除方法 1 3．8热流量的测量 热流计的分类及使用 热流计的布置及使用 1 3．9误差与数据处理 误差函数的分布规律 直接测量的平均值、方差、标准误差、有效数字和测量结果表达 间接测量最优值、标准误差、误差传播理论、微 小误差原则、误差分配 组合测量原理 最小二乘法原理 组合测量 的误差 经验公式法 相关系数 回归分析 显著性检验及分析 过 失误差处理 系统误差处理方法及消除方法 误差的合成定律 十四、机械基础 14．1机械设计的一般原则和程序 机械零件的计算准则 许用应力和安全系数 14．2运动副及其分类 平面机构运动简图 平面机构的自由度及其具有确定运动的条件 14．3铰链四杆机构的基本型式和存在曲柄的条件 铰链四杆机构的演化 14．4凸轮机构的基本类型和应用 直动从动件盘形凸轮轮廓曲线的绘制14.5螺纹的主要参数和常用类型 螺旋副的受力分析、效率和自锁螺纹联 接的基本类型 螺纹联接的强度计算 螺纹联接设计时应注意的几 个问题 14.6带传动工作情况分析 普通V带传动的主要参数和选择计算带轮的 材料和结构 带传动的张紧和维护 14.7直齿圆柱齿轮各部分名称和尺寸 渐开线齿轮的正确啮合条件和连续 传动条件 轮齿的失效 直齿圆柱齿轮的强度计算 斜齿圆柱齿轮 传动的受力分析 齿轮的结构 蜗杆传动的啮合特点和受力分析 蜗杆和蜗轮的材料 14.8轮系的基本类型和应用 定轴轮系传动比计算 周转轮系及其传动比 计算 14．9轴的分类、结构和材料 轴的计算 轴毂联接的类型 14．10滚动轴承的基本类型 滚动轴承的选择计算 十五、职业法规 15．1我国有关基本建设、建筑、房地产、城市规划、环保、安全及节能等方面的法律与法规 15．2工程设计人员的职业道德与行为规范 15．3我国有关动力设备及安全方面的标准与规范

更换红色硒鼓（洋红或品红）

it"s comfortable to wear trainers. they are very suitable to long travels.

1.基本使用：一维数组：datatypename(size)datatype:integer,real,complex,logical,或type自定义出来的类型。integer,parameter::students=5integer::student(students)其他定义方法：integera(10)!最简单的integer,dimension(10)::a!另外的方法integer,dimension(10)::a,b,c!一起定义integera!f77先声明a是整型，dimensiona(10)！再声明a是大小为10的数组或typetype::personreal::height,weightendtypetype(person)::a(10)a(2)%height=180.0二维数组：integera(3,3)a(1,1)=3定义方法：integera(10,10)integer,dimension(10,10)::a,b,cintegeradimensiona(10,10)!f77,先定义类型二维数组常用来当作矩阵使用。多维数组：frotran最多可声明高达七维的数组。integera(D1,D2,,Dn)！n维一般说来，越高维数组读数据越慢。另类声明方法：integera(5)可使用的是a(1),a(2),a(3),a(4),a(5)integera(0:5)下标可使用的是0～5，a(0),a(1),,a(5)六个元素。integera(-3：3)可以使用的是a(-3),a(-2),a(-1),a(0),,a(3)七个元素。integera(5,0:5)可用a(1~5,0~5)integerb(2:3,-1:3)可用b(2~3,-1~3)2.数组内容的设置赋初值：integera(5)dataa/1,2,3,4,5/dataa/5*3/!5个3＊表示数据重复“隐含式”循环的功能设置初值：integera(5)integeridata(a(i),i=2,4)/2,3,4/!a(2)=3,a(3)=3,a(4)=4输出：write(*,*)(a(i),i=2,4)显示a(2),a(3),a(4)也可以设置累加值：(a(i),i=2,10,2)!循环执行5次，i分别是2,4,6,8,10。“隐含”选还可以多层嵌套：多维数组integera(2,2)integeri,jdata((a(i,j),i=1,2),j=1,2)/1,2,3,4/里面的循环先执行，结果：a(1,1)=1,a(2,1)=2,a(1,2)=3,a(2,2)=4F90中可以省掉data描述，直接设置初值：integer::a(5)=(/1,2,3,4,5/)!注意：括号和除号之间不能有空格。省掉data直接把初值写在声明之后时，不能像data时那样，用隐式循环对数组中部分元素设初值，每个元素必须给定初值，而且写法有点不同：integer::iinteger::a(5)=(/1,(2,i=2,4),5/)!a(1)=1!a(2)=2,a(3)=2,a(4)=2!(2,i=2,4)是隐式循环!a(5)=5f90中的隐式循环：integer::a(5)=(/i,i=1,5/)!a(1)=1,a(2)=2,a(3)=3,a(4)=4,a(5)=53.对整个数组的操作(数组广播)a=5!a是任意维数的数组，全部元素设为5a=(/1,2,3/)！右边数字数目应该和数组的大小一样a=b！a,b同样维数及大小的数组，相同位置的元素赋给aa=b+c！三个都是相同维数大小的数组，相同位置的数字相加给aa=b-ca=b*c！注意不等于矩阵的相乘，a(i,j)=b(i,j)*c(i,j)a=b/ca=sin(b)!a(i)=sin(b(i))4.对部分数组的操作a(3:5)=5a(3:)=5a(3:5)=(/3,4,5/)a(1:3)=b(4:6)a(1:10)=a(10:1:-1)!使用隐含循环的方法将数组a(1~10)的内容翻转。a(:)=b(:,2)a(:,:)=b(:,:,1)!拿数组的一部分内容使用的时候，需要注意的原测：（1）等号两边的数组元素数目要一样多。（2）同时使用多个隐含循环的时候，较低维数循环可以看作是内层的循环。5.WHERE:F95的添加功能，用来取出部分数组的内容进行设置。where命令可以经过逻辑判断来使用数组的一部分。example:!把数组a中小于3的元素值设置给bwhere(a5)b=2elsewhereb=3endwhere可以嵌套的，跟循环一样可以取名字，不过在endwhere的时候一定要加上它的名字，用来明确要结束哪个where模块：name:where(aj).and.a(i,j)>0))!还可赋值好几个条件，这里只处理二维矩阵的上三角部分且a(i,j)>0的元素a(i,j)=1/a(i,j)endforall如果只有一行代码时候也可以省掉endforall，写在同一行：forall(i=1:5,j=1:5,a(i,j)/=0)a(i,j)=1/a(i,j)forall可以多层嵌套，里面只能出现跟设置数组数值相关的程序命令，还可以在forall中使用where。不过where中不可以使用forall。forall(i=1:5)forall(j=1:5)a(i,j)=1endforallforall(j=6:10)a(i,j)=2endforallendforallforall(i=1:5)where(a(:,i)/=0)a(:,i)=1.0/a(:,i)endwhereendforall7.fortran中数组的保存规则不管数组的形状，它所有的元素都是分布在内存中同一个连续的模块当中。多维数组在内存中的连续模块排列情况是以一种列优先的方法排列的，数组存放在内存中的时候，会先放入第一个列中每个行的元素，然后再放入下一个列中每一行的元素。exmaple:a(1,1)->a(2,1)->a(3,1)=>a(1,2)->a(2,2)->a(3,2)=>a(1,3)->a(2,3)->a(3,3)也即对多维数组，会先放入维数的元素，再放入较高维数的元素。数组元素位置的计算：一个n维数组a(D1,D2,,Dn)设：sn=D1*D2**Dn则a(d1,d2,d3,,dn)在第1+(d1-1)+(d2-1)*s1++(dn-1)*sn-1个位置。使用数组时候最好用低维的下标作为内循环，这样比较快。8.可变大小的数组：（allocate,allocatable,deallocate）integer::students,error=0integer,allocatable::a(:)!定义a是可变大小的数组read(*,*)studentsallocate(a(students),stat=error)!orallocate(a(students))！申请数组内存空间deallocate(a)！释放动态数组占用的内存空间多维数组：integer,allocatable::a2(:,:)integer,allocatable::a3(:,:,:)allocate(a2(5,5))allocate(a3(5,5,5))或allocate(a2(-3:3,-3:3))相关的函数allocated可用来检查一个可变大小的数组是否已经配置内存来使用，会返回一个逻辑值。example:if(.not.allocated(a))thenallocate(a(5))endif

对的。设置 input 元素的 type 属性：document.getElementsByTagName("INPUT")[0].setAttribute("type","button");参考：http://www.w3school.com.cn/jsref/met_element_setattribute.asp

Toner 硒鼓 Cartridge 墨盒

Toner 硒鼓 Cartridge 墨盒

1、 复制一份JakartaMultiPartRequest类里面的类代码（下载struts2包里面有src目录里面就是源码srccoresrcmainjavaorgapachestruts2dispatchermultipart）到 自己新建MultiFileParser类.2、修改parseRequest方法； private List<FileItem> parseRequest(HttpServletRequest servletRequest, String saveDir) throws FileUploadException { DiskFileItemFactory fac = createDiskFileItemFactory(saveDir); ServletFileUpload upload = new ServletFileUpload(fac); upload.setSizeMax(maxSize); //add by 2014-09 start upload.setProgressListener(new ProgressListener() { @Override public void update(long pBytesRead, long pContentLength, int pItems) { // TODO Auto-generated method stub System.out.println("读取："+pBytesRead+"; 总长："+pContentLength+"; item:"+pItems); } }); //add by 2014-09 end return upload.parseRequest(createRequestContext(servletRequest)); }3、添加配置struts.xml属性；<!-- 实现进度展示 --> <bean type="org.apache.struts2.dispatcher.multipart.MultiPartRequest" name="myParser" class="com.listener.MultiFileParser" scope="default"/> <constant name="struts.multipart.parser" value="myParser" />

海商王4《PortRoyale4》攻略不知如何解决，为此小编给大家收集整理海商王4《PortRoyale4》攻略解决办法，感兴趣的快来看看吧。一.写在前面的废话这代时间因为种种原因，有大把的时间可以玩游戏，用了一个来月好好玩了玩这个游戏，总算是初步玩透了。想起当初刚开始玩的时候，想在吧里找点攻略资料，一方面人比较少，一方面也有不少人表示这一代的供需极不平衡没有什么可玩性。当时差点放弃了，但是仔细玩下来其实并非是这样。所以才有了这个攻略，因为接下来就要回归正常生活了，也算以这份攻略来为这段难得的空闲时光留一个纪念，毕竟是冷门游戏，这个吧也没几个玩家了，可能也就自娱自乐了。二.关于游戏目标这个游戏虽说是去年出的，但完全属于一招鲜吃遍天的炒冷饭，海商王、大航海家、威尼斯崛起、伟大时代中世纪这几十年下来，虽然画面在变，其实内核一直都是一样的，都是构建一套经济的循环体系，至于什么家族、商战、海战什么的只不过是各代的侧重点不同。因此如果你的目标仅仅是赚点小钱，凑几只舰队把四个国家打个遍然后称霸加勒比的话，那么相信我，还是放弃这个游戏吧。因为不用几个小时你就会腻味了。这游戏赚钱太简单了，比我前面提到的所有同公司的游戏都简单，即使你完全不需要考虑供需关系，开局选个商人出身无脑圈城自动贸易，有钱了就继续买船继续跑自动贸易，等自动贸易线铺满了再出点战舰很快也就打遍天下无敌手了。而这游戏比起前几个兄弟游戏，像什么家族斗争、娶妻生子干脆没有，海战又贼繁琐+重复，可玩性极低，我认为这就是这游戏评价偏低的根本原因。但是另一方面海商王4的产业循环供需以及城市建设方面做的却是最好的（这点很多人不会同意，后面我会解释原因），所以如果你想真正领略这款游戏的乐趣，那么你的游戏目标其实是根据每个城的特产合理分配他们的工商业布局，最终使你的每个城镇都有尽量多的酒馆、修道院、医院、市场覆盖，使你的每个城市每种商品的需求都能够获得满足，同时你的仓库还不能爆掉，每种商品的供需都得到满足。三.如何实现游戏目标很多人说这一代的供需很成问题，商品供应远大于需求，仓库最大又只有20000根本达不到供需平衡，其实不是这样。的我们前面说过，这类游戏的供需实际上在设计之初就是平衡的，甚至于供略小于求，这是游戏的核心设定，每一代都一样。K社的一贯逻辑是如果你把所有工厂建一个数目，那么大多数商品是供需平衡甚至略微小于需求的，但是诸如木材、砖、工具这些建筑原材料是供大于求的，因为你需要用他们建新建筑来扩大产能。而海4又于其他几代不同，不同城市的同种商品效率不同；四个农产品连在一起建效率会提升；工坊能提高某些产物的效率；手工品临近居住区又会有效率加成；最后最有意思的一点是各个工厂需要的工人数也是不同的，诸多元素的引入一方面加大了玩家平衡供需的难度，但另一方面也让城建布局变得更有意思，有一部分玩家感觉供远大于求很多时候就是因为BUFF吃的太多了。所以我说这一代的供需和城建是整个系列中做的最好的，因为他的耐玩性很高。那么既然我们已经了解到这一点了，我们的游戏思路就很简单的了。首先当然是赚钱，可以通过自动贸易和海战来赚启动资金，这点太简单了就不展开讲了。相信我，虽然自动贸易给你钱很好赚的错觉，但如果你要开始城建，那自动贸易的钱就少的可怜了，分分钟就花完了，特别是高难度下。赚了钱之后根据每个城的物产特点来初步规划一个经济圈：比如你可以找7座涵盖了所有特产的城然后在每座城规划3-4种产物，凑齐25种工厂。在每个城建上仓库，就可以建工厂开始构建你的商业帝国了。这里我跳过分析直接给能够供需平衡的结论：所有工厂都建相同数量，我们假设这个数值是30，那么砖应该是15座（1/2），木20座（2/3），工具25座（5/6）。然后所有的产物都尽量不吃BUFF（不得不吃buff也得把效率压到105以下％，这点很容易做到），殖民4宝通过宝藏舰队运回欧洲这样就可达到供需平衡。这是最基本的构型，正常情况已经足够应付，构建也非常简单，但因为我们的产品毕竟是由船队分发，存在时间差有时候会因为某种原材料不足导致工厂无法开工，如果这种工厂又是双原材料的工厂（比如陶器厂需要煤+砖）那就可能导致挤压，因此我自己使用的是如下改进的构型：也是以每种工厂30为例，砖16（1/2+1），木16（2/3+1），工具28（9/10+1）；铁28（=工具）；殖民四宝：可可、咖啡、棉花、烟草27（9/10）；高级工业品：陶器、家具、面包、奢侈、衣服33座（11/10）。至于实际效果，我用这样的构型将整个地图56座城（剩4城留给AI的4国）构成了12、12、12、20这样4个大型经济循环圈，各中心仓的仓库库存常年维持在2.3千完全不会爆仓，2W的仓库上限绰绰有余，可以安心食用。至于具体的贸易路线设置：所有城市建设仓库，雇上书记员，贸易政策统一设置为110％买，140％卖，其他都不用动了。选择一处地处中央的仓库作为节点仓A，其他B.C.D.E.F.G作为分城，所有分城只与节点仓A贸易。A城将所有商品设为按需装载，并勾上左上角的卸载到仓库。分城的所有商品设为按需卸载，但该城产物设为手动装载9999。说人话就是所有分城的产品全部统一集中到核心城A的仓库，再由A城按需求发放给分城的仓库，最后由各个仓库根据市场行情卖货。掌握了上述的基本逻辑之后，接下去根据各个城市的空格数合理安排工厂数量，哪些城市应该放雇工多的工厂，哪些城市应该放雇员少的工厂，医院、酒馆、修道院、市场这些建筑怎么放才能效率最高，怎么样才能控制工厂的生产效率，这就是需要大量的练习了，这就变成类似纪元的游戏了，多练练就行，只要把握前面说的原则，那你的供需就爆不了。四、关于海战这代的海战怎么说呢.特别的.蠢.但难度很低。我只推荐一个我自己常用的舰队配比吧。主要是这代海战太频繁了，这种配比效率最高，打一战消耗的时间少。船长我只看2个技能，近战和木匠，其他如果有领导的，炮术的，机动的是加分项，但没木匠和近战的肯定不要。刷船长的方法也简单，前期积攒几个声望点别花，等攒到5个的时候全部点到船长证上（如果你是私掠开局，那开局就能刷），然后就五速等吧，反正前期也没事，刷出想要的就留下，没刷到就SL，刷5个想要的船长也够用了，游戏时间花不了几个月。至于船，我是习惯配：战列舰1艘（无它，只是因为他速度最快，能第一轮动）；盖伦战舰1艘（牵引敌人的技能是神技，另外就是船员数最多如果是满近战+领导，开局什么都不做直接rush掉对面一艘2星）；小盖伦2艘（技能一般，用不到，主要看重1星船里他船员最多）；英国护卫舰1艘（只是因为火箭停对面一回合，其他都弱）普通护卫舰1艘（贪他的两次开炮神技，不然比英国护卫舰还弱）。从这个兵力配比就能看出这种就是开局打rush的，敌人还没动就给他端掉4,5艘那种..老老实实打炮战太拖沓了。至于具体战术，每次情况都不一样，一般而言就是靠战列舰抢速，然后就是看敌人具体占位了，但是不管怎么样，开局的第一轮正常情况就是端掉对面两艘2星，而想做到这点大盖伦牵引敌人的技能就很有效了。比如牵引后你战列舰开到敌人两艘2星中间，各发两炮葡萄弹，一艘火箭晕掉，一艘二次装填技能战列舰白刃拿下这就一次端两艘了，运气好下一轮还是你先动。这样就能一次端掉三艘2星了，就下来就轻松+愉快了。又比如大盖伦直接骑脸上去火箭晕掉一艘2星，直接靠4级近战+3级领导干下一艘2星，也是一轮干翻2艘2星。如果海战难度选的低的话，那就更轻松了。总之我认为海战的第一要务就是抢速度（所以战列舰必带）第一轮就带走大量敌方2星船不给他输出的机会。最后就是几个小贴士：1.按ALT建可以看敌我的行动顺序，这点很有用..2.轮到你时，虽然游戏会自动选择一艘船让你动，但你完全可以不动那艘而去动其他的船，这点很多人不知道.3.战列舰的技能虽然有点弱鸡，但是正好差一格够不到敌人，或者敌人拉烟了射击不了时，又或者敌人占位不理想牵引技能用完时，又或者想二次射击时还是有效的。五、其他一些小贴士1.国家推荐选荷兰，因为这游戏战舰并不跟国家深度挂钩，只要你能搞到一艘特色船，造船工都能给你批量出来。而前期你想得到好船抢敌国的远比造本国的容易。而国家有关的只有出身的特性，而荷兰的两个特性都是非常有用的第一个商船造价减半是前期神器，特别是高难度下，后期这技能彻底废了，但人家还有居住区提升20％最强T0，对于追求极限城建流来说这是其他任何国家的技能无法取代的。其他国家的一个满级居民区可以支持1.5个普通40人工厂，而荷兰可以支持1.8个不要小看着0.3，因为建筑格子是有限的，房子还得城镇建筑来配合。同样的城市，如果让荷兰来铺能比普通国家多出7.8个工厂不说，居民满意度还更高..2.刚开始学习构建贸易圈时，可以试着以总督城为节点仓，这样殖民4宝是由这里运出去的，免去了你从其他城市运殖民四宝来的麻烦，等熟练了就可以随便设置中心仓了。3.多种原材料型的工厂，比如工具（铁+煤），朗姆（木+糖），面包（麦+糖），陶器（砖+煤），家具（木+工具），奢侈（陶+工具）建议将原材料厂和工厂放在一个城里，减少因某种商品短缺导致另一种商品溢出的风险。但一般而言很难完美做到，但是特别建议将铁和工具放在一个城，而奢侈品，家具放在中心节点城，这两点相对来说很容易做到。4.关于停战 ai有火星船 最好一次把想要的城全打下来然后停战 免得反复打战影响经济建设节奏 我是事先规划好把地图角落的城留给ai 一般把他打到一城然后把军舰全灭光 派个舰队在他家门口巡逻打商船 过一会ai一定会停战 他没提你就主动去提 而且停战后再也不会对你宣战 比把ai城打光双方永远维持战争状态要好很多

double-needle cartridge双针筒词典结果：cartridge[英][u02c8kɑ:tru026adu0292][美][u02c8kɑ:rtru026adu0292]n.子弹，弹药筒; 笔芯，墨盒; 暗盒，胶卷盒; 录音带盒，唱头; 复数：cartridges以上结果来自金山词霸例句:1.Specify the cartridge currently installed. 指定当前安装的墨盒。2.May I have some cartridge film? 能给我那筒式胶卷吗？

都是财务相关的术语。1、PTP: Procure to Pay，即“采购到支付”流程，或许你有听说过一个用得更多的类似含义的缩写，就是“AP”(Accounts Payable)。2、OTC: Order to Cash，即“订单到现金”流程， 同样类似含义的就是“AR”(Accounts Receivable，应收账款)。3、RTR: Record to Report，即“记录到报告”流程，大致就是收集数据做财务报表。4、T&E: Travel and Entertainment，即“差旅及娱乐费用”流程，大致就是做报销相关的财务工作。

《逃脱游戏：不给糖就捣蛋（EscapeGame：TrickorTreat）》是一款具有万圣节特色的密室逃脱益智游戏，感兴趣的玩家可以在这款游戏中找到非常多有趣的逃脱解谜游戏乐趣，这款游戏虽然没有特别庞大的密室逃脱场景，但是游戏中的内容也非常的丰富，非常具有挑战性。2.点架子中间的柜子，输入密码打开获得半片纸。后退点左边南瓜，记住南瓜表情，南瓜左边中间的书打开发现幽灵。2.3.右转点左边窗户靠近查看发现提示：数四个方框里的星星个数，后退点右边柜子第一层抽屉，根据提示输入个数，获得剪刀。3.4.后退对左边缠着丝带的白南瓜用剪刀，发现幽灵。4.5.拿走柜子右边的扫帚，后退右转，点顶部蜘蛛网，用扫帚获得半张纸，道具栏里两张纸合起来为一张获得提示纸。5.6.继续右转，点左边南瓜，根据之前看到的南瓜表情调整，记住从上往下的颜色，下方抽屉打开获得火柴。6.7.后退点右边窗帘打开，注意眼睛数量，再对缠着丝带的黑色南瓜用剪刀发现幽灵。7.8.继续后退右转，墙上提示蛋2（指裂的尖刺数为2），点右边桌子再点蜡烛用火柴点燃三根蜡烛，再点左边倒立的杯子获得影子密码482。8.9.后退点右边三盘子获得颜色和不同种类的数量提示不同种类数量16.左转两次对门用通关钥匙进入，根据之前从上往下的颜色提示可知打开的门颜色顺序为黄橙红紫蓝，逃脱完毕。

给一个平面桁架计算程序： integer*2 li(100000) real*4 a(1000000) logical*4 results CHARACTER*20 NAM1,NAM2! WRITE(*,"(A)") " PLEASE INPUT YOUR DATE-FILE NAME------>"! READ(*,"(A)") NAM1 ! READ(*,*)! OPEN(1,FILE=NAM1,STATUS="OLD")! WRITE(*,"(/,A)") " PLEASE INPUT YOUR OUT-FILE NAME------>"! READ(*,"(A)") NAM2! OPEN(2,FILE=NAM2,STATUS="unknown") open(1,file="trus3.in",STATUS="unknown") open(2,file="trus3.out",STATUS="unknown") open(3,file="trus3.mout",STATUS="unknown") read(1,*) nn,ne,nc,np ! nn:节点总数; ne:单元总数; nc:支撑约束数；np:荷载总数 write(2,"(a)") "INITIAL PARAMETER" write(2,"(4x,4A6/4x,4I6)") "nn","ne","nc","np",nn,ne,nc,np n3=nn*3 !总自由度 n=n3-nc iu=1 iaa=iu+n3 iea=iaa+ne ix=iea+ne iy=ix+nn iz=iy+nn isq=iz+nn ish=isq+3 idc=ish+3 ist=idc+3 mal=ist+36 jia=1 jja=jia+ne jns=jja+ne nal=jns+2*nc na=10000-mal nli=1000-nal call trus3(a(iu),a(iaa),a(iea),a(ix), & a(iy),a(iz),a(isq),a(ish),a(idc), & a(ist),a(mal),li(nal),li(jia),li(jja), & li(jns),nn,ne,nc,np,n3,n,na,nli) close(1) close(2) close(3) results= SYSTEMQQ("d:\TEDIT.EXE & e:\WORKfor90\SPT1_OK\trus3.out ") results= SYSTEMQQ("d:\TEDIT.EXE & e:\WORKfor90\SPT1_OK\trus3.mout ") stop end!********************************************************************************** subroutine trus3(u,aa,ea,x,y,z,sq,sh, & dc,sk,a,li,ia,ja,ns,nn,ne,nc,np, & n3,n,na,nli) integer*2 ia(ne),ja(ne),ns(nc,2),li(nli),jod(np,2) real*4 u(n3),aa(ne),ea(ne),x(nn),y(nn),z(nn), & sq(3),sh(3),dc(3),sk(6,6),a(na),qd(np) !读节点坐标、支座约束、左右节点号、截面面积、弹性模量信息 read(1,*) (x(i),y(i),z(i),i=1,nn), & (ns(i,1),ns(i,2),i=1,nc), & (ia(i),ja(i),aa(i),ea(i),i=1,ne) write(2,"(1x,a)") "NODAL COORDINATES" write(2,"(4x,a4,3a12)") "NO.","X-COOR","Y-COOR","Z-COOR" write(2,"(4x,i4,3f12.3)") (i,x(i),y(i),z(i),i=1,nn) write(2,"(/1x,a)") "POINTS OF SUPPRESSED DISPLACEMENTS" write(2,"(2a10/(2i10))") "NO.","DIRECTION", & (ns(i,1),ns(i,2),i=1,nc) write(2,"(/1x,a)") "MEMBER DETAILS" write(2,"(4x,a4,a6,a3,2a12/ & (3x,""("",i3,"")"",i6,""-"",i2, & 2e12.3))") "NE.","I","-J","A","E", & (i,ia(I),ja(i),aa(i),ea(i),i=1,ne) !读入荷载数据： !jod(i,1)受荷节点号；jod(i,2)荷载作用方向(1表示x向;2表示x向;3表示x向);qd(i)荷载大小, write(2,"(/1x,a)") " EXTERNAL LOADS" do 999 i=1,np jod(i,1)=0 jod(i,2)=0 qd(i)=0.0 999 continue read(1,*) (jod(i,1), jod(i,2),qd(i),i=1,np) write(2,"(a10,3x,a10,a13/(2i10,f16.3))") & " NO.","DIRECTION","VALUE", & (jod(i,1),jod(i,2),qd(i),i=1,np) !求最大带宽 mx=0 do 400 i=1,ne io=iabs(ja(i)-ia(i)) !左右最大节点号差 if(io.gt.mx) mx=io400 continue nb=(mx+1)*3 nt=n3+nb iia=1 iq=iia+nt*nb ic=iq+nt iqd=ic+nt mal=iqd+np+na jjod=1 nal=jjod+2*np+nli call s410(u,aa,ea,x,y,z,sq,sh, & dc,sk,a,q,c,qd,jod,ia,ja,ns,nn,ne, & nc,np,n3,n,nb,nt) return end***************************************************************************** subroutine s410(u,aa,ea,x,y,z,sq,sh, & dc,sk,a,q,c,qd,jod,ia,ja,ns,nn,ne, & nc,np,n3,n,nb,nt) integer*2 ia(ne),ja(ne),ns(nc,2),jod(np,2) real*4 u(n3),aa(ne),ea(ne),x(nn),y(nn), & z(nn),sq(3),sh(3),dc(3),sk(6,6), & a(nt,nb),q(nt),c(nt),qd(np),l********************************************************************* 检查传入数据 *********************************************************************! write(*,"(a)") "INITIAL PARAMETER"! write(*,"(4x,4A6/4x,4I6)") "nn","ne","nc","np",nn,ne,nc,np! write(*,"(1x,a)") "NODAL COORDINATES"! write(*,"(4x,a4,3a12)") "NO.","X-COOR","Y-COOR","Z-COOR"! write(*,"(4x,i4,3f12.3)") (i,x(i),y(i),z(i),i=1,nn)! write(*,"(/1x,a)") "POINTS OF SUPPRESSED DISPLACEMENTS"! write(*,"(2a10/(2i10))") "NO.","DIRECTION",! & (ns(i,1),ns(i,2),i=1,nc)! write(*,"(/1x,a)") "MEMBER DETAILS"! write(*,"(4x,a4,a6,a3,2a12/! & (3x,""("",i3,"")"",i6,""-"",i2,! & 2f12.3))") "NE.","I","-J","A","E",! & (i,ia(I),ja(i),aa(i),ea(i),i=1,ne)! write(*,"(a10,3x,a10,a13/(2i10,f16.3))") ! & " NO.","DIRECTION","VALUE",! & (jod(i,1),jod(i,2),qd(i),i=1,np)!********************************************************************! pause 1 !总刚矩阵及荷载列阵清零 do 480 i=1,nt do 450 j=1,nb a(i,j)=0.0 450 continue q(i)=0.0 480 continue !形成荷载向量 do 544 i=1,np npd=jod(i,1)*3+jod(i,2)-3 !相应荷载位置=节点号*3+节点方向数(1 2 3)-3 q(npd)=q(npd)+qd(i)544 continue!对单元循环形成单元刚度矩阵并加入总刚矩阵 do 1120 me=1,ne write(3,*) me i=ia(me) !单元左端号 j=ja(me) !单元右端号 ao=aa(me) !单元面积 e=ea(me) !单元弹性模量 !求单元方向余弦 l=sqrt((x(j)-x(i))**2+(y(j)-y(i))**2+(z(j)-z(i))**2) xc=(x(j)-x(i))/l yc=(y(j)-y(i))/l zc=(z(j)-z(i))/l !求单刚元素 sk(1,1)=xc**2 sk(1,2)=xc*yc sk(2,1)=sk(1,2) sk(2,2)=yc**2 sk(1,3)=xc*zc sk(3,1)=sk(1,3) sk(3,2)=yc*zc sk(2,3)=sk(3,2) sk(3,3)=zc**2 sk(4,1)=-xc**2 sk(4,2)=-xc*yc sk(4,3)=-xc*zc sk(5,1)=-xc*yc sk(5,2)=-yc**2 sk(5,3)=-yc*zc sk(6,1)=-xc*zc sk(6,2)=-yc*zc sk(6,3)=-zc**2 do 870 ii=1,3 do 870 jj=1,3 sk(ii+3,jj+3)=sk(ii,jj) sk(ii,jj+3)=sk(jj+3,ii)870 continue cn=ao*e/l do 930 ii=1,6 do 930 jj=1,6 sk(ii,jj)=sk(ii,jj)*cn! write(3,*) sk(ii,jj) !!!!!!930 continue!将单刚矩阵送入总刚矩阵 i1=3*i-3 j1=3*j-3 ! pause 4 !检测断点 do 1114 jj=1,2 if(jj.eq.1) nr=i1 if(jj.eq.2) nr=j1 do 1112 j9=1,3 nr=nr+1 ii=(jj-1)*3+j9 do 1110 kk=1,2 if(kk.eq.1) n9=i1 if(kk.eq.2) n9=j1 do 1100 k=1,3 ll=(kk-1)*3+k nk=n9+k+1-nr if(nk.le.0) goto 1100 a(nr,nk)=a(nr,nk)+sk(ii,ll)1100 continue1110 continue1112 continue* pause 4 !检测断点1114 continue1120 continue !引入支座约束条件 do 1150 i=1,nc npd=ns(i,1)*3+ns(i,2)-3 a(npd,1)=a(npd,1)*(1e+12)+(1e+12) ! q(npd)=01150 continue !荷载列阵交给方程右端项 n=n3 do 1190 ii=1,n3 c(ii)=q(ii) write(3,*) c(ii) !!!!!!!!!!!!!!!!!1190 continue !调用解方程子程序 call s2000(a,c,n,nb,nt) !求得位移项交给位移列阵1220 do 1230 ii=1,n31230 u(ii)=c(ii) !输出位移结果 write(2,"(/1x,a)") "NODAL DISPLACEMENTS" write(2,"(a8,a10,2a12/(i8,3f12.5))") "no.","u","v","w", & (ii,u(3*ii-2),u(3*ii-1),u(3*ii),ii=1,nn) !输出内力结果 write(2,"(/1x,a)") "FORCE IN THE MEMBERS" write(2,"(4x,a4,a6,a3,a16)") "ne","i","-j","force" do 1610 me=1,ne i=ia(me) j=ja(me) ao=aa(me) e=ea(me) l=sqrt((x(j)-x(i))**2+(y(j)-y(i))**2+(z(j)-z(i))**2) xc=(x(j)-x(i))/l yc=(y(j)-y(i))/l zc=(z(j)-z(i))/l dc(1)=xc dc(2)=yc dc(3)=zc i1=3*i-3 j1=3*j-3 do 1510 i3=1,3 j3=i1+i3 j2=j1+i3 sq(i3)=u(j3) sh(i3)=u(j2)1510 continue a1=0.0 a2=0.0 do 1570 ii=1,3 a1=a1+dc(ii)*sq(ii) a2=a2+dc(ii)*sh(ii)1570 continue !内力=面积*弹性模量*应变（两端位移差与总长比值） fc=ao*e*(a2-a1)/l write(2,"(4x,""("",i2,"")"",i6,""-"",i2,f16.5)") & me,ia(me),ja(me),fc1610 continue return end subroutine s2000(a,cc,n,nb,nt) !半带宽解线性方程组子程序 real*4 a(nt,nb),cc(nt)2000 do 2940 ii=1,n ik=ii do 2920 jj=2,nb ik=ik+1 cn=a(ii,jj)/a(ii,1) jk=0 do 2890 kk=jj,nb jk=jk+12890 a(ik,jk)=a(ik,jk)-cn*a(ii,kk) a(ii,jj)=cn2920 cc(ik)=cc(ik)-cn*cc(ii)2940 cc(ii)=cc(ii)/a(ii,1) do 3010 iz=2,n ii=n-iz+1 do 3000 kk=2,nb jj=ii+kk-13000 cc(ii)=cc(ii)-a(ii,kk)*cc(jj)3010 continue return end trus3.in6,9,9,20, 0, 4.0,0, 0,-4.0,0,10.0, 0,12.0,0, 4.0,12.0,0,-4.0,12.0,-7.0,0,1,1,1,2,1,3,2,1,2,2,2,3,3,1,3,2,3,3,5,3,3.0e-4,1.2e+12, 4,3,3.0e-4,1.2e+12, 4,1,3.0e-4,1.2e+12, 4,5,3.0e-4,1.2e+12, 5,2,3.0e-4,1.2e+12, 6,1,3.0e-4,1.2e+12,4,6,3.0e-4,1.2e+12,5,6,3.0e-4,1.2e+12,6,2,3.0e-4,1.2e+12,6,1, 2500.0, 6,2,-4330.1,

Asisvividlyportrayedinthepicture,这种正确。例：Asisknowntousall,theearthisround.Asisknowntousall是非限制性定语从句，先行词为theearthisround这整个句子。

你这逻辑非常昏乱啊。第一：Fortran 的循环，是用 Do，而不是用 for。你确定你用的是 Fortran 书写代码？第二：h 是变量，变量类型，有整型，浮点型，逻辑型等。它与txt的文件名没有任何联系。

rewind是将文件的位置指针退回到第一个记录。从而实现两次读取“1”文件的数据

电脑扫描不到usb连接设备，处理方法如下：1、可以多插拔几次，看看电脑能不能识别该usb设备。2、如果多插拔几次，仍然无法识别，那么可能是usb设备出了问题。可以把usb设备在别的电脑上试一下，看看是否能够识别。3、如果别的电脑报上能够识别，那么很有可能是这个电脑的usb驱动出了问题。解决方法：运行系统的安装文件，然后在进入安装页面时，选择”一键修复系统“，可以实现把系统文件和驱动文件修复到跟刚安装时一样。

这个具体还要看自己的个人感受了。据我所知，intel的编译器对于混合编程支持的比较广泛，而且自带有强大的函数库（像imsl），而pgi的编译器则是由所谓的mkl等支撑系统。当然如果你只是初学的话，其实无所谓哪款好坏了。intel的编译器的图形界面做的比较好。如果你不小心下载的pgi是命令行输入的话，估计的蛋疼的输入方式能让你抓狂的。总体推荐intel，还有康柏的编译器。

compaq fortran 是早起版本，后被intel公司收购，改名intel fortran，版本有10.0 11.0 12.0等等，基本兼容compaq fortran，功能更强大

kodak portra400不是软件，是一款彩色负片胶片，于1998年发布。它在2006年以及2010重新被设计。就像名字所表示的那样，它适合被应用于肖像摄影，但也可被用于许多其他摄影中。并且Portra 400与Portra 160相似，但是拥有更高的对比度，饱和度以及颗粒。无论你信不信，400的ISO在胶片时代被摄影师们认为属于“高感光”。而Portra 400绝对是有史以来最好的“高感”彩色胶片之一。对所有的胶片，如何拍摄，冲洗，打印以及扫描甚至是胶片的版本都会导致不同的照片效果。有趣的是，柯达曾短暂的制作了黑白版本的Portra 400。与kodak portra400相似的胶片有：Kodak Portra 160配方，增加阴影，高光和色彩一个单位后，会的到非常近似Portra 400的效果。事实的确如此！我很喜欢我所看到的，但是我也在设置上做了更多的调整。看看我是否可以改进它。 其实并不需要太多的调整。我更喜欢将色彩效果设置为“强“时的效果，但是如果你的相机是搭载X-TransⅢ型传感器并没有这个功能。你可以继续使用旧版本的胶片模拟，只是看起来有一些不同。其他的话，我做出的修改还有我把颗粒效果设置成了“强“。

Ektar 100：一款很不像负片的负片。颗粒和颜色都是整片的级别，特别适合拍摄黄昏和日出等场景，肤色还原有点发红，总体给人感觉是一种很有爱、很温暖的感觉。个人非常喜欢。宽容度一般。 Portra 160： *** 已停产的160VC和160NC的特点，色彩浓烈度介于两者之间，颗粒非常细，肤色还原令人惊艳，如果有条件柔光拍摄，效果极赞。宽容度大。 Portra 400：与色彩Portra 160类似，颗粒是我能接受的彩色负片的极限，再往上走到Portra 800我就觉得不如使用高感有优势的数码了。非常适合室内人像，肤色还原完美。另外我用这个胶片拍过星轨，你可以安心过曝，而且一定程度的过曝后效果会很好。宽容度大。

kodak portra400不是软件，是一款彩色负片胶片，于1998年发布。它在2006年以及2010重新被设计。就像名字所表示的那样，它适合被应用于肖像摄影，但也可被用于许多其他摄影中。并且Portra 400与Portra 160相似，但是拥有更高的对比度，饱和度以及颗粒。无论你信不信，400的ISO在胶片时代被摄影师们认为属于“高感光”。而Portra 400绝对是有史以来最好的“高感”彩色胶片之一。对所有的胶片，如何拍摄，冲洗，打印以及扫描甚至是胶片的版本都会导致不同的照片效果。有趣的是，柯达曾短暂的制作了黑白版本的Portra 400。与kodak portra400相似的胶片有：Kodak Portra 160配方，增加阴影，高光和色彩一个单位后，会的到非常近似Portra 400的效果。事实的确如此！我很喜欢我所看到的，但是我也在设置上做了更多的调整。看看我是否可以改进它。 其实并不需要太多的调整。我更喜欢将色彩效果设置为“强“时的效果，但是如果你的相机是搭载X-TransⅢ型传感器并没有这个功能。你可以继续使用旧版本的胶片模拟，只是看起来有一些不同。其他的话，我做出的修改还有我把颗粒效果设置成了“强“。

kodak portra400不是软件，是一款彩色负片胶片，于1998年发布。它在2006年以及2010重新被设计。就像名字所表示的那样，它适合被应用于肖像摄影，但也可被用于许多其他摄影中。并且Portra 400与Portra 160相似，但是拥有更高的对比度，饱和度以及颗粒。无论你信不信，400的ISO在胶片时代被摄影师们认为属于“高感光”。而Portra 400绝对是有史以来最好的“高感”彩色胶片之一。对所有的胶片，如何拍摄，冲洗，打印以及扫描甚至是胶片的版本都会导致不同的照片效果。有趣的是，柯达曾短暂的制作了黑白版本的Portra 400。与kodak portra400相似的胶片有：Kodak Portra 160配方，增加阴影，高光和色彩一个单位后，会的到非常近似Portra 400的效果。事实的确如此！我很喜欢我所看到的，但是我也在设置上做了更多的调整。看看我是否可以改进它。 其实并不需要太多的调整。我更喜欢将色彩效果设置为“强“时的效果，但是如果你的相机是搭载X-TransⅢ型传感器并没有这个功能。你可以继续使用旧版本的胶片模拟，只是看起来有一些不同。其他的话，我做出的修改还有我把颗粒效果设置成了“强“。