if step<1
disp ('Error: No Data to show.')
else
- format longG
+
data((end-8):end,[1 3 4])
sol = interp1(1./X((1):(end-2),3)',G_D((1):(end-2),3)',0,'spline')
% sol = 8.28466;
- format short
+
figure(4)
loglog(X(:,[2+(0:step-1)*3]),G_D(:,[2+(0:step-1)*3]),'--o')
hold on
+
+format longG
+
+% Matrix MEX Funktion neu Compilieren
mex mex_build_AU.cpp slpRectangle.cpp
-A_run('exmpl_2DQuad.mat',10,[0.7],[1 2 3],0.9,0,'AdaptIso_');
-A_run('exmpl_2DQuad.mat',10,[0.7],[1 2 3],0.9,0.7,'AdaptAnIso_');
\ No newline at end of file
+
+% Test ausführen
+
+%LShape adaptiv anisotrop
+A_run('exmpl_2DLShape', 10, 0, 1, 0.5, 0.5, 'testAA')
+
+%LShape adaptiv isotrop
+% A_run('exmpl_2DLShape', 10, 0, 0.5, 0, 0, 'testAI')
+
+%LShape uniform anisotrop
+% A_run('exmpl_2DLShape', 10, 0, 1, 0.5, 0, 'testUA')
+
+%LShape uniform isotrop
+% A_run('exmpl_2DLShape', 10, 0, 1, 0, 0, 'testUI')
\ No newline at end of file