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

SCM Repository

[diderot] Annotation of /trunk/test/teigen.diderot
ViewVC logotype

Annotation of /trunk/test/teigen.diderot

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1988 - (view) (download)

1 : lamonts 1980 /*! \file eigen.diderot
2 :     *
3 :     * \author Lamont Samuels
4 :     */
5 :    
6 :     /*
7 :     * COPYRIGHT (c) 2011 The Diderot Project (http://diderot-language.cs.uchicago.edu)
8 :     * All rights reserved.
9 :     */
10 :    
11 :     int gridSize = 1;
12 :    
13 :     strand eigenStrand (int id) {
14 : lamonts 1988
15 : lamonts 1980 output vec3 eVector = [0.0,0.0,0.0];
16 : lamonts 1988 // output real eigen = 0.0;
17 : lamonts 1980
18 :     update {
19 : lamonts 1988 tensor[3,3] simpleMatrix= [[1.0,7.0,3.0],
20 :     [7.0,4.0,-5.0],
21 :     [3.0,-5.0,6.0]];
22 :    
23 : lamonts 1980 real{3} eval = evals(simpleMatrix);
24 :     vec3{3} eVectors = evecs(simpleMatrix);
25 : lamonts 1988 eVector = -eVectors{1};
26 : lamonts 1980 stabilize;
27 :     }
28 :     }
29 :    
30 :     initially [ eigenStrand(id) | id in 0..(gridSize-1)];

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