SCM Repository
[diderot] / trunk / test / teigen.diderot |
View of /trunk/test/teigen.diderot
Parent Directory
|
Revision Log
Revision 1988 -
(download)
(annotate)
Tue Jul 31 21:50:46 2012 UTC (8 years, 5 months ago) by lamonts
File size: 636 byte(s)
Tue Jul 31 21:50:46 2012 UTC (8 years, 5 months ago) by lamonts
File size: 636 byte(s)
Fixed some bug in program
/*! \file eigen.diderot * * \author Lamont Samuels */ /* * COPYRIGHT (c) 2011 The Diderot Project (http://diderot-language.cs.uchicago.edu) * All rights reserved. */ int gridSize = 1; strand eigenStrand (int id) { output vec3 eVector = [0.0,0.0,0.0]; // output real eigen = 0.0; update { tensor[3,3] simpleMatrix= [[1.0,7.0,3.0], [7.0,4.0,-5.0], [3.0,-5.0,6.0]]; real{3} eval = evals(simpleMatrix); vec3{3} eVectors = evecs(simpleMatrix); eVector = -eVectors{1}; stabilize; } } initially [ eigenStrand(id) | id in 0..(gridSize-1)];
root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
Powered by ViewVC 1.0.0 |