[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: gEDA-user: Circuit Simulators



At Sat, 30 Jun 2001 12:25:06 -0400 (EDT),
Paul Komarek wrote:
> 
> 
> What are the current options for circuit simulators in linux?  I've seen
> spice and ACS.  In particular, I'm looking for the (apologies in advance
> for being pathetic) schematic-capture/circuit-simulator combo, or at least
> a schematic capture program that exports whatever I'd need for spice.
> 
> Or is it time for me to learn to generate spice input by hand?
> 
> Thanks for answering this hobbyist's questions.
> 
> -Paul Komarek
> 

Could you test my scheme ?
Please add scheme below to .gEDA/gschemrc and add keymap "1" key ->
"direct-gwave" function like this 

	("1" . direct-gwave)

gschem can be shown simulation result wave form directly(ofcurse, you
need ngspice and gwave).
I put sample schematic at 
	http://members.jcom.home.ne.jp/pnms/src/direct-gwave-test.sch


---------CUT HERE---------
;
;gschem->ngspice->gwave direct view
;
(define (direct-gwave)
  (let* ((filename-without-suffix (substring (get-selected-filename) 0 (string-index (get-selected-filename) #\.)))
         (filename-sch (get-selected-filename))
         (filename-cir (string-append filename-without-suffix ".cir"))
         (filename-raw (string-append filename-without-suffix ".raw"))
         (netlister "/usr/local/bin/gnetlist")
         (simulator "/usr/local/bin/ngspice")
         (viewer "/usr/local/bin/gwave"))
    (system (string-append netlister " -g spice " filename-sch " -o " filename-cir))
    (system (string-append simulator " -r " filename-raw " -b " filename-cir ))
    (system (string-append viewer " " filename-raw " &"))))

(define (simulation)
  (let* ((filename-without-suffix (substring (get-selected-filename) 0 (string-index (get-selected-filename) #\.)))
         (filename-sch (get-selected-filename))
         (filename-cir (string-append filename-without-suffix ".cir"))
         (filename-raw (string-append filename-without-suffix ".raw"))
         (netlister "/usr/local/bin/gnetlist")
         (simulator "/usr/local/bin/ngspice"))
    (file-save)
    (system (string-append netlister " -g spice " filename-sch " -o " filename-cir))
    (system (string-append simulator " -r " filename-raw " -b " filename-cir ))))
---------CUT HERE---------

Best Regard,
-- 
MIYAMOTO Takanori