交流社区 › PSCAD › 用fortran编程自定义的元件为何不能运行

zlw 发表于 2012-5-26 20:17:55

用fortran编程自定义的元件为何不能运行

我自己用fortran定义的元件，有什么错误呢，请高手指导，非常感谢。               
               k1=1.25
       k2=0.95
       k3=170
       k4=1.5e-3
       E0=536.5e3
       #LOCAL REAL x
       #LOCAL REAL U50       
       #LOCAL REAL Ts
       #LOCAL REAL d
       #LOCAL REAL Vt
       #LOCAL REAL E
       #LOCAL REAL E50
       x=$d
       E=$in/$d
       E50=$U50*1e3/$d
       Ts=1/(k1*E/E50-k2)
       IF($in>k2/k1*$U50*1e3)THEN
               DO WHILE(Ts>0)
                        Ts=Ts-DELT
               END DO
               DO WHILE($in/x-E0>0)
                        Vt=k3*$d*exp(k4*$in/$d)*($in/x-E0)
                        x=x-DELT*Vt
               END DO
               $out=1
       ELSE
                $out=0
       ENDIF

ldelly 发表于 2012-5-27 10:34:37

光看程序可能还不行的吧？你还要把输入，输出都搭好了才可以晓得你的问题出在哪里了

mingyu 发表于 2012-5-27 12:20:38

本帖最后由 mingyu 于 2012-5-27 12:23 编辑

至少要给个模型图啊，错误提示信息什么的，问题不清楚。

查看完整版本: 用fortran编程自定义的元件为何不能运行