急急急,如何将下面程序(据说是Basic)转换成C语言!!!

来源:百度知道 编辑:UC知道 时间:2024/07/02 19:23:38
MASTER DNET
⊕ DC ANALYSIS OF TRANSISITOR AMPLIFIER (DNET)
REAL LAMDA
DIMENSION G(10,10),C(10),V(10)
COMMON INIT
DATA CSAT/IE-6/,LAMDA/40.0/
INIT=0
NDIM=NN
⊕ READ INPUT DATA
1 M=0
READ (1)R1,R2,RE,RL,ED,ALF,VDI,NN
DO 4 J=1,NN
4 V(J)=0.0
⊕ SET UP NODE EQUATIONS
3 CALL NODEQ(R1,R2,RE,RL,ED,ALF,VDI,G,V,C,NN,NDIM)
CALL FCTR(G,NN,NDIM)
CALL BKSB(G,NN,C,NDIM)
⊕ V(J)- C(J)IS THE NICREMENT IN THE JTH NODE VOLTAGE
ERR=0.0
DO 2 J=1,NN
ERR=ERR+(V(J)-C(J))**2
Q=C(J)
V(J)=Q
⊕ CALCULATE AND PRINT OUTPUT VOLTAGE
COR=CSAT*(EXP(LAMDA*(V(1)-V(2)))-1)
VCE= V(3)-V(2)
VBE= V(1)-V(2)
WRITE (2,5) M, VBE, VCE, CUR
5 FORMAT (2X, 4HITER, 2X, 3HNO=, I3, 2X, 4HVBE=, F12.5, 2X, 4HVCE=, F12.5, 2X, 4HDIC=, F12.5)
M=M+1
⊕ TEST CONVERGENCE CRITERION
IF(M.GT.15)

应该是BASIC吧!我BASIC,PASCAL,C都会一点,不太精。
这个里面的⊕在C里没见过耶!
通用表达语里面是指 异或 的吧!不是很确定

看到下面的2个函数就不会了,感觉是求数阵的
我是自学的 菜的很……

代码太码,qq给我:469857076

好象是哦,只是太多过于麻烦,不好意思.