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 3349 - (view) (download)

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

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