Answer
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.
We look to ensure that every question is answered by the best people with relevant expertise and experience, the best answers include multiple perspectives. Do you have relevant expertise or experience to contribute your answer to any of these commonly asked questions?
Add New Comment