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

SCM Repository

[diderot] Annotation of /branches/fem/test/triv.diderot
ViewVC logotype

Annotation of /branches/fem/test/triv.diderot

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3210 - (view) (download)

1 : jhr 1671 // triv.diderot
2 :     //
3 :    
4 : jhr 2654 real x = 2.0;
5 :    
6 : jhr 2803 strand RayCast (int r, int c)
7 : jhr 1671 {
8 :     real t = 0.0;
9 : jhr 2803 real s = t + 2.0;
10 : jhr 2654 output real y = 1.0;
11 : jhr 2678 output real z = exp(1.5);
12 :     output real w = erf(z);
13 : jhr 1671
14 : jhr 3199 initially
15 :     {
16 :     s = t + 2.0;
17 :     }
18 :    
19 : jhr 1671 update
20 :     {
21 : jhr 2803 t = t + 0.1 * (r+c);
22 : jhr 3191 if (t <= 20.0)
23 :     continue;
24 :     stabilize;
25 : jhr 1671 }
26 :    
27 :     /* render: output maxval */
28 :     }
29 :    
30 : jhr 2803 initially [ RayCast(r, c) | r in 0..199, c in 0..199 ];

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