::SpiceGenTcl::Common::AnalysesTop, Main, Index

method constructor {args} {

    # Creates object of class `Ac` that describes AC analysis.
    #  -variation - parameter that defines frequency scale, could be dec, oct or lin
    #  -n - number of points
    #  -fstart - start frequency
    #  -fstop - start frequency
    #  -name - name argument, optional
    # ```
    # .ac variation n fstart fstop
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Common::Analyses::Ac new -variation dec -n 10 -fstart 1 -fstop 1e6 -name dc1
    # ```
    # Synopsis: -variation value -n value -fstart value -fstop value ?-name value?
    set arguments [argparse -inline {
        -name=
        {-variation= -required -enum {dec oct lin}}
        {-n= -required}
        {-fstart= -required}
        {-fstop= -required}
    }]
    my NameProcess $arguments [self object]
    lappend params "variation [dget $arguments variation] -posnocheck"
    set paramsOrder [list n fstart fstop]
    my ParamsProcess $paramsOrder $arguments params
    next ac $params -name $name
}

method constructor {args} {

    # Creates object of class `Dc` that describes DC analysis.
    #  -src - name of independent voltage or current source, a resistor, or the circuit temperature
    #  -start - start value
    #  -stop - stop value
    #  -incr - incrementing value
    #  -name - name argument, optional
    # ```
    # .dc src start stop vincr
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Common::Analyses::Dc new -src v1 -start {time1 -eq} -stop 5 -incr 0.1 -name dc1
    # ```
    # Synopsis: -src value -start value -stop value -incr value ?-name value?
    set arguments [argparse -inline {
        -name=
        {-src= -required}
        {-start= -required}
        {-stop= -required}
        {-incr= -required}
    }]
    my NameProcess $arguments [self object]
    lappend params "src [dget $arguments src] -posnocheck"
    set paramsOrder [list start stop incr]
    my ParamsProcess $paramsOrder $arguments params
    next dc $params -name $name
}

method constructor {args} {

    # Creates object of class `Op` that describes OP analysis.
    #  -name - name argument, optional
    # ```
    # .op
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Common::Analyses::Op new -name op1
    # ```
    # Synopsis: ?-name value?
    set arguments [argparse -inline {
        -name=
    }]
    my NameProcess $arguments [self object]
    next op "" -name $name
}

method constructor {args} {

    # Creates object of class `Tran` that describes TRAN analysis.
    #  -tstep - size of maximum time step for plotting
    #  -tstop - stop time value
    #  -tstart - start time of saving data, optional
    #  -tmax - size of maximum time step in actual simulation, optional, require -tstart
    #  -uic - skip initial operating point solution, optional
    #  -name - name argument, optional
    # ```
    # .tran tstep tstop <tstart<tmax>> <uic>
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Common::Analyses::Tran new -tstep 1e-9 -tstop 10e-6 -name dc1
    # ```
    # Synopsis: -tstep value -tstop value ?-tstart value ?-tmax value?? ?-uic? ?-name value?
    set arguments [argparse -inline {
        -name=
        {-tstep= -required}
        {-tstop= -required}
        -tstart=
        {-tmax= -require {tstart}}
        {-uic -boolean}
    }]
    my NameProcess $arguments [self object]
    set paramsOrder [list tstep tstop tstart tmax]
    my ParamsProcess $paramsOrder $arguments params
    if {[dget $arguments uic]} {
        lappend params "uic -sw"
    }
    next tran $params -name $name
}