/* autogenerated from "macros/Electrical/Diode.sci" */
function Diode() {
    Diode.prototype.define = function Diode() {
        Ids = 1.e-6;
        Vt = 0.04;
        Maxexp = 15;
        R = 1.e8;
        model = scicos_model();
        model.rpar = [[Ids],[Vt],[Maxexp],[R]];
        model.in1 = 1;
        model.out = 1;
        model.sim = "Diode";
        model.blocktype = "c";
        model.dep_ut = [true,false];
        mo = modelica();
        mo.model = "Diode";
        mo.inputs = "p";
        mo.outputs = "n";
        mo.parameters = list(["Ids","Vt","Maxexp","R"],list(Ids,Vt,Maxexp,R));
        model.equations = mo;
        exprs = string([[Ids],[Vt],[Maxexp],[R]]);
        gr_i = [];
        x = standard_define([2,1],model,exprs,list(gr_i,0));
        x.graphics.in_implicit = ["I"];
        x.graphics.out_implicit = ["I"];
    }
    Diode.prototype.details = function Diode() {
    }
    Diode.prototype.get = function Diode() {
    }
    Diode.prototype.set = function Diode() {
        x = arg1;
        graphics = arg1.graphics;
        exprs = graphics.exprs;
        model = arg1.model;
        while (true) {
        [ok,Ids,Vt,Maxexp,R,exprs] = scicos_getvalue("Set Diode block parameter",[["Saturation cuurent (A)"],["Voltage equivalent to temperature (Volt)"],["Max exponent for linear continuation"],["R (ohm)"]],list("vec",1,"vec",1,"vec",1,"vec",1),exprs);
        if (!ok) {
break;
}
        model.rpar = [[Ids],[Vt],[Maxexp],[R]];
        model.equations.parameters = list(["Ids","Vt","Maxexp","R"],list(Ids,Vt,Maxexp,R));
        graphics.exprs = exprs;
        x.graphics = graphics;
        x.model = model;
break;
}
    }
}