::SpiceGenTcl::Ngspice::SourcesTop, Main, Index

method constructor {name type npNode nmNode args} {

    set arguments [argparse -inline {
        {-v0= -forbid i0}
        {-i0= -forbid v0}
        {-va= -forbid ia}
        {-ia= -forbid va}
        {-mf= -required}
        {-fc= -required}
        {-td= -required}
        -phases=
    }]
    my AliasesKeysCheck $arguments [list v0 i0]
    my AliasesKeysCheck $arguments [list va ia]
    set paramsOrder [list v0 i0 va ia mf fc td phases]
    lappend params "model am -posnocheck"
    my ParamsProcess $paramsOrder $arguments params
    next $type$name [list "np $npNode" "nm $nmNode"] $params
}

method constructor {name npNode nmNode args} {

    # Creates object of class `BehaviouralSource` that describes behavioural source.
    #  name - name of the device without first-letter designator B
    #  npNode - name of node connected to positive pin
    #  nmNode - name of node connected to negative pin
    #  -i - current expression
    #  -v - voltage expression
    # ```
    # BXXXXXXX n+ n- <i=expr> <v=expr> <tc1=value> <tc2=value> <dtemp=value> <temp=value>
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Ngspice::Sources::BehaviouralSource new 1 netp netm -v "V(a)+V(b)+pow(V(c),2)" -tc1 1
    # ```
    # Synopsis: name npNode nmNode -i value ?-tc1 value? ?-tc2 value? ?-noisy 0|1? ?-temp value|-dtemp value?
    # Synopsis: name npNode nmNode -v value ?-tc1 value? ?-tc2 value? ?-noisy 0|1? ?-temp value|-dtemp value?
    set arguments [argparse -inline {
        {-i= -forbid {v}}
        {-v= -forbid {i}}
        -tc1=
        -tc2=
        {-noisy= -enum {0 1}}
        {-temp= -forbid {dtemp}}
        {-dtemp= -forbid {temp}}
    }]
    if {[dexist $arguments i]} {
        lappend params "i [dget $arguments i] -eq"
    } elseif {[dexist $arguments v]} {
        lappend params "v [dget $arguments v] -eq"
    } else {
        return -code error "Equation must be specified as argument to -i or -v"
    }
    dict for {paramName value} $arguments {
        if {$paramName ni {i v}} {
            lappend params "$paramName $value"
        }
    }
    next b$name [list "np $npNode" "nm $nmNode"] $params
}

method constructor {name npNode nmNode args} {

    # Creates object of class `Iam` that describes single-frequency FM current source.
    #  name - name of the device without first-letter designator I
    #  npNode - name of node connected to positive pin
    #  nmNode - name of node connected to negative pin
    #  -i0 - initial value
    #  -ia - pulsed value
    #  -mf - modulating frequency
    #  -fc - carrier frequency
    #  -td - signal delay, optional
    #  -phases - phase, optional, require -td
    # ```
    # IYYYYYYY n+ n- AM(VA VO MF FC TD PHASES)
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Ngspice::Sources::Iam new 1 net1 net2 -i0 0 -ia 2 -mf 1e3 -fc {freq -eq} -td 1e-6 -phases {phase -eq}
    # ```
    # Synopsis: name npNode nmNode -i0 value -ia value -mf value -fc value ?-td value ?-phases value??
    next $name i $npNode $nmNode {*}$args
}

method constructor {name npNode nmNode args} {

    # Creates object of class `Ipulse` that describes pulse current source.
    #  name - name of the device without first-letter designator I
    #  npNode - name of node connected to positive pin
    #  nmNode - name of node connected to negative pin
    #  -low - low value
    #  -high - high value
    #  -td - time delay
    #  -tr - rise time
    #  -tf - fall time
    #  -pw - width of pulse
    #  -per - period time
    #  -np - number of pulses, optional
    # ```
    # IYYYYYYY n+ n- PULSE(V1 V2 TD TR TF PW PER NP)
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Ngspice::Sources::Ipulse new 1 net1 net2 -low 0 -high 1 -td {td -eq} -tr 1e-9 -tf 1e-9 -pw 10e-6 -per 20e-6 -np {np -eq}
    # ```
    # Synopsis: name npNode nmNode -low value -high value -td value -tr value -tf value -pw value -per value
    #   ?-np value?
    next $name i $npNode $nmNode {*}$args
}

