Question

用一个模块输出三角波,怎么用fortran语言编写

在pscad中若想用一个模块输出三角波,怎么在模块里用fortran语言编写

Answer 1

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，表厅闷示郑伏拦 周期

Answer 2

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，表示
周兄袭期