当前位置：文档之家 › 电算程序

电算程序

  • 格式：doc
  • 大小：60.00 KB
  • 文档页数：7

c **** static analysis for plane frame systemes ****c **** main program 1999-05-18 ****DIMENSION JE(2,100),JN(3,100),JC(6),EA(100),EI(100),X(100), * Y(100),PJ(2,50),PF(4,100)REAL*8 KE(6,6),KD(6,6),T(6,6),P(300),KB(200,20),F(6),F0(6), * D(6),BL,SI,CO,S,COPEN(5,FILE='FRAM2.DAT')READ(5,*) NE,NJ,N,NW,NPJ,NPFREAD(5,*) (X(J),Y(J),(JN(I,J),I=1,3),J=1,NJ)READ(5,*) ((JE(I,J),I=1,2),EA(J),EI(J),J=1,NE)IF(NPJ.NE.0) READ(5,*) ((PJ(I,J),I=1,2),J=1,NPJ)IF(NPF.NE.0) READ(5,*) ((PF(I,J),I=1,4),J=1,NPF)WRITE(*,10) NE,NJ,N,NW,NPJ,NPFWRITE(*,20) (J,X(J),Y(J),(JN(I,J),I=1,3),J=1,NJ)WRITE(*,30) (J,(JE(I,J),I=1,2),EA(J),EI(J),J=1,NE)IF(NPJ.NE.0) WRITE(*,40) ((PJ(I,J),I=1,2),J=1,NPJ)IF(NPF.NE.0) WRITE(*,50) ((PF(I,J),I=1,4),J=1,NPF)10 FORMAT(/6X,'NE=',I5,2X,'NJ=',I5,2X,'N=',I5,2X,'NW=',I5,2X, * 'NPJ=',I5,2X,'NPF=',I5)20 FORMAT(/7X,'NODE',7X,'X',11X,'Y',12X,'XX',8X,'YY',8X,'ZZ'/ * (1X,I10,2F12.4,3I10))30 FORMAT(/4X,'ELEMENT',4X,'NODE-I',4X,'NODE-J',11X,'EA',13X, * 'EI'/(1X,3I10,2E15.6))40 FORMAT(/7X,'CODE',7X,'PX-PY-PM'/(1X,F10.0,F15.4))50 FORMAT(/4X,'ELEMENT',7X,'IND',10X,'A',14X,'Q',/* (1X,2F10.0,2E15.4))DO 55 I=1,N55 P(I)=0.D0IF(NPJ.EQ.0) GO TO 65DO 60 I=1,NPJL=PJ(1,I)60 P(L)=PJ(2,I)65 IF(NPF.EQ.0) GO TO 90DO 70 I=1,NPFM=PF(1,I)CALL SCL(M,NE,NJ,BL,SI,CO,JE,X,Y)CALL EFX(I,NPF,BL,PF,F0)CALL CTM(SI,CO,T)CALL EJC(M,NE,NJ,JE,JN,JC)DO 75 L=1,6S=0.D0DO 80 K=1,680 S=S-T(K,L)*F0(K)F(L)=S75 CONTINUEDO 85 J=1,6L=JC(J)IF(L.EQ.0) GO TO 85P(L)=P(L)+F(J)85 CONTINUE70 CONTINUE90 DO 95 I=1,NDO 100 J=1,NW100 KB(I,J)=0.D095 CONTINUEDO 105 M=1,NECALL SCL(M,NE,NJ,BL,SI,CO,JE,X,Y)CALL CTM(SI,CO,T)CALL ESM(M,NE,BL,EA,EI,KD)CALL EJC(M,NE,NJ,JE,JN,JC)DO 110 I=1,6DO 115 J=1,6S=0.D0DO 120 L=1,6DO 125 K=1,6125 S=S+T(L,I)*KD(L,K)*T(K,J)120 CONTINUEKE(I,J)=S115 CONTINUE110 CONTINUEDO 130 L=1,6I=JC(L)IF(I.EQ.0) GO TO 130DO 135 K=1,6J=JC(K)IF(J.EQ.0.OR.J.LT.I) GO TO 135JJ=J-I+1KB(I,JJ)=KB(I,JJ)+KE(L,K)135 CONTINUE130 CONTINUE105 CONTINUEN1=N-1DO 140 K=1,N1IM=K+NW-1IF(N.LT.IM) IM=NI1=K+1DO 145 I=I1,IML=I-K+1C=KB(K,L)/KB(K,1)JM=NW-L+1DO 150 J=1,JMJJ=J+I-K150 KB(I,J)=KB(I,J)-C*KB(K,JJ)145 P(I)=P(I)-C*P(K)140 CONTINUEP(N)=P(N)/KB(N,1)DO 155 K=1,N1I=N-KJM=K+1IF(NW.LT.JM) JM=NWDO 160 J=2,JML=J+I-1160 P(I)=P(I)-KB(I,J)*P(L)155 P(I)=P(I)/KB(I,1)WRITE(*,165)165 FORMAT(/7X,'NODE',10X,'U',14X,'V',11X,'CATA') DO 170 I=1,NJDO 175 J=1,3D(J)=0.D0L=JN(J,I)IF(L.EQ.0) GO TO 175D(J)=P(L)175 CONTINUEWRITE(*,180) I,D(1),D(2),D(3)180 FORMAT(1X,I10,3E15.6)170 CONTINUEWRITE(*,200)200 FORMAT(/4X,'ELEMENT',13X,'N',17X,'Q',17X,'M') DO 205 M=1,NECALL SCL(M,NE,NJ,BL,SI,CO,JE,X,Y)CALL ESM(M,NE,BL,EA,EI,KD)CALL CTM(SI,CO,T)CALL EJC(M,NE,NJ,JE,JN,JC)DO 210 I=1,6L=JC(I)D(I)=0.D0IF(L.EQ.0) GO TO 210D(I)=P(L)210 CONTINUEDO 220 I=1,6F(I)=0.D0DO 230 J=1,6DO 240 K=1,6240 F(I)=F(I)+KD(I,J)*T(J,K)*D(K)230 CONTINUE220 CONTINUEIF(NPF.EQ.0) GO TO 270DO 250 I=1,NPFL=PF(1,I)IF(M.NE.L) GO TO 250CALL EFX(I,NPF,BL,PF,F0)DO 260 J=1,6260 F(J)=F(J)+F0(J)250 CONTINUE270 WRITE(*,280) M,(F(I),I=1,6)280 FORMAT(/1X,I10,3X,'N1=',F12.4,3X,'Q1=',F12.4,3X,'M1=',F12.4 * /14X,'N2=',F12.4,3X,'Q2=',F12.4,3X,'M2=',F12.4)205 CONTINUECLOSE(5)STOPENDCSUBROUTINE EJC(M,NE,NJ,JE,JN,JC)DIMENSION JE(2,NE),JN(3,NJ),JC(6)J1=JE(1,M)J2=JE(2,M)DO 10 I=1,3JC(I)=JN(I,J1)10 JC(I+3)=JN(I,J2)RETURNENDCSUBROUTINE SCL(M,NE,NJ,BL,SI,CO,JE,X,Y)DIMENSION JE(2,NE),X(NJ),Y(NJ)REAL*8 BL,SI,CO,DX,DYJ1=JE(1,M)J2=JE(2,M)DX=X(J2)-X(J1)DY=Y(J2)-Y(J1)BL=DSQRT(DX*DX+DY*DY)SI=DY/BLCO=DX/BLRETURNENDCSUBROUTINE ESM(M,NE,BL,EA,EI,KD)DIMENSION EA(NE),EI(NE)REAL*8 KD(6,6),BL,S,G,G1,G2,G3G=EA(M)/BLG1=2.D0*EI(M)/BLG2=3.D0*G1/BLG3=2.D0*G2/BLDO 10 I=1,6DO 10 J=1,610 KD(I,J)=0.D0KD(1,1)=GKD(1,4)=-GKD(4,4)=GKD(2,2)=G3KD(5,5)=G3KD(2,5)=-G3KD(2,3)=-G2KD(2,6)=-G2KD(3,5)=G2KD(5,6)=G2KD(3,3)=2.D0*G1KD(6,6)=2.D0*G1KD(3,6)=G1DO 20 I=1,5I1=I+1DO 30 J=I1,630 KD(J,I)=KD(I,J)20 CONTINUERETURNENDCSUBROUTINE CTM(SI,CO,T)REAL*8 T(6,6),SI,CODO 10 I=1,6DO 10 J=1,610 T(I,J)=0.D0T(1,1)=COT(1,2)=SIT(2,1)=-SIT(2,2)=COT(3,3)=1.D0DO 20 I=1,3DO 20 J=1,320 T(I+3,J+3)=T(I,J)RETURNENDCSUBROUTINE EFX(I,NPF,BL,PF,F0)DIMENSION PF(4,NPF)REAL*8 F0(6),A,B,C,G,Q,S,BLIND=PF(2,I)A=PF(3,I)Q=PF(4,I)C=A/BLG=C*CB=BL-ADO 5 J=1,65 F0(J)=0.D0GO TO (10,20,30,40,50,60,70),IND10 S=Q*A*0.5D0F0(2)=-S*(2.D0-2.D0*G+C*G)F0(5)=-S*G*(2.D0-C)S=S*A/6.D0F0(3)=S*(6.D0-8.D0*C+3.D0*G)F0(6)=-S*C*(4.D0-3.D0*C)GO TO 10020 S=B/BLF0(2)=-Q*S*S*(1.D0+2.D0*C)F0(5)=-Q*G*(1.D0+2.D0*S)F0(3)=Q*S*S*AF0(6)=-Q*B*GGOTO 10030 S=B/BLF0(2)=-6.D0*Q*C*S/BLF0(5)=-F0(2)F0(3)=Q*S*(2.D0-3.D0*S)F0(6)=Q*C*(2.D0-3.D0*C)GO TO 10040 S=Q*A*0.25D0F0(2)=-S*(2.D0-3.D0*G+1.6D0*G*C)F0(5)=-S*G*(3.D0-1.6D0*C)S=S*AF0(3)=S*(2.D0-3.D0*C+1.2D0*G)/1.5D0F0(6)=-S*C*(1.D0-0.8D0*C)GO TO 10050 F0(1)=-Q*A*(1.D0-0.5D0*C)F0(4)=-0.5D0*Q*C*AGOTO 10060 F0(1)=-Q*B/BLF0(4)=-Q*CGO TO 10070 S=B/BLF0(2)=-Q*G*(3.D0*S+C)F0(5)=-F0(2)S=S*B/BLF0(3)=-Q*S*AF0(6)=Q*G*B100 RETURNEND。

合集下载

电算化系统的组成及功能介绍

电算化系统的组成及功能介绍

电算化系统的组成及功能介绍电算化是指利用电子计算机进行数据处理和管理的系统。

电算化系统是由硬件、软件和人员组成的，其主要功能包括数据处理、信息管理和决策支持。

本文将介绍电算化系统的组成和各个组成部分的功能。

一、电算化系统的组成电算化系统主要由以下组成部分构成：1.硬件：硬件是电算化系统的物理设备，包括计算机、服务器、外部存储设备、输入输出设备等。

计算机是电算化系统的核心设备，它能够执行各种数据处理和计算任务。

2.软件：软件是电算化系统的程序和数据，包括系统软件和应用软件。

系统软件是控制和管理硬件资源的程序，比如操作系统和数据库管理系统。

应用软件是为特定任务开发的程序，比如办公软件、财务软件、生产管理软件等。

3.人员：人员是电算化系统的操作和管理者，包括系统管理员、程序员、数据分析师等。

他们负责系统的日常操作和维护，保证系统的正常运行。

二、电算化系统的功能介绍电算化系统具有以下主要功能：1.数据处理：电算化系统能够对大量数据进行快速、准确的处理。

通过输入、存储、处理和输出等环节，系统可以对数据进行分类、统计、计算和分析。

这使得数据的处理效率大大提高，减少了大量的人力和时间成本。

2.信息管理：电算化系统能够对各种信息进行有效的管理和组织。

通过数据库管理系统，系统可以对数据进行存储、查询、更新和删除等操作。

这使得各种信息可以高效地被检索和利用，为决策提供了可靠的依据。

3.决策支持：电算化系统可以为管理者提供决策支持。

通过对数据进行分析和处理，系统可以生成各种报表、图表和统计结果，为管理者提供全面、准确的数据分析和决策依据。

这使得管理者能够更好地了解和掌握企业的运营情况，做出正确的决策。

4.提高工作效率：电算化系统可以通过自动化和信息化的方式提高工作效率。

通过电子邮件、办公软件等工具，系统可以实现信息的快速传递和共享，减少了传统纸质文档的使用和传递。

同时，系统还可以自动化完成一些繁琐的计算和处理任务，提高了工作效率和准确性。

新能源汽车用永磁同步电机路算程序(自编)

新能源汽车用永磁同步电机路算程序(自编)

定子斜槽距离
（一）额定数据 PN UDC UN Uυ =UN/3 0.5 （Y接法） Uυ =UN （△接法） fN m
3
I KW=PN×10 /m/U υ（Y接法） I KW=PN×10 3/m/U υ（△接法） p=60f N/n 1 nN=60f N/p TN=9550×ＰN/n N μN cos υ N
bmN=λ n(1-f
、 a
)/
λ n+1
f
、 a
=Fad
/
σ 0hMHc ×10
Fad=0.45mKadKdpNI d/p
任意取Ｉd=0.4I N
Xd=Xad +X1
交轴磁化曲线Ｉ q-X aq 计算
λ L1=1.3
0.002935117 450.85 70.6155366
45.9955545 0.837452271
永磁体总重量 永磁ห้องสมุดไป่ตู้密度
初选线负荷 每相串联导体数 并联支路数 每槽导体数 每线圈匝数 每线圈匝数 定子电流估算值 初选定子电密值 导体并绕根数和每根导体截面积乘积 初选导体线径 漆膜双边厚度 并绕根数 槽满率计算 槽楔厚度 槽绝缘厚度 槽面积 槽绝缘面积 槽有效面积
b t11 b t12 b t1 h j1 h t1 L j1 Vt1 Vj1 mFe （三）永磁体计算
210 有功电流标幺值
i p=1/ η ’
211 空载有功电流标幺值 212 电抗电流标幺值
式中：
213 无功电流标幺值 214 定子电流标幺值 215 转子电流标幺值 216 定子铜耗标幺值 217 转子铜耗标幺值 218 总损耗标幺值
i oa=qFe+qm i x=Kx i v 2［1+（Ｋxi v） 2］
会计电算化财务软件操作步骤详解

会计电算化财务软件操作步骤详解

会计电算化财务软件操作步骤详解2017年会计电算化财务软件操作步骤详解1增加操作员：打开系统管理应用程序——权限——操作员——增加2建立账套：打开系统管理应用程序——账套——建立3设置操作权限：打开系统管理应用程序——权限——权限4增加会计科目：打开财务应用程序——基础设置——财务——会计科目5填制并保存付款凭证：打开财务应用程序——总账——凭证——填制凭证——增加——保存6输入科目的期初余额：打开财务应用程序——总账——设置——期初余额7查询科目的收款凭证并显示：打开财务应用程序——总账——凭证——查询凭证——选中收款凭证——辅助条件——在科目里查找资本公积8查询总账然后联查明细账：打开财务应用程序——总账——账簿查询——总账9设置供应商档案：打开财务应用程序——基础设置——往来单位——供应商档案10设置凭证类别:打开财务应用程序——基础设置——财务——凭证类别11设置部门档案：打开财务应用程序——基础设置——机构设置——部门档案12审核凭证：打开财务应用程序——总账——凭证——审核凭证13设置外币及汇率：打开财务应用程序——基础设置——财务——外币种类输汇率时选择浮动汇率14结账：打开财务应用程序——总账——期末——结账15修改凭证：打开财务应用程序——凭证——填制凭证——(查找到要修改的凭证)辅助项——修改完后保存16记账：打开财务应用程序——总账——凭证——记账17追加表页输入关键字生成报表：打开财务应用程序——打开考生文件夹——打开资产负债表——编辑——追加——表页——数据——关键字——录入——保存18设置报表单元格行高字体对齐：打开财务应用程序——打开考生文件夹——打开资产负债表——编辑——格式数据状态——格式——行高——格式——单元属性——保存19设置表尺寸并进行区域划线：打开财务应用程序——打开考生文件夹——打开资产负债表——编辑——格式数据状态——格式——表尺寸——格式——区域划线——保存20设置单元格关键字和关键字偏移：打开财务应用程序——打开考生文件夹——打开资产负债表——编辑——格式数据状态——数据——关键字(年月日分三次设置)——设置——数据——偏移——保存21新建报表保存到考生文件夹下：打开财务应用程序——财务报表——新建——保存(重命名)账务取值函数主要有：期末额函数QM(”科目编码”，会计期间)期初额函数QC()发生额函数FS()累计发生额函数LFS()对方科目发生额函数DFS()科目编码：库存现金1001银行存款1002其他货币资金1012应收账款1122其他应收款122122判断并设置单元格计算公式：打开财务应用程序——打开考生文件夹——打开资产负债表——编辑——格式数据状态——数据——编辑公式——单元公式——保存货币资金期末数=QM(”1001”，月)+QM(”1002”，月)+QM(”1012”，月)23调用报表模板：打开财务应用程序——财务报表——文件——新建——格式——报表模板——保存(重命名)24查询纳税所得申报表：打开财务应用程序——工资——工资类别——打开工资类别——选择正式人员——工资——统计分析——账表——纳税所得申报表25设置工资类别：打开财务应用程序——工资——工资类别——新建工资类别(如果工资类别里没有新建工资类别这一项就需要先关闭工资类别)26建立人员档案：打开财务应用程序——工资——工资类别——打开工资类别——工资——设置——人员档案27设置工资项目：打开财务应用程序——工资——设置——工资项目设置28设置工资项目计算公式：打开财务应用程序——工资——工资类别——打开工资类别——工资——设置——工资项目设置29录入工资变动数据：打开财务应用程序——工资——工资类别——打开工资类别——工资——业务处理——工资变动30查询工资发放条：打开财务应用程序——工资——工资类别——打开工资类别——工资——统计分析——账表——我的表——工资表31工资费用分配并生成记账凭证：打开财务应用程序——工资——工资类别——打开工资类别——工资——业务处理——工资分摊——制单——保存32定义工资转账关系：打开财务应用程序——工资——工资类别——打开工资类别——工资——业务处理——工资分摊——工资分摊设置——增加33录入工资原始数据：打开财务应用程序——工资——工资类别——打开工资类别——工资——业务处理——工资变动34查询固定资产使用状况分析表：打开财务应用程序——固定资产——账表——我的账表——分析表——固定资产使用状况分析表35固定资产增加：打开财务应用程序——固定资产——卡片——资产增加——保存36录入固定资产原始卡片：打开财务应用程序——固定资产——卡片——录入原始卡片——保存37设置固定资产类别：打开财务应用程序——固定资产——设置——资产类别——增加——保存38查询所有部门的计提折旧汇总表：打开财务应用程序——固定资产——账表——我的账表——折旧表——部门折旧计提汇总表39查询固定资产统计表：打开财务应用程序——固定资产——账表——我的账表——统计表——固定资产统计表40查询某类固定资产明细表：打开财务应用程序——固定资产——账表——我的账表——账簿——单个固定资产明细表——在类别下拉菜单中找到某类41计提本月固定资产折旧生成凭证：打开财务应用程序——固定资产——处理——计提本月折旧————点凭证——借方固定资产清理1606,贷方累计折旧1602——保存42资产变动：打开财务应用程序——固定资产——卡片——变动单——原值增加——保存43查询某类固定资产总账：打开财务应用程序——固定资产——账表——我的账表——账簿——固定资产总账——选择类别44查询供应商往来余额表：打开财务应用程序——采购——供应商往来账表——供应商往来余额表4546设置客户档案：打开财务应用程序——基础设置——往来单位——客户档案47输入期初采购专用发票：打开财务应用程序——采购——采购发票——增加(选择专用发票)——保存48查询全部客户的客户往来余额表：打开财务应用程序——销售——客户往来账表——客户往来余额表49查询全部供应商的供应商对账单：打开财务应用程序——采购——供应商往来账表——供应商往来对账单50将收款单余销售发票进行核销：打开财务应用程序——销售——客户往来——收款结算——点核销——在本次结算中输入核销的金额——保存51设置供应商档案：打开财务应用程序——基础设置——往来单位——供应商档案52输入采购专用发票：打开财务应用程序——采购——采购发票——增加(选择专用发票)——保存53输入销售专用发票：打开财务应用程序——销售——销售发票——增加(选择专用发票)——保存54对销售发票进行账龄分析：打开财务应用程序——销售——客户往来账表——账龄分析55输入付款单：开财务应用程序——采购——供应商往来——付款结算56查询全部客户对账单：打开财务应用程序——销售——客户往来账表——客户对账单。

会计电算化实训内容及过程

会计电算化实训内容及过程

会计电算化实训内容及过程一、实训内容介绍会计电算化实训是指通过计算机等电子设备进行会计核算和财务管理的实践操作。

具体包括以下内容：1. 会计软件操作：学习并掌握常用的会计软件，如金蝶、用友等，了解其基本功能和操作流程。

2. 会计凭证录入：学习并掌握会计凭证的录入方法，包括手工录入和导入外部数据等。

3. 账务处理：学习并掌握账务处理方法，包括科目设置、账户管理、日记账、总账等。

4. 报表输出：学习并掌握报表输出方法，如资产负债表、利润表、现金流量表等。

5. 数据备份与恢复：学习并掌握数据备份与恢复的方法，保障数据安全。

二、实训过程详解1. 实验前准备在开始实验前，需要做好以下准备工作：（1）选择合适的电脑设备和软件系统。

建议使用较新版本的Windows系统，并选择常用的会计软件。

（2）安装相应的驱动程序和软件。

根据所选设备和系统版本，下载并安装相应的驱动程序和软件。

（3）建立测试数据库。

在实验前，需要建立一个测试用的数据库，用于练习和测试各种操作。

2. 会计软件操作学习并掌握常用的会计软件，如金蝶、用友等，了解其基本功能和操作流程。

具体步骤如下：（1）打开会计软件。

双击桌面上的相应图标或通过开始菜单进入。

（2）新建账套。

在软件中选择“新建账套”，按照提示进行设置。

（3）设置凭证字号。

在软件中选择“设置凭证字号”，按照提示进行设置。

（4）录入基础数据。

包括科目设置、账户管理等。

3. 会计凭证录入学习并掌握会计凭证的录入方法，包括手工录入和导入外部数据等。

具体步骤如下：（1）手工录入凭证。

在软件中选择“手工录入凭证”，按照提示进行填写。

（2）导入外部数据。

将外部数据以Excel表格形式导入到会计软件中，并进行处理和调整。

4. 账务处理学习并掌握账务处理方法，包括科目设置、账户管理、日记账、总账等。

具体步骤如下：（1）科目设置。

在软件中选择“科目设置”，按照提示进行设置。

（2）账户管理。

在软件中选择“账户管理”，按照提示进行设置。