method constructor {name npNode nmNode args} {

    # Creates object of class `Isffm` that describes single-frequency FM current source.
    #  name - name of the device without first-letter designator I
    #  npNode - name of node connected to positive pin
    #  nmNode - name of node connected to negative pin
    #  -i0 - initial value, aliases: -voff, -v0, -ioff
    #  -ia - pulsed value, aliases: -vamp, -va, -iamp
    #  -fc - carrier frequency, alias -fcar
    #  -mdi - modulation index
    #  -fs - signal frequency, alias -fsig
    #  -phasec - carrier phase, optional
    #  -phases - signal phase, optional, require -phasec
    # ```
    # IYYYYYYY n+ n- SFFM(VO VA FC MDI FS PHASEC PHASES)
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Ngspice::Sources::Isin new 1 net1 net2 -i0 0 -ia 1 -fc {freq -eq} -mdi 0 -fs 1e3 -phasec {phase -eq}
    # ```
    # Synopsis: name npNode nmNode -i0|ioff value -ia|iamp value -fc|fcar value -mdi value -fs|fsig value
    #   ?-phasec value ?-phases value??
    next $name i $npNode $nmNode {*}$args
}

method constructor {name type npNode nmNode args} {

    set arguments [argparse -inline {
        {-low= -forbid {voff ioff}}
        {-voff= -forbid {low ioff}}
        {-ioff= -forbid {low voff}}
        {-high= -forbid {von ion}}
        {-von= -forbid {high ion}}
        {-ion= -forbid {high von}}
        {-td= -required}
        {-tr= -required}
        {-tf= -required}
        {-pw= -forbid ton}
        {-ton= -forbid pw}
        {-per= -forbid tper}
        {-tper= -forbid per}
        {-np= -forbid ncycles}
        {-ncycles= -forbid np}
    }]
    my AliasesKeysCheck $arguments [list low voff ioff]
    my AliasesKeysCheck $arguments [list high von ion]
    my AliasesKeysCheck $arguments [list pw ton]
    my AliasesKeysCheck $arguments [list per tper]
    set paramsOrder [list low voff ioff high von ion td tr tf pw ton per tper np ncycles]
    lappend params "model pulse -posnocheck"
    my ParamsProcess $paramsOrder $arguments params
    next $type$name [list "np $npNode" "nm $nmNode"] $params
}

method constructor {name type npNode nmNode args} {

    set arguments [argparse -inline {
        {-v0= -forbid {i0 voff ioff}}
        {-i0= -forbid {v0 voff ioff}}
        {-voff= -forbid {v0 i0 ioff}}
        {-ioff= -forbid {v0 i0 voff}}
        {-va= -forbid {ia vamp iamp}}
        {-ia= -forbid {va vamp iamp}}
        {-vamp= -forbid {va ia iamp}}
        {-iamp= -forbid {va ia vamp}}
        {-fc= -forbid fcar}
        {-fcar= -forbid fc}
        {-mdi= -required}
        {-fs= -forbid fsig}
        {-fsig= -forbid fs}
        -phasec=
        {-phases= -require {phasec}}
    }]
    my AliasesKeysCheck $arguments [list v0 i0 voff ioff]
    my AliasesKeysCheck $arguments [list va ia vamp iamp]
    my AliasesKeysCheck $arguments [list fc fcar]
    my AliasesKeysCheck $arguments [list fs fsig]
    set paramsOrder [list v0 i0 voff ioff va ia vamp iamp fc fcar mdi fs fsig phasec phases]
    lappend params "model sffm -posnocheck"
    my ParamsProcess $paramsOrder $arguments params
    next $type$name [list "np $npNode" "nm $nmNode"] $params
}

