help with hpppl

[roadrunner]

leprechaun,

I had some more time to look at your code. This seems to do what you need:

Code:

ZIN_F:=4000000;
ZIN_REAL:=400;
ZIN_IMA:=400;

EXPORT zin1()
BEGIN
 LOCAL REAL,IMA,n,w,r,c;
 LOCAL x,y,z;
 INPUT({{ZIN_F,[0]},{ZIN_REAL,[0]},{ZIN_IMA,[0]}},"IMPEDANCE",{"freq","real","imag"});

 w:=2*π*ZIN_F;
 n:=1+w^2*'r'^2*'c'^2;
// REAL:='R'/'N';
// IMA:=W*'C'*'R'^2/'N';
 x:="[r/("+n+")="+ZIN_REAL+","+w+"*c*r^2/("+n+")="+ZIN_IMA+"]";
 y:="[r,c]";
 z:=CAS.solve(x,y);

//({REAL=ZIN_REAL,IMA=ZIN_IMA},{'R','C'});
 RETURN z;
END;

try it and see if it gives you good results.

-road