Update EFD_till_convergence.m

alihashmiii · Jun 22, 2018 · a8a2d77 · a8a2d77
1 parent b5235e6
commit a8a2d77
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/EFD_till_convergence.m b/EFD_till_convergence.m
@@ -15,7 +15,8 @@
 
 ClearAll@EllipticalFourier;
 Options[EllipticalFourier] = {normalize-> True,sizeInvariance-> True,order-> 10,ptsToplot-> 300,locus-> {0.,0.},areathreshold-> 2};
-EllipticalFourier[img_,OptionsPattern[]]:=Module[{dXY,dt,t,T,\[Phi],contourpositions, contour,contourtour,contourregion,xi,A0,\[Delta],C0,dCval,coeffL,normalizeEFD,ellipticalCoefficients,plotEFD,dcCoefficients,dcVal},
+EllipticalFourier[img_,OptionsPattern[]]:=Module[{dXY,dt,t,T,\[Phi],contourpositions, contour,contourtour,contourregion,xi,A0,
+\[Delta],C0,dCval,coeffL,normalizeEFD,ellipticalCoefficients,plotEFD,dcCoefficients,dcVal},
 contourpositions = PixelValuePositions[MorphologicalPerimeter[img],1];
 contourtour=Last@FindShortestTour[contourpositions];
 contour = Part[contourpositions,contourtour];
@@ -82,7 +83,8 @@
 shortesttour = Line@Last@FindShortestTour@regionpts;
 regiondiff=BoundaryMeshRegion[regionpts,shortesttour]~RegionDifference~contourregion;
 regiondiffmetric = Area[regiondiff]/Area[contourregion] * 100;
-Sow@{harmonicAnalysis[Sequence@@coeff[[j]]],Graphics[{{Thick,XYZColor[0,0,1,0.6],Line@Thread[{xt,yt}]},{Thick,Dashed,XYZColor[1,0,0,0.6],Line@contour},Inset[Style[#,{Black,FontSize->12}]&@Text["harmonic: " <> ToString@j]]}]};
+Sow@{harmonicAnalysis[Sequence@@coeff[[j]]],Graphics[{{Thick,XYZColor[0,0,1,0.6],Line@Thread[{xt,yt}]},
+{Thick,Dashed,XYZColor[1,0,0,0.6],Line@contour},Inset[Style[#,{Black,FontSize->12}]&@Text["harmonic: " <> ToString@j]]}]};
 j++
 ] ;
 ];