Circuit convert delta star

[luisfratari]

PHP Code:

EXPORT DELTA_ESTRELA()
BEGIN
LOCAL 
Ra,Rb,Rc,Rab,Rbc,Rac;

CHOOSE(C,"Transf_?_Y",{"?_Y","Y_?"});
CASE
IF C==2 THEN INPUT({Ra,Rb,Rc}); 

PRINT("Rab="+(Ra*Rb+Rb*Rc+Rc*Ra)/Rc);
PRINT("Rbc="+(Ra*Rb+Rb*Rc+Rc*Ra)/Ra);
PRINT("Rac="+(Ra*Rb+Rb*Rc+Rc*Ra)/Rb);

END;

IF C==1 THEN INPUT({Rab,Rbc,Rac});
PRINT("Ra="+(Rab*Rac)/(Rab+Rbc+Rac));
PRINT("Rb="+(Rab*Rbc)/(Rab+Rbc+Rac));
PRINT("Rc="+(Rbc*Rac)/(Rab+Rbc+Rac));


END;