--------------------------------------------------------------------------------
import DC
import Circuit
circuit :: ([Int],[Double]) -> [Double] -> [Double]
-> [([[Int]], Double)]
circuit p0 n0 t0 =
(res1 1 1 2 1000.0 p0 n0 t0) ++
(res1 2 2 0 250.0 p0 n0 t0) ++
(res1 3 3 0 333.3333 p0 n0 t0) ++
(res1 4 1 3 500.0 p0 n0 t0) ++
(idc1 5 1 0 0.2 p0 n0 t0) ++
(idc1 6 3 2 0.3 p0 n0 t0)
main = circuit ([mOP],[]) [] []
{-
V(1) = 130.0V
v(2) = -34.0V
v(3) = 112.0V
-}
|