longrob,

I would like to get wc out of 2*Z0/sqrt(4*Z0+1/(wc*C1-1/(wc*L1))+1/(wc*C2-1/(wc*L2))) = 1/sqrt(2), but if I assign

wc := solve({2*Z0/sqrt(4*Z0+1/(wc*C1-1/(wc*L1))+1/(wc*C2-1/(wc*L2))) = 1/sqrt(2)}, {wc}):, this assignment is also recursive...

longrob,

I would like to get wc out of 2*Z0/sqrt(4*Z0+1/(wc*C1-1/(wc*L1))+1/(wc*C2-1/(wc*L2))) = 1/sqrt(2), but if I assign

wc := solve({2*Z0/sqrt(4*Z0+1/(wc*C1-1/(wc*L1))+1/(wc*C2-1/(wc*L2))) = 1/sqrt(2)}, {wc}):, this assignment is also recursive...

longrob, thank you!

1. Corrected.

2. Corrected.

3, 4. This is how the equations are determined. Look at http://www.microwavejournal.com/articles/11893-broadband-bandstop-filter-using-periodic-fractal-electromagnetic-bandgap-structures (eq. 5), please.

5. Corrected, but there are only 11 variables: C1, C2, L1, L2, S11, S21, Z, R1, R2, w0, wc.

6. Corrected.

Could you please look at my program (something is still wrong)?

> restart: with(student):
> Z0 := 377:
> solve({2*Z0/sqrt(4*Z0+1/(wc*C1-1/(wc*L1))+1/(wc*C2-1/(wc*L2))) = 1/sqrt(2)}, {wc}):
> Z := 1/(I*w*C1+1/(I*w*L1)+1/R1)+1/(I*w*C2+1/(I*w*L2)+R2):

S11 := abs(Z/(2*Z0+Z)); S21 := abs(2*Z0/(2*Z0+Z)):

C1 := wc*(w0^2-wc^2)*(w2^2-w1^2)/(2*Z0*(w1^2-wc^2)*(w0^2-w1^2)):

C2 := wc*(w0^2-wc^2)*(w2^2-w1^2)/(2*Z0*(w1^2-wc^2)*(w2^2-wc^2)*(w2^2-w0^2)):

L1 := 1/(w1^2*C1); L2 := 1/(w2^2*C2):

R1 := subs(w = w1, 2*Z0*(1-S21)/S21):

R2 := subs(w = w2, 2*Z0*(1-S21)/S21):

w0 := sqrt(L1+L2)/sqrt(L1/w2^2+L2/w1^2):
Error, recursive assignment
Error, recursive assignment
Error, recursive assignment
> solve({C1, C2, L1, L2, R1, R2, S11, S21, Z, w0}, {C1, C2, L1, L2, R1, R2});
Warning, solving for expressions other than names or functions is not recommended.
Warning, solutions may have been lost

longrob, thank you!

1. Corrected.

2. Corrected.

3, 4. This is how the equations are determined. Look at http://www.microwavejournal.com/articles/11893-broadband-bandstop-filter-using-periodic-fractal-electromagnetic-bandgap-structures (eq. 5), please.

5. Corrected, but there are only 11 variables: C1, C2, L1, L2, S11, S21, Z, R1, R2, w0, wc.

6. Corrected.

Could you please look at my program (something is still wrong)?

> restart: with(student):
> Z0 := 377:
> solve({2*Z0/sqrt(4*Z0+1/(wc*C1-1/(wc*L1))+1/(wc*C2-1/(wc*L2))) = 1/sqrt(2)}, {wc}):
> Z := 1/(I*w*C1+1/(I*w*L1)+1/R1)+1/(I*w*C2+1/(I*w*L2)+R2):

S11 := abs(Z/(2*Z0+Z)); S21 := abs(2*Z0/(2*Z0+Z)):

C1 := wc*(w0^2-wc^2)*(w2^2-w1^2)/(2*Z0*(w1^2-wc^2)*(w0^2-w1^2)):

C2 := wc*(w0^2-wc^2)*(w2^2-w1^2)/(2*Z0*(w1^2-wc^2)*(w2^2-wc^2)*(w2^2-w0^2)):

L1 := 1/(w1^2*C1); L2 := 1/(w2^2*C2):

R1 := subs(w = w1, 2*Z0*(1-S21)/S21):

R2 := subs(w = w2, 2*Z0*(1-S21)/S21):

w0 := sqrt(L1+L2)/sqrt(L1/w2^2+L2/w1^2):
Error, recursive assignment
Error, recursive assignment
Error, recursive assignment
> solve({C1, C2, L1, L2, R1, R2, S11, S21, Z, w0}, {C1, C2, L1, L2, R1, R2});
Warning, solving for expressions other than names or functions is not recommended.
Warning, solutions may have been lost

You was right. Thank you!

You was right. Thank you!

Thanks a lot for your corrections!

Thanks a lot for your corrections!

Many thanks. I'll try this evening.

Many thanks. I'll try this evening.

Thanks. I changed it.

Thanks. I changed it.

Thanks a lot. It works. And I have got a correct result. But I didn't fined how to convert "table" type into "array"... "C1 := convert(C, Array)" is not right one. What is the right way?

Thanks a lot. It works. And I have got a correct result. But I didn't fined how to convert "table" type into "array"... "C1 := convert(C, Array)" is not right one. What is the right way?