Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Annotation of /tests/DATm-sample/g_11/observ.diderot
ViewVC logotype

Annotation of /tests/DATm-sample/g_11/observ.diderot

Parent Directory Parent Directory | Revision Log Revision Log


Revision 5136 - (view) (download)

1 : cchiw 5136
2 :     field#4(2)[2, 2]F0 = c4hexic⊛ image("rst/data/inputfile0.nrrd");
3 :     tensor [2, 2]F1 = [[1, -1], [-2, -3]];
4 :     tensor []F2 = 2;
5 :     input real scale = 1;
6 :     field#4(2)[2, 2]G = ((normalize(F0))-(F1))*(F2);
7 :     int length =7;
8 :     strand f(int i) {
9 :    
10 :     output tensor [2, 2] out = [ [0.0,0.0], [0.0,0.0]];
11 :     update {
12 :    
13 :     tensor [2] pos=[0,0];
14 :     if(i==0){
15 :     pos = ([0.24, 0.3]);
16 :     }
17 :     else if(i==1){
18 :     pos = ([0.24, 0.3]);
19 :     }
20 :     else if(i==2){
21 :     pos = ([-0.38, 0.04]);
22 :     }
23 :     else if(i==3){
24 :     pos = ([-0.39, 0.08]);
25 :     }
26 :     else if(i==4){
27 :     pos = ([0.1, 0.15]);
28 :     }
29 :     else if(i==5){
30 :     pos = ([0.35, -0.18]);
31 :     }
32 :     else if(i==6){
33 :     pos = ([0.0, 0.2]);
34 :     }
35 :     else if(i==7){
36 :     pos = ([0.39, -0.28]);
37 :     }
38 :    
39 :     if((inside(pos,F0)) && true){
40 :     out = (G)(pos);
41 :     }
42 :     else{out = [ [7.2,7.2], [7.2,7.2]];}
43 :     stabilize;
44 :     }
45 :     }
46 :     initially [ f(i) | i in 0..length];

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0