反射光栅:用一个模块输出三角波,怎么用fortran语言编写

来源:百度文库 编辑:高校问答 时间:2024/05/02 11:42:02
在pscad中若想用一个模块输出三角波,怎么在模块里用fortran语言编写

PSCAD中CMSF自带,也可以编程:
!23456
# LOCAL real Ts,timer

Ts=0.02

IF (timer.GT.Ts) THEN
timer=timer-Ts
END IF

IF(timer.LT.Ts) THEN

timer=timer+DELT
IF(timer.LE.Ts/2) THEN
$out=4*timer/Ts-1
END IF
IF(timer.GT.Ts/2) THEN
$out=-4*timer/Ts+3
END IF
END IF
驻: Ts=0.02,表示 周期