[scicos_blocks] Capacitor Inductor Resistor: issue with ยต unit on icons
[scilab.git] / scilab / modules / scicos_blocks / macros / Electrical / Resistor.sci
1 //  Scicos
2 //
3 // Copyright (C) INRIA - METALAU Project <scicos@inria.fr>
4 // Copyright (C) 2018 - Samuel GOUGEON
5 //
6 // This program is free software; you can redistribute it and/or modify
7 // it under the terms of the GNU General Public License as published by
8 // the Free Software Foundation; either version 2 of the License, or
9 // (at your option) any later version.
10 //
11 // This program is distributed in the hope that it will be useful,
12 // but WITHOUT ANY WARRANTY; without even the implied warranty of
13 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14 // GNU General Public License for more details.
15 //
16 // You should have received a copy of the GNU General Public License
17 // along with this program; if not, write to the Free Software
18 // Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
19 //
20 // See the file ../license.txt
21 //
22 function [x,y,typ]=Resistor(job,arg1,arg2)
23     // exemple d'un bloc implicit,
24     //   -  sans entree ni sortie de conditionnement
25     //   -  avec une entree et une sortie de type implicit et de dimension 1
26     //   - avec un dialogue de saisie de parametre
27     x=[];
28     y=[];
29     typ=[];
30     select job
31     case "set" then
32         x=arg1;
33         graphics=arg1.graphics;
34         exprs=graphics.exprs
35         model=arg1.model;
36         while %t do
37             [ok,R,exprs]=scicos_getvalue("Set Resistor block parameter",..
38             "R (ohm)",list("vec",1),exprs)
39             if ~ok then
40                 break,
41             end
42             model.rpar=R
43             model.equations.parameters(2)=list(R)
44             graphics.exprs=exprs
45             // Updating the icon according to the resistance value:
46             v = evstr(exprs);
47             if v>=1e-5 & v<1e-2
48                 sv = msprintf("%d\\:\\mu \n",v*1e6)
49             elseif v>=1e-2 & v<10
50                 sv = msprintf("%d\\:m\n",v*1000)
51             elseif v>=10 & v<10000
52                 sv = msprintf("%d\\:\n",v)
53             elseif v>=1e4 & v<1e7
54                 sv = msprintf("%d\\:k\n",v/1000)
55             elseif v>=1e7 & v<1e10
56                 sv = msprintf("%d\\:M\n",v/1e6)
57             else
58                 p = floor(log10(v));
59                 v = v/10^p;
60                 sv = msprintf("%3.1f\\,10^{%d}\\,\n",v,p)
61             end
62             lab = "Resistor;displayedLabel=" + ..
63             "$\mathsf{\,\\\,\\\,\\\,\\\,\\\,\\\,\,\\\,\\\tiny{\!"+sv+"\Omega}}$"
64             graphics.style = lab;
65             x.graphics=graphics;
66             //
67             x.model=model
68             break
69         end
70     case "define" then
71         model=scicos_model()
72         R=0.01
73         model.rpar=R
74         model.sim="resistor"
75         model.blocktype="c"
76         model.dep_ut=[%t %f]
77         mo=modelica()
78         mo.model="Resistor"
79         mo.inputs="p";
80         mo.outputs="n";
81         mo.parameters=list("R",list(R))
82         model.equations=mo
83         model.in=ones(size(mo.inputs,"*"),1)
84         model.out=ones(size(mo.outputs,"*"),1)
85         exprs=string(R)
86         gr_i=[]
87         x=standard_define([2 2],model,exprs,list(gr_i,0))
88         x.graphics.in_implicit=["I"]
89         x.graphics.out_implicit=["I"]
90     end
91 endfunction