summaryrefslogtreecommitdiff
path: root/Windows/spice/examples/various/agauss_test.cir
diff options
context:
space:
mode:
authorrahulp132021-01-07 07:55:48 +0530
committerrahulp132021-01-07 07:55:48 +0530
commit088203b088a02eabb4606dc734e901b81f237b11 (patch)
treeebe9109661a149c82fc66599a6ce8103637d0b4a /Windows/spice/examples/various/agauss_test.cir
parentac223c4a69c701ad0a247401acdc48b8b6b6dba6 (diff)
downloadeSim-088203b088a02eabb4606dc734e901b81f237b11.tar.gz
eSim-088203b088a02eabb4606dc734e901b81f237b11.tar.bz2
eSim-088203b088a02eabb4606dc734e901b81f237b11.zip
removed outdated dependencies
Diffstat (limited to 'Windows/spice/examples/various/agauss_test.cir')
-rw-r--r--Windows/spice/examples/various/agauss_test.cir48
1 files changed, 0 insertions, 48 deletions
diff --git a/Windows/spice/examples/various/agauss_test.cir b/Windows/spice/examples/various/agauss_test.cir
deleted file mode 100644
index c2532751..00000000
--- a/Windows/spice/examples/various/agauss_test.cir
+++ /dev/null
@@ -1,48 +0,0 @@
-* agauss test in ngspice
-* generate a sequence of gaussian distributed random numbers.
-* test the distribution by sorting the numbers into
-* a histogram (buckets)
-* chapt. 17.8.6
-.control
- define agauss(nom, avar, sig) (nom + avar/sig * sgauss(0))
- let mc_runs = 200
- let run = 0
- let no_buck = 8 $ number of buckets
- let bucket = unitvec(no_buck) $ each element contains 1
- let delta = 3e-11 $ width of each bucket, depends
- $ on avar and sig
- let lolimit = 1e-09 - 3*delta
- let hilimit = 1e-09 + 3*delta
-
- dowhile run < mc_runs
- let val = agauss(1e-09, 1e-10, 3) $ get the random number
- if (val < lolimit)
- let bucket[0] = bucket[0] + 1 $ 'lowest' bucket
- end
- let part = 1
- dowhile part < (no_buck - 1)
- if ((val < (lolimit + part*delta)) &
-+ (val > (lolimit + (part-1)*delta)))
- let bucket[part] = bucket[part] + 1
- break
- end
- let part = part + 1
- end
- if (val > hilimit)
-* 'highest' bucket
- let bucket[no_buck - 1] = bucket[no_buck - 1] + 1
- end
- let run = run + 1
- end
-
- let part = 0
- dowhile part < no_buck
- let value = bucket[part] - 1
- set value = "$&value"
-* print the buckets' contents
- echo $value
- let part = part + 1
- end
-
-.endc
-.end