Example 2171: Fit a prolate spheroidal mesh to coronary angiogram data


The comfile run by this example is as follows:

#Example_2171  Fit prolate spheroidal mesh to coronary angiogram data                                                          
                                                                                                                                   
fem                          #set the FEM environment                                                                               
fem define coord;r;epi2d;example #read in the definition of the coordinates form                                                        
#                            file                                                                                                   
fem define base;r;epi2d;example  #lamda BC.H.;mu and theta BL.L.                                                                        
fem define element;r;epi2d_16;example                                                                                                   
#                           !define the elements as specified in the                                                                
#                            'epi2d_16' file                                                                                        
fem define node;r;epi2d_25;example                                                                                                      
#                           !read in the node definitions from file                                                                 
fem define window;r;epi2d;doc#read in the window definitions from file                                                              
fem define line;c            #calculate the line positions                                                                          
fem define data;r;dn;example     #read in data defineition form file 'dn'                                                               
fem define data;r;dn_left;example xi total 2                                                                                            
#                           !read in xi coordinates definition from file                                                            
#                            'dn_left'                                                                                              
fem define field;r;epi2d_left;example                                                                                                   
#                           !define the field as specified in the file                                                              
#                            'epi2d_left' in the [.DOC] directory                                                                   
fem define fit;r;epi2d_left;example geom                                                                                                
#                           !define the fit as specified in the file                                                                
#                            'epi2d_laft' in the [.DOC] directory                                                                   
fem fit geom                 #fit the geometry                                                                                      
fem update node in 1         #update the node derivatives                                                                           
fem define node;e;dnefit2    #write the node definitions to a file                                                                  
fem define base;r;epi2d_2;doc#lamda, theta and mu BC.H angle change                                                                 
fem update node deriv in 2   #calculate theta derivatives based on linear                                                           
#                            change                                                                                                 
fem update node deriv in 3   #calculate mu derivatives based on linear                                                              
#                            change                                                                                                 
fem update node deriv        #recalculate derivatives o flamda, theta, mu                                                           
#                            with respect to length                                                                                 
fem define base;r;epi2d_3;doc#lamda, mu and theta:BC.H arc length                                                                   
fem change coor to 1         #change to rectangular cartesian                                                                       
fem quit                     #exit from CMISS                                                                                       

Files used by this example are:

Name              Modified     Size

example_2171.com 10-Apr-2000 4.7k

Download the entire example:

Name                           Modified     Size

examples_2_21_217_2171.tar.gz 19-Aug-2006 1.4k

Html last generated: Sun Mar 6 05:50:08 2016

Input last modified: Mon Apr 10 17:21:24 2000


CMISS Help / Examples / 2 / 21 / 217 / 2171