method constructor {name npNode nmNode args} {

    # Creates object of class `Vam` that describes single-frequency FM voltage source.
    #  name - name of the device without first-letter designator V
    #  npNode - name of node connected to positive pin
    #  nmNode - name of node connected to negative pin
    #  -v0 - initial value
    #  -va - pulsed value
    #  -mf - modulating frequency
    #  -fc - carrier frequency
    #  -td - signal delay, optional
    #  -phases - phase, optional, require -td
    # ```
    # VYYYYYYY n+ n- AM(VA VO MF FC TD PHASES)
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Ngspice::Sources::Vam new 1 net1 net2 -v0 0 -va 2 -mf 1e3 -fc {freq -eq} -td 1e-6 -phases {phase -eq}
    # ```
    # Synopsis: name npNode nmNode -v0 value -va value -mf value -fc value ?-td value ?-phases value??
    next $name v $npNode $nmNode {*}$args
}

method constructor {name npNode nmNode args} {

    # Creates object of class `Vport` that describes simple constant voltage source.
    #  name - name of the device without first-letter designator V
    #  npNode - name of node connected to positive pin
    #  nmNode - name of node connected to negative pin
    #  -dc - DC voltage value
    #  -ac - AC voltage value
    #  -portnum - number of port
    #  -z0 - internal source impedance
    # ```
    # VYYYYYYY n+ n- DC 0 AC 1 portnum n1 <z0 n2>
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Ngspice::Sources::Vport new 1 netp netm -dc 1 -ac 1 -portnum 1 -z0 100
    # ```
    # Synopsis: name npNode nmNode -dc value -ac value -portnum value ?-z0 value?
    set arguments [argparse -inline {
        {-dc= -required}
        {-ac= -required}
        {-portnum= -required}
        {-z0=}
    }]
    set paramsOrder [list dc ac portnum z0]
    foreach param $paramsOrder {
        if {[dexist $arguments $param]} {
            dict append argsOrdered $param [dget $arguments $param]
        }
    }
    dict for {paramName value} $argsOrdered {
        lappend params "$paramName -sw"
        if {([llength $value]>1) && ([@ $value 1] eq "-eq")} {
            lappend params "${paramName}val [@ $value 0] -poseq"
        } else {
            lappend params "${paramName}val $value -pos"
        }
    }
    next v$name [list "np $npNode" "nm $nmNode"] $params
}

method constructor {name npNode nmNode args} {

    # Creates object of class `Vpulse` that describes pulse voltage source.
    #  name - name of the device without first-letter designator V
    #  npNode - name of node connected to positive pin
    #  nmNode - name of node connected to negative pin
    #  -low - low value, aliases: -voff, -ioff
    #  -high - high value, aliases: -von, ion
    #  -td - time delay
    #  -tr - rise time
    #  -tf - fall time
    #  -pw - width of pulse, alias -ton
    #  -per - period time, alias -tper
    #  -np - number of pulses, optional
    # ```
    # VYYYYYYY n+ n- PULSE(V1 V2 TD TR TF PW PER NP)
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Ngspice::Sources::Vpulse new 1 net1 net2 -low 0 -high 1 -td {td -eq} -tr 1e-9 -tf 1e-9 -pw 10e-6 -per 20e-6 -np {np -eq}
    # ```
    # Synopsis: name npNode nmNode -low|voff value -high|von value -td value -tr value -tf value -pw|ton value
    #   -per|tper value ?-np value?
    next $name v $npNode $nmNode {*}$args
}

method constructor {name npNode nmNode args} {

    # Creates object of class `Vsffm` that describes single-frequency FM voltage source.
    #  name - name of the device without first-letter designator V
    #  npNode - name of node connected to positive pin
    #  nmNode - name of node connected to negative pin
    #  -v0 - initial value, aliases: -voff, -i0, -ioff
    #  -va - pulsed value, aliases: -vamp, -ia, -iamp
    #  -fc - carrier frequency, alias -fcar
    #  -mdi - modulation index
    #  -fs - signal frequency, alias -fsig
    #  -phasec - carrier phase, optional
    #  -phases - signal phase, optional, require -phasec
    # ```
    # VYYYYYYY n+ n- SFFM(VO VA FC MDI FS PHASEC PHASES)
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Ngspice::Sources::Vsin new 1 net1 net2 -v0 0 -va 1 -fc {freq -eq} -mdi 0 -fs 1e3 -phasec {phase -eq}
    # ```
    # Synopsis: name npNode nmNode -v0|voff value -va|vamp value -fc|fcar value -mdi value -fs|fsig value
    #   ?-phasec value  ?-phases value??
    next $name v $npNode $nmNode {*}$args
}