--------------------------------------------------------------------------------
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
-}