function radon(m)

k=plotkusuoka(m);
d=plotder(m);

x=[];
for n=1:1:max(size(k))
    x=[x; d(n,1)/k(n,1)];
end


q0=[1/2 1]; q1=[0 0]; q2=[1 0];
v=[1/2 1/2];
for i=1:1:m
    v=[wordm(v,q0); wordm(v,q1); wordm(v,q2)];
end

size(v)

%gaskplot(v,m-1)

hold off
plot3(v(:,1),v(:,2),x,'.')

%{
hold on
y=SG(m);
for n=1:1:3^(m)
    hold on
    
    plot3([y(3*n-2:3*n,1); y(3*n-2,1)],[y(3*n-2:3*n,2) ;y(3*n-2,2)], [0 0 0 0], 'y')
end
%}
