Hi Frieder,
The code below draws the missing vertical grid when there are no x-axis
displayed on the subplot (see picture attached):
x1 = (-10:0.5:10)';
y1 = sin(x1);
y2= 5*cos(x2);
y3= y2/2+y1;
clf()
subplot(3,1,1)
plot2d(x1,y1,color('red'),strf="020"); //no box surrounding plot
a=gca();
a.x_location = 'top';
a.axes_visible = ['on','on'];
xgrid;
subplot(3,1,2)
plot2d(x1,y2,color('blue'),strf="020"); ////no box surrounding plot
a=gca();
a.axes_visible = ['off','on'];
xgrid;
x = [a.data_bounds(1,1),a.data_bounds(2,1)];
y = [a.data_bounds(1,2),a.data_bounds(2,2)];
x = (x(2)-x(1))*a.x_ticks.locations + x(1);
n= length(x);
for i=1:n
xpoly([x(i),x(i)],y);
e=gce();
e.line_style=3;
end
subplot(3,1,3)
plot2d(x1,y3,strf="020")
a=gca();
a.axes_visible = ['on','on'];
xgrid;
Regards,
Rafael
From: users [mailto:users-boun...@lists.scilab.org] On Behalf Of Friede
r Nikolaisen
Sent: Thursday, October 13, 2016 2:05 PM
To: mailto:users@lists.scilab.org
Subject: [Scilab-users] Fwd: Re: Fwd: plotxxyyy
Dear community,
thank you for you support. I get now wonderful plots.
There is still a feature missing: Plot two has not x grid. How to add a grid
without a axis? (I tried a bit with newaxis... no success)
subplot(3, 1, 2)
co = color("blue");
plot2d(x1, y2, co);
b = gca();
b.font_color = co;
b.foreground = co;
b.axes_visible(1) = "off"; xgrid(co, 1, 10)
This code works well now:
subplot(3, 1, 3)
co=color("red");
plot2d(x1, y3, co);
xgrid(co, 1, 10)
c = gca();
c.font_color = co;
c.foreground = co;
c.data_bounds = [min(x1),min(y3); max(x1),max(y3)+(max(y3)-min(y3))*0.45]
//c.axes_visible(1) = "off";
ylabel(string(kT(y_3)),"color",co)
xlabel('Sekunden')
x= (A(:,1) - A(1,1)) * 24 * 3600;
//Input parameters for plotting the measurement numbers with optional gaps and
stacking to avoid overlapping
nstack=5;//maximum number of stacked measurement numbers
hstack=0.3;//height of measurement number stack (relative to window height)
ybase=max(y3)*1; //base ordinate for measurement numbers
yspan=max(y3)-min(y3);
plot(x1(M),y3(M), 'ko') // fügt schwarze dots hinzu
for m=1:length(M) //Beschriftung
xstring(x1(M(m)),ybase+(modulo(M(m),nstack))*hstack*yspan/nstack,string(M(m)))
set(handles.Anzeige, 'string', 'Diagrammbeschriftung ' + string(k) + ' von ' +
string(A_size(1,1)))
end
If I have a few hours nothingelse to do, I will try to solve the prolbem with
Denis sparse function. With out using a for loop, it will be faster.
Best regards
Frieder
PS: I wanted to send two plots, but they are 111kB. I plead for a higher limit.
_______________________________________________
users mailing list
users@lists.scilab.org
http://lists.scilab.org/mailman/listinfo/users
