\lstset{ %
- basicstyle=\small\ttfamily,
+ basicstyle=\footnotesize\ttfamily,
numbers=left,
numberstyle=\tiny\color{lst_gray},
% stepnumber=2,
% rulecolor=\color{black},
tabsize=2,
% captionpos=b,
-% breaklines=true,
-% breakatwhitespace=false,
+ breaklines=true,
+ breakatwhitespace=true,
% title=\lstname,
% identifierstyle=\color{red}, %
% morekeywords=[4]{int,double,void}, %Typen
\lstdefinelanguage{M}[]{Matlab}{
morecomment=[l]{...},
- morekeywords=[1]{assert,repmat,mod,regexprep,...},
+ morekeywords=[1]{assert,repmat,mod,regexprep,zeros,ones,ismember,scatter3,ylim,xlim,zlim},
morekeywords=[2]{}, %lib Functions
- morekeywords=[3]{G_D,G_C,G_E,G_N,G_T,G_S}, %Globals
+ morekeywords=[3]{G_ref_E,G_ref_C,G_ref_N,G_ref_S,G_ref_f2s,G_ref_t,G_ref_tD,G_ref_f2sT,G_D,G_C,G_E,G_N,G_T,G_S}, %Globals
morekeywords=[4]{}, %Typen
- morekeywords=[5]{compute,plotShape,plotMark,export_exmpl,export_gauss,export_mesh,mark,gauss,refineQuad,areaQuad,mex_build_V,t2str}, %own Functions
+ morekeywords=[5]{compute,plotShape,plotMark,export_exmpl,export_gauss,export_mesh,mark,
+ gauss,refineQuad,areaQuad,mex_build_V,t2str,quadNorm}, %own Functions
}
-\lstset{defaultdialect=[MY]C++}
+\lstset{defaultdialect=[MY]C++}
\ No newline at end of file
double * E = mxGetPr(prhs[1]);\r
\r
int type = (int) *(mxGetPr(prhs[3]));\r
- double * zeta = {0};\r
+ double * zeta = { 0 };\r
\r
#if DEBUG >= 4\r
mexPrintf("ZetaM:%d\nZetaN:%d\n",mxGetM(prhs[2]),mxGetN(prhs[2]));\r
#ifdef PARALLEL\r
//#pragma omp parallel p\r
{\r
-#pragma omp parallel for schedule(static,1) private(i,j,k,tmp,x,y,xa,xb,ya,yb,d,dt,rx, rxa, rxb, ry, rya, ryb,lastRow,firstRow) shared(C,E,ctypeO,ctypeP,em,targetSize,actualNumberOfThreads)\r
+#pragma omp parallel for schedule(static,1) private(i,j,k,tmp,x,y,xa,xb,ya,yb,d,dt,rx,rxa,rxb,ry,rya,ryb,lastRow,firstRow) shared(C,E,ctypeO,ctypeP,em,targetSize,actualNumberOfThreads)\r
\r
#endif\r
for (i = 0; i < actualNumberOfThreads; ++i) {\r
-function [coo,ele,nei,f2s,sit,err] = refineQuad(coordinates,elements,neigh,sites,type)
+function [coo,ele,nei,f2s,sit,err] = refineQuad(coordinates,elements,neigh,sites,typ)
%
% [coordinates,elements,fa2so] = refineQuad(coordinates,elements,type)
%
err = [];
%Type wenn nur ein Wert: aufblaehen
-if([1 1] == size(type))
- type = repmat(type, size(elements,1),1);
+if([1 1] == size(typ))
+ typ = repmat(typ, size(elements,1),1);
end
-assert(size(elements,1)==size(neigh,1)&&size(elements,1)==length(type),...
+assert(size(elements,1)==size(neigh,1)&&size(elements,1)==length(typ),...
'Dimensionen passen nicht');
G_ref_C = coordinates;
G_ref_N = neigh;
G_ref_S = sites;
-G_ref_t = type;
+G_ref_t = typ;
G_ref_f2s = repmat([1:size(elements,1)]',1,4);
G_ref_tD = ones(size(elements,1),1);
%Parameter Freigeben (Speicher...)
-clear elements coordinates neigh type
+clear elements coordinates neigh typ
% figure(11)
% plotShape(G_ref_C,G_ref_E,'s',G_ref_t);