diff options
author | rahulp13 | 2021-01-07 18:22:29 +0530 |
---|---|---|
committer | rahulp13 | 2021-01-07 18:22:29 +0530 |
commit | d4fd47ecf77597595d3f4fa72fd5334a5fe7417b (patch) | |
tree | 28095229ec3035d15c569fbedac83cf5876aa196 /Windows/spice/examples/tclspice/tcl | |
parent | 376e748df438933088721286402462dffd6367c0 (diff) | |
parent | 63e3156454f39732a3101c29d42b473a89ca68d2 (diff) | |
download | eSim-d4fd47ecf77597595d3f4fa72fd5334a5fe7417b.tar.gz eSim-d4fd47ecf77597595d3f4fa72fd5334a5fe7417b.tar.bz2 eSim-d4fd47ecf77597595d3f4fa72fd5334a5fe7417b.zip |
Merge windows installer updates with linux installer
Diffstat (limited to 'Windows/spice/examples/tclspice/tcl')
-rw-r--r-- | Windows/spice/examples/tclspice/tcl/diffpair.cir | 29 | ||||
-rw-r--r-- | Windows/spice/examples/tclspice/tcl/test_vectoblt.sh | 59 |
2 files changed, 0 insertions, 88 deletions
diff --git a/Windows/spice/examples/tclspice/tcl/diffpair.cir b/Windows/spice/examples/tclspice/tcl/diffpair.cir deleted file mode 100644 index c926364f..00000000 --- a/Windows/spice/examples/tclspice/tcl/diffpair.cir +++ /dev/null @@ -1,29 +0,0 @@ -simple differential pair - CM and DM dc sensitivity - -* Models: -.model qnl npn(bf=80 rb=100 ccs=2pf tf=0.3ns tr=6ns cje=3pf cjc=2pf va=50) -.model qnr npn(bf=80 rb=100 ccs=2pf tf=0.3ns tr=6ns cje=3pf cjc=2pf va=50) - -* Circuit description: -q1 4 2 6 qnr -q2 5 3 6 qnl -rs1 11 2 1k -rs2 3 1 1k -rc1 4 8 10k -rc2 5 8 10k -q3 7 7 9 qnl -q4 6 7 9 qnr -rbias 7 8 20k - -* Inputs/Supplies: -vcm 1 0 dc 0 sin(0 0.1 5meg) ac 1 -vdm 1 11 dc 0 sin(0 0.1 5meg) ac 1 -vcc 8 0 12 -vee 9 0 -12 - -* Analysys: -.tf v(5) vcm -.tf v(5) vdm -.sens v(5,4) - -.end diff --git a/Windows/spice/examples/tclspice/tcl/test_vectoblt.sh b/Windows/spice/examples/tclspice/tcl/test_vectoblt.sh deleted file mode 100644 index 28f04b96..00000000 --- a/Windows/spice/examples/tclspice/tcl/test_vectoblt.sh +++ /dev/null @@ -1,59 +0,0 @@ -#!/bin/sh -# -*- mode: tcl -*- \ - exec wish -f "$0" ${1+"$@"} - -package require BLT -load ../../../src/.libs/libspice.so - -spice::source "diffpair.cir" -spice::op -spice::let Vd = V(5) - V(4) -blt::vector create imag -blt::vector create real - -set ok 0 -################### -puts " Vd is a real vector of length 1" -################### -#too many arguments -if {[catch {spice::vectoblt raul ibrahim ector karim} erreur] != 0} {puts "ERROR EXPECTED: TEST 1 OK:\n\t$erreur"; set ok [expr {$ok + 1}]} else {puts "TEST 1 ERROR\n\t Test 1 should return TCL_ERROR, but it does not"} -#no acceptable argument -if {[catch {spice::vectoblt raul ibrahim ector} erreur] != 0} {puts "ERROR EXPECTED: TEST 2 OK:\n\t$erreur"; set ok [expr {$ok + 1}]} else {puts "TEST 2 ERROR\n\t Test 1 should return TCL_ERROR, but it does not"} -#no acceptable blt vector -if {[catch {spice::vectoblt Vd ibrahim} erreur] != 0} {puts "ERROR EXPECTED: TEST 3 OK:\n\t$erreur"; set ok [expr {$ok + 1}]} else {puts "TEST 3 ERROR\n\t Test 1 should return TCL_ERROR, but it does not"} -#real part affectation -if {[catch {spice::vectoblt Vd real} erreur] == 0} {puts "NO ERROR IN AFFECTATION. TEST 4 OK:\n\t (Blank line)"; set ok [expr {$ok + 1}]} else {puts "TEST 4 ERROR\n\t Test 1 should return TCL_ERROR, but it does not"} -#no acceptable blt vector (2 vectors) -if {[catch {spice::vectoblt Vd ibrahim ector} erreur] != 0} {puts "ERROR EXPECTED: TEST 5 OK:\n\t$erreur"; set ok [expr {$ok + 1}]} else {puts "TEST 5 ERROR\n\t Test 1 should return TCL_ERROR, but it does not"} -#no acceptable imaginary vector -if {[catch {spice::vectoblt Vd real ector} erreur] != 0} {puts "ERROR EXPECTED: TEST 6 OK:\n\t$erreur"; set ok [expr {$ok + 1}]} else {puts "TEST 6 ERROR\n\t Test 1 should return TCL_ERROR, but it does not"} -#real and imaginary part affectation -if {[catch {spice::vectoblt Vd real imag} erreur] == 0} {puts "NO ERROR IN AFFECTATION. TEST 7 OK:\n\t (Blank line)"; set ok [expr {$ok + 1}]} else {puts "TEST 7 ERROR\n\t Test 1 should return TCL_ERROR, but it does not"} -#all good vectors, but another argument invited himself -if {[catch {spice::vectoblt Vd real imag karim} erreur] != 0} {puts "ERROR EXPECTED: TEST 8 OK:\n\t$erreur"; set ok [expr {$ok + 1}]} else {puts "TEST 8 ERROR\n\t Test 1 should return TCL_ERROR, but it does not"} - -################### -puts " Vd is a complex vector of length 10" -################### -spice::op -spice::ac dec 10 100 1000 -spice::let Vd = V(5) - V(4) -#too many arguments -if {[catch {spice::vectoblt raul ibrahim ector karim} erreur] != 0} {puts "ERROR EXPECTED: TEST 1 OK:\n\t$erreur"; set ok [expr {$ok + 1}]} else {puts "TEST 1 ERROR\n\t Test 1 should return TCL_ERROR, but it does not"} -#no acceptable argument -if {[catch {spice::vectoblt raul ibrahim ector} erreur] != 0} {puts "ERROR EXPECTED: TEST 2 OK:\n\t$erreur"; set ok [expr {$ok + 1}]} else {puts "TEST 2 ERROR\n\t Test 1 should return TCL_ERROR, but it does not"} -#no acceptable blt vector -if {[catch {spice::vectoblt Vd ibrahim} erreur] != 0} {puts "ERROR EXPECTED: TEST 3 OK:\n\t$erreur"; set ok [expr {$ok + 1}]} else {puts "TEST 3 ERROR\n\t Test 1 should return TCL_ERROR, but it does not"} -#real part affectation -if {[catch {spice::vectoblt Vd real} erreur] == 0} {puts "NO ERROR IN AFFECTATION. TEST 4 OK:\n\t (Blank line)"; set ok [expr {$ok + 1}]} else {puts "TEST 4 ERROR\n\t Test 1 should return TCL_ERROR, but it does not"} -#no acceptable blt vector (2 vectors) -if {[catch {spice::vectoblt Vd ibrahim ector} erreur] != 0} {puts "ERROR EXPECTED: TEST 5 OK:\n\t$erreur"; set ok [expr {$ok + 1}]} else {puts "TEST 5 ERROR\n\t Test 1 should return TCL_ERROR, but it does not"} -#no acceptable imaginary vector -if {[catch {spice::vectoblt Vd real ector} erreur] != 0} {puts "ERROR EXPECTED: TEST 6 OK:\n\t$erreur"; set ok [expr {$ok + 1}]} else {puts "TEST 6 ERROR\n\t Test 1 should return TCL_ERROR, but it does not"} -#real and imaginary part affectation -if {[catch {spice::vectoblt Vd real imag} erreur] == 0} {puts "NO ERROR IN AFFECTATION. TEST 7 OK:\n\t (Blank line)"; set ok [expr {$ok + 1}]} else {puts "TEST 7 ERROR\n\t Test 1 should return TCL_ERROR, but it does not"} -#all good vectors, but another argument invited himself -if {[catch {spice::vectoblt Vd real imag karim} erreur] != 0} {puts "ERROR EXPECTED: TEST 8 OK:\n\t$erreur"; set ok [expr {$ok + 1}]} else {puts "TEST 8 ERROR\n\t Test 1 should return TCL_ERROR, but it does not"} - -puts "\n\n" -if {$ok == 16} {puts "spice::vectoblt OK ($ok/16 tests ok)"} else {puts "spice::vectoblt KO:\n\t$ok/16 tests ok"} |