Answers
This question has not yet been answered.
#STORAGE REAL:2 RTCF:2
#BEGIN
CALL TVEKA1_CFG($Vbas,$Fbas)
#ENDBEGIN
#LOCAL REAL RVD1_1
#LOCAL REAL RVD1_2
#LOCAL REAL RVD1_3
#IF PMode==1
RVD1_1 = $THOFF*PI_BY180
#ELSE
RVD1_1 = $THOFF
#ENDIF
CALL COMPONENT_ID(ICALL_NO,$#Component)
#IF Mode==0
CALL TVEKA1_EXE($Va,$Vb,$Vc,$Gp,$Gi,RVD1_1,$TREL,$HiLimit,$LoLimit,$Theta,RVD1_3,RVD
1_2)
#IF PMode==1
$Theta = $Theta*BY180_PI
#ENDIF
#ELSE
CALL TVEKA1_EXE($Va,$Vb,$Vc,$Gp,$Gi,RVD1_1,$TREL,$HiLimit,$LoLimit,$Theta(1),RVD1_3,
RVD1_2)
#IF Mode==2
$ThetaD(1)= $Theta(1)
#IF dlead==1
+ + 0.5*PI_BY3
IF($ThetaD(1).GE.TWO_PI) $ThetaD(1)=$ThetaD(1)-TWO_PI
#ELSE
+ - 0.5*PI_BY3
IF($ThetaD(1).LT.0.0) $ThetaD(1)=$ThetaD(1)+TWO_PI
#ENDIF
CALL TVPULN($Pmode,$ThetaD)
#ENDIF
CALL TVPULN($PMode,$Theta)
#ENDIF
#OUTPUT REAL FName {RVD1_2}
#OUTPUT REAL Err {RVD1_3}
Do you have the same question? Follow this Question
This question has not yet been answered.
Add New Comment