英文:
How do I automate/optimize D/Y connection selection based on selected input voltage and motor plate voltage values?
问题
以下是翻译好的代码部分:
(*检查所选电机的电机板电压数值和所选电压,然后根据上表的选择连接电机到Delta或Wye*)
IF gxAutoDYSwitch THEN // TRUE = 启用自动D/Y选择
(*当输入电压为230 V时,所有电机组的代码*)
(*当输入电压为400 V时,如果所选电机为230/400 V,则电机连接到400 V D,如果所选电机为400/690 V,则电机连接到400 V Y*)
IF gx400VSelected THEN // 选择了400 V输入电压
// 电机组1 电机1
IF MotorSet1.Motor1.MotorVoltageDelta = 230 AND MotorSet1.Motor1.MotorVoltageWye = 400 AND MotorSet1.Motor1.Selected THEN
MotorSet1.Motor1.DeltaConnected := TRUE;
MotorSet1.Motor1.WyeConnected := FALSE;
ELSIF MotorSet1.Motor1.MotorVoltageDelta = 400 AND MotorSet1.Motor1.MotorVoltageWye = 690 AND MotorSet1.Motor1.Selected THEN
MotorSet1.Motor1.WyeConnected := TRUE;
MotorSet1.Motor1.DeltaConnected := FALSE;
END_IF
// 电机组1 电机2
IF MotorSet1.Motor2.MotorVoltageDelta = 230 AND MotorSet1.Motor2.MotorVoltageWye = 400 AND MotorSet1.Motor2.Selected THEN
MotorSet1.Motor2.DeltaConnected := TRUE;
MotorSet1.Motor2.WyeConnected := FALSE;
ELSIF MotorSet1.Motor2.MotorVoltageDelta = 400 AND MotorSet1.Motor2.MotorVoltageWye = 690 AND MotorSet1.Motor2.Selected THEN
MotorSet1.Motor2.WyeConnected := TRUE;
MotorSet1.Motor2.DeltaConnected := FALSE;
END_IF
// 电机组2 电机1的代码在此以类似的方式编写
// 电机组2 电机2的代码在此以类似的方式编写
// 电机组3 电机1的代码在此以类似的方式编写
// 电机组3 电机2的代码在此以类似的方式编写
(*当输入电压为500 V时的所有电机组的代码*)
(*当输入电压为690 V时的所有电机组的代码*)
END_IF
希望这可以帮助您理解代码。如果您需要任何进一步的帮助,请随时告诉我。
英文:
I have a test setup with six (6) selectable load motors and four (4) possible input voltage options. The motors are divided into three (3) motor sets, each containing two (2) motors (i.e. 1M1 1M2, 2M1 2M2 and 3M1 3M2 where the first number is the motor set number and Mx the motor).
I want to automate the D/Y connection selection of a selected motor based on the motor plate voltage values and the selected input voltage according to the following table
Selected Input Voltage | Motor Connection (Delta / Wye) |
---|---|
230 V | 230V D |
400 V | 400V D / 400V Y (D if the motor is 230/400 and Y if the motor is 400/690) |
500 V | 400V D / 400V Y (D if the motor is 230/400 and Y if the motor is 400/690) |
690 V | 690V Y |
I'm using Automation Builder 2.5 (with AC500 V3 PLC) and Structured Text (ST) according to IEC 61131-3.
I need to check which input voltage and motor is selected and then check the motor plate voltage values (the motor plate values are initialized elsewhere in the program) for the selected motor and connect it according to the table above.
Currently I have solved the issue with IF-ELSIF statements like so:
(*Check motor plate voltage values and the selected voltage and connect the motors to Delta or Wye based on the selections*)
IF gxAutoDYSwitch THEN //TRUE = automatic D/Y selection is enabled
(*The code for all the motor sets when Input voltage is 230 V*)
(*Input voltage is 400 V -> Motor connection 400 V D if selected motor is 230/400 V and 400 V Y if selected motor is 400/690 V*)
IF gx400VSelected THEN //400 V input voltage is selected
//Motor set 1 Motor 1
IF MotorSet1.Motor1.MotorVoltageDelta = 230 AND MotorSet1.Motor1.MotorVoltageWye = 400 AND MotorSet1.Motor1.Selected THEN
MotorSet1.Motor1.DeltaConnected := TRUE;
MotorSet1.Motor1.WyeConnected := FALSE;
ELSIF MotorSet1.Motor1.MotorVoltageDelta = 400 AND MotorSet1.Motor1.MotorVoltageWye = 690 AND MotorSet1.Motor1.Selected THEN
MotorSet1.Motor1.WyeConnected := TRUE;
MotorSet1.Motor1.DeltaConnected := FALSE;
END_IF
//Motor set 1 Motor 2
IF MotorSet1.Motor2.MotorVoltageDelta = 230 AND MotorSet1.Motor2.MotorVoltageWye = 400 AND MotorSet1.Motor2.Selected THEN
MotorSet1.Motor2.DeltaConnected := TRUE;
MotorSet1.Motor2.WyeConnected := FALSE;
ELSIF MotorSet1.Motor2.MotorVoltageDelta = 400 AND MotorSet1.Motor2.MotorVoltageWye = 690 AND MotorSet1.Motor2.Selected THEN
MotorSet1.Motor2.WyeConnected := TRUE;
MotorSet1.Motor2.DeltaConnected := FALSE;
END_IF
//Motor set 2 Motor 1 code here written in a similar manner here
//Motor set 2 Motor 2 code here written in a similar manner here
//Motor set 3 Motor 1 code here written in a similar manner here
//Motor set 3 Motor 2 code here written in a similar manner here
(*The code for all the motor sets when Input voltage is 500 V*)
(*The code for all the motor sets when Input voltage is 690 V*)
END_IF
gxAutoDYSwitch is a BOOLean variable that is used to enable or disable this automatic feature (so that the operator may override the automatic selection if needed for a specific test case). To save space I've only provided the code for motor set 1 and the 400 V case. The other cases (for all the input voltages and motor sets) are written in a similar manner.
What I want to achieve: An automatic D/Y selection for any selected motor from a set of six (6) motors based on the motor plate values of the selected motor and the selected supply voltage.
Now I know my code should work as intended, but I was wondering if there is a more efficient way to achieve the same result, since as the way it is currently written it takes roughly 200 lines of code to achieve what I want.
For those of you who are wondering I've created a MotorSet STRUCT and a Motor STRUCT, the MotorSet STRUCT contains two Motor STRUCTs and the Motor STRUCT contains all the relevant properties (like the motor plate values and some indications) of a motor.
答案1
得分: 0
如果要在一组大量对象上执行相同的代码,您需要以某种方式将它们都放入一个数组中并循环处理。
例如:
TYPE MotorSet :
UNION
Motors: ARRAY [1..2] OF Motor;
// 如果集合中的电机数量可能不同,则此项可选,
// 在初始化期间设置它,然后循环处理 1 TO Count
Count: USINT;
END_UNION
END_TYPE
motorSets: ARRAY [1..3] OF MotorSet;
// 如果要继续使用单独的变量访问电机集合,这项是可选的;
MotorSet1: REFERENCE TO MotorSet REF= motorSets[1];
MotorSet2: REFERENCE TO MotorSet REF= motorSets[2];
MotorSet3: REFERENCE TO MotorSet REF= motorSets[3];
// 循环迭代器
i: DINT;
j: DINT;
FOR i := 1 TO 3 DO
// 如果集合中电机数量不同,使用 j := 1 TO motorSets[i].Count 替代
FOR j := 1 TO 2 DO
IF motorSets[i].Motors[j].MotorVoltageDelta = 230 AND motorSets[i].Motors[j].MotorVoltageWye = 400 AND motorSets[i].Motors[j].Selected THEN
motorSets[i].Motors[j].DeltaConnected := TRUE;
motorSets[i].Motors[j].WyeConnected := FALSE;
ELSIF motorSets[i].Motors[j].MotorVoltageDelta = 400 AND motorSets[i].Motors[j].MotorVoltageWye = 690 AND motorSets[i].Motors[j].Selected THEN
motorSets[i].Motors[j].WyeConnected := TRUE;
motorSets[i].Motors[j].DeltaConnected := FALSE;
END_IF
END_FOR
END_FOR
或者,您可以将逻辑放入一个单独的函数中,并传递指向电机的指针/引用:
// motorLogicFunc 接受电机作为 IN_OUT(或引用)
motorLogicFunc(motor := MotorSet1.Motor1);
motorLogicFunc(motor := MotorSet1.Motor2);
motorLogicFunc(motor := MotorSet2.Motor1);
// 等等
英文:
If you want to execute the same code on a large set of objects, you need to somehow place them all in an array and loop over them.
For example:
TYPE MotorSet :
UNION
Motors: ARRAY [1..2] OF Motor;
// optional if the number of motors in the set may vary,
// in which case, set it during initialize, and then
// loop over 1 TO Count instead
Count: USINT;
END_UNION
END_TYPE
motorSets: ARRAY [1..3] OF MotorSet;
// optional if you want to continue accessing motor sets with separate variables;
MotorSet1: REFERENCE TO MotorSet REF= motorSets[1];
MotorSet2: REFERENCE TO MotorSet REF= motorSets[2];
MotorSet3: REFERENCE TO MotorSet REF= motorSets[3];
// loop iterators
i: DINT;
j: DINT;
FOR i := 1 TO 3 DO
// if the number of motors in the set varies,
// use j := 1 TO motorSets[i].Count instead
FOR j := 1 TO 2 DO
IF motorSets[i].Motors[j].MotorVoltageDelta = 230 AND motorSets[i].Motors[j].MotorVoltageWye = 400 AND motorSets[i].Motors[j].Selected THEN
motorSets[i].Motors[j].DeltaConnected := TRUE;
motorSets[i].Motors[j].WyeConnected := FALSE;
ELSIF motorSets[i].Motors[j].MotorVoltageDelta = 400 AND motorSets[i].Motors[j].MotorVoltageWye = 690 AND motorSets[i].Motors[j].Selected THEN
motorSets[i].Motors[j].WyeConnected := TRUE;
motorSets[i].Motors[j].DeltaConnected := FALSE;
END_IF
END_FOR
END_FOR
Alternatively, you could put the logic into a separate function and pass a pointer/reference to the motor:
// motorLogicFunc accepts motor as an IN_OUT (or reference)
motorLogicFunc(motor := MotorSet1.Motor1);
motorLogicFunc(motor := MotorSet1.Motor2);
motorLogicFunc(motor := MotorSet2.Motor1);
// etc
通过集体智慧和协作来改善编程学习和解决问题的方式。致力于成为全球开发者共同参与的知识库,让每个人都能够通过互相帮助和分享经验来进步。
评论