clear;
close all;

[x,y] = meshgrid(-7:0.25:7);
r = sqrt(x.^2 + y.^2) + eps;
z = sin(r)./r;

subplot(2,1,1);
plot3(x,y,z);              %surf(x,y,z)
colormap hsv
colorbar
xlabel('x'); ylabel('y'); zlabel('z')

subplot(2,1,2);
renglon = 26;          % escojemos el renglon 26 casi por el centro
X=x(renglon,:)*25;     %  agregar un escala *25 para que se pueda cortar
Y=z(renglon,:)*100;    %  agregar un escala *100 para que se pueda cortar
plot (X,Y,'r');
hold on

FID = dxf_open('curvas1.dxf');
   dxf_polyline(FID,X',Y',X'*0);  % observe el   X'  (traspuesta)  en vector vertical
dxf_close(FID);






