Browse Source
odification to parsing function for new device model (BSIM3SOIDD). Prepended
pre-master-46
odification to parsing function for new device model (BSIM3SOIDD). Prepended
pre-master-46
pnenzi
26 years ago
23 changed files with 258 additions and 58 deletions
-
15ChangeLog
-
9DEVICES
-
8configure.in
-
2man/man1/Makefile.am
-
0man/man1/ngnutmeg.1
-
0man/man1/ngsconvert.1
-
0man/man1/ngspice.1
-
28src/Makefile.am
-
2src/include/cktdefs.h
-
0src/nghelp.c
-
0src/ngmultidec.c
-
0src/ngnutmeg.c
-
0src/ngproc2mod.c
-
0src/ngsconvert.c
-
64src/setplot
-
83src/spectrum
-
5src/spicelib/analysis/ChangeLog
-
2src/spicelib/analysis/cktsgen.c
-
1src/spicelib/devices/Makefile.am
-
52src/spicelib/devices/dev.c
-
31src/spicelib/parser/inp2m.c
-
10src/spicelib/parser/inpdomod.c
-
4src/spinit
@ -1,7 +1,7 @@ |
|||||
## Process this file with automake to produce Makefile.in
|
## Process this file with automake to produce Makefile.in
|
||||
|
|
||||
|
|
||||
man_MANS = spice.1 nutmeg.1 sconvert.1 |
|
||||
|
man_MANS = ngspice.1 ngnutmeg.1 ngsconvert.1 |
||||
|
|
||||
EXTRA_DIST = $(man_MANS) |
EXTRA_DIST = $(man_MANS) |
||||
|
|
||||
|
|||||
@ -0,0 +1,64 @@ |
|||||
|
* set the current working plot |
||||
|
.control |
||||
|
|
||||
|
begin |
||||
|
unset resp |
||||
|
if $argc |
||||
|
set resp = $argv[1] |
||||
|
else |
||||
|
if $?plots = 0 |
||||
|
echo Error: there aren\'t any plots currently loaded. |
||||
|
goto bottom |
||||
|
else |
||||
|
if $#plots = 0 |
||||
|
echo Error: there aren\'t any plots currently loaded. |
||||
|
goto bottom |
||||
|
end |
||||
|
end |
||||
|
|
||||
|
if $?resp = 0 |
||||
|
set oldplot = $curplot |
||||
|
echo ' Type the name of the desired plot:' |
||||
|
echo '' |
||||
|
echo ' new New plot' |
||||
|
foreach pl $plots |
||||
|
set curplot = $pl |
||||
|
strcmp i $pl $oldplot |
||||
|
if $i = 0 |
||||
|
echo "Current $pl $curplottitle ({$curplotname})" |
||||
|
else |
||||
|
echo " $pl $curplottitle ({$curplotname})" |
||||
|
end |
||||
|
end |
||||
|
set curplot = $oldplot |
||||
|
echo -n '? ' |
||||
|
set resp = $< |
||||
|
end |
||||
|
end |
||||
|
|
||||
|
|
||||
|
strcmp i $resp "" |
||||
|
if $i = 0 |
||||
|
goto bottom |
||||
|
end |
||||
|
|
||||
|
strcmp i $resp new |
||||
|
if $i = 0 |
||||
|
set curplot = new |
||||
|
goto bottom |
||||
|
end |
||||
|
|
||||
|
foreach pl $plots |
||||
|
strcmp i $resp $pl |
||||
|
if $i = 0 |
||||
|
set curplot = $pl |
||||
|
goto bottom |
||||
|
end |
||||
|
end |
||||
|
|
||||
|
echo Error: no such plot name $resp |
||||
|
|
||||
|
label bottom |
||||
|
|
||||
|
unset resp i pl newflag oldplot |
||||
|
end |
||||
@ -0,0 +1,83 @@ |
|||||
|
* Fourier Series Function for SPICE |
||||
|
.control |
||||
|
begin |
||||
|
if ($argc lt 4) |
||||
|
echo Error: Too few arguments. |
||||
|
echo ' 'Spectrum produces a plot containing a fourier series transformation of |
||||
|
echo ' 'the specified vectors |
||||
|
echo usage: spectrum startfreq stop step vec [[vec] ...] |
||||
|
goto bottom |
||||
|
end |
||||
|
|
||||
|
if ( time eq time ) |
||||
|
foreach vec $argv[4-len] |
||||
|
if ( $vec eq $vec ) |
||||
|
else |
||||
|
goto bottom |
||||
|
end |
||||
|
end |
||||
|
else |
||||
|
echo ' 'Spectrum can not work without a time vector from a transient analysis. |
||||
|
goto bottom |
||||
|
end |
||||
|
|
||||
|
set dt=$curplot |
||||
|
set title=$curplottitle |
||||
|
set curplot=new |
||||
|
set scratch=$curplot |
||||
|
let span={$dt}.time[length({$dt}.time)-1]-{$dt}.time[0] |
||||
|
if ($argv[3] gt 0.999/span) |
||||
|
let fpoints= ( $argv[2] - $argv[1] ) / $argv[3] +1 |
||||
|
if (fpoints < 2) |
||||
|
echo frequency start stop or step not correctly specified |
||||
|
goto cleanup |
||||
|
end |
||||
|
else |
||||
|
echo Error: time span is not long enough for a step frequency of $argv[3] Hz |
||||
|
goto cleanup |
||||
|
end |
||||
|
let lent = length({$dt}.time) |
||||
|
set lent = "$&lent" |
||||
|
let nyquist = {$lent}/2/span |
||||
|
if ($argv[2] gt nyquist) |
||||
|
echo Error: The nyquist limit is exceeded, try a frequency less than "$&nyquist" Hz |
||||
|
goto cleanup |
||||
|
end |
||||
|
set fpoints="$&fpoints" |
||||
|
set curplot=new |
||||
|
set spec=$curplot |
||||
|
set curplottitle=$title |
||||
|
set curplotname='Spectrum Analysis' |
||||
|
let frequency=vector( $fpoints )*$argv[3] |
||||
|
dowhile frequency[1] < ( $argv[1] + 1e-9 ) |
||||
|
let frequency = frequency + $argv[3] |
||||
|
end |
||||
|
foreach vec $argv[4-len] |
||||
|
let $vec = vector( $fpoints ) + j(vector( $fpoints )) |
||||
|
reshape $vec [{$fpoints}] |
||||
|
end |
||||
|
set curplot=$scratch |
||||
|
let npers=1 |
||||
|
let test = span-2/$argv[3] + 1e-9 |
||||
|
while test > 0 |
||||
|
let npers = npers + 1 |
||||
|
let test = test-1/$argv[3] |
||||
|
end |
||||
|
let ircle = 2*pi*max(-1,({$dt}.time-{$dt}.time[{$lent}-1])*{$argv[3]}/npers) |
||||
|
let win = 1 - cos(ircle) |
||||
|
let ircle = npers*ircle |
||||
|
let circle = ircle * ({$spec}.frequency[0]/$argv[3] - 1) |
||||
|
let k=vector( $fpoints ) |
||||
|
foreach k "$&k" |
||||
|
let circle = circle + ircle |
||||
|
foreach vec $argv[4-len] |
||||
|
let tmp = win*{$dt}.{$vec} |
||||
|
let {$spec}.{$vec}[{$k}] = 2*(mean(cos(circle)*tmp),mean(sin(circle)*tmp)) |
||||
|
end |
||||
|
end |
||||
|
|
||||
|
label cleanup |
||||
|
destroy $scratch |
||||
|
unset fpoints dt scratch spec vec k title lent |
||||
|
label bottom |
||||
|
end |
||||
@ -0,0 +1,4 @@ |
|||||
|
* Standard spice and nutmeg init file |
||||
|
alias exit quit |
||||
|
alias acct rusage all |
||||
|
set x11lineararcs |
||||
Write
Preview
Loading…
Cancel
Save
Reference in new issue