Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/escomma/examples/ex4.hs

Copyright © 2021 Plan 9 Foundation.
Distributed under the MIT License.
Download the Plan 9 distribution.


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

Bell Labs OSI certified Powered by Plan 9

(Return to Plan 9 Home Page)

Copyright © 2021 Plan 9 Foundation. All Rights Reserved.
Comments to [email protected].