~ubuntu-branches/ubuntu/hoary/scilab/hoary

« back to all changes in this revision

Viewing changes to macros/tdcs/mineInit.sci

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2005-01-09 22:58:21 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20050109225821-473xr8vhgugxxx5j
Tags: 3.0-12
changed configure.in to build scilab's own malloc.o, closes: #255869

Show diffs side-by-side

added added

removed removed

Lines of Context:
12
12
[n1,n2,te,xe,k0,kc]=resume(...
13
13
        n1,n2,te,xe,k0,kc);
14
14
 
 
15
endfunction
15
16
function [cout,feed]=mine(n1,n2,uvect)
16
17
//[cout,feed]=mine(n1,n2,uvect)
17
18
// extraction optimale d'un minerai d'une mine a ciel ouvert
85
86
  feed(xgr,temp-1)=uvect(kk)';
86
87
end
87
88
 
 
89
endfunction
88
90
function [y]=ff_o(x,t)
89
91
//[y]=ff_o(x,t)
90
92
// gain instantane apparaissant dans le critere du
99
101
y=y';
100
102
y(1:2)=[0;0]
101
103
 
 
104
endfunction
102
105
function []=showcost(n1,n2)
103
106
//[]=showcost(n1,n2)
104
107
// Montre en 3d la fonction de gain instantanee (ff)
111
114
for i=1:n2,m=[m,ff_o(1:n1,i)],end
112
115
contour(1:n2,1:n1,m',10,0,0,' ',[2,2,0])
113
116
 
 
117
endfunction
114
118
function []=trajopt(feed)
115
119
//[]=trajopt(feed)
116
120
// feed est la matrice de feedback calculee par mine
129
133
plot2d2("gnn",[1:(n2)]',uopt(1:n2)',[1,-4],"111",...
130
134
       "commande optimale",...
131
135
       [1,-n1,n2+1,2]);
132
 
 
133
 
 
134
 
 
 
136
endfunction