1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
//
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2011-2011 - DIGITEO - Bruno JOFRET
//
// This file must be used under the terms of the CeCILL.
// This source file is licensed as described in the file COPYING, which
// you should have received as part of this distribution. The terms
// are also available at
// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
//
//
function [x,y,typ]=BARXY(job,arg1,arg2)
x=[];
y=[];
typ=[];
select job
case "set" then
x=arg1;
graphics=arg1.graphics;
exprs=graphics.exprs
model=arg1.model;
while %t do
[ok,xmin,xmax,ymin,ymax,thickness,exprs]=scicos_getvalue("Set Scope parameters",..
["Xmin" ; "Xmax" ; "Ymin" ; "Ymax";"Segs Thickness"], ..
list("vec",1,"vec",1,"vec",1,"vec",1, "vec", 1),exprs)
if ~ok then
break
end //user cancel modification
mess=[]
if ymin>=ymax then
mess=[mess;"Ymax must be greater than Ymin";" "]
ok=%f
end
if xmin>=xmax then
mess=[mess;"Xmax must be greater than Xmin";" "]
ok=%f
end
if thickness <=0 then
mess=[mess ; "Thickness must be strictly positive."]
ok=%f
end
if ~ok then
message(mess)
else
model.rpar=[xmin ; xmax ; ymin ; ymax]
model.ipar=thickness
graphics.exprs=exprs;
x.graphics=graphics;
x.model=model;
break
end
end
case "define" then
model=scicos_model();
xmin = -15;
xmax = 15;
ymin = -15;
ymax = 15;
model.sim=list("BARXY_sim", 5)
model.blocktype="d";
model.dep_ut=[%t %f];
model.in=[-1;-1];
model.intyp=[1];
model.out=[];
model.evtin=[1]
model.rpar=[xmin ; xmax ; ymin ; ymax]
model.ipar=1;
x=standard_define([2 2],model,[],[]);
x.graphics.in_implicit=["E", "E"];
x.graphics.out_implicit=[];
x.graphics.exprs=["-15";"15";"-15";"15";"1"]
end
endfunction
|
