source: issm/trunk/src/m/solutions/surfaceslope.m@ 4193

Last change on this file since 4193 was 4193, checked in by Eric.Larour, 15 years ago

Some updates on Qmu module: simplifications

File size: 1.0 KB
RevLine 
[4113]1function md=surfaceslopecompute(md);
2%SLOPECOMPUTE - compute the surface slope of a model
[4102]3%
4% Usage:
[4113]5% md=surfaceslope(md)
[4102]6%
7 %timing
8 t1=clock;
9
10 analysis_types=SlopeAnalysisEnum;
11 solution_type=SlopeAnalysisEnum;
12
13 displaystring(md.verbose,'%s',['create finite element model']);
[4119]14 femmodel=NewFemModel(md,solution_type,analysis_types,1);
[4102]15
16 %retrieve parameters
17 verbose=femmodel.parameters.Verbose;
18 qmu_analysis=femmodel.parameters.QmuAnalysis;
19
20 %compute solution
21 if ~qmu_analysis,
22 displaystring(verbose,'%s',['call computational core']);
[4113]23 femmodel=surfaceslope_core(femmodel);
24
25 displaystring(verbose,'%s',['write results']);
[4184]26 md.results.surfaceslopecompute=OutputResults(femmodel.elements, femmodel.nodes , femmodel.vertices , femmodel.loads , femmodel.materials, femmodel.parameters, femmodel.results);
[4113]27
[4102]28 else
29 %launch dakota driver for diagnostic core solution
[4193]30 Qmu(femmodel,femmodel.parameters);
[4102]31 end
32
33 %stop timing
34 t2=clock;
35 displaystring(md.verbose,'\n%s\n',['solution converged in ' num2str(etime(t2,t1)) ' seconds']);
Note: See TracBrowser for help on using the repository browser.