diff --git a/doc/hamproptbl.m b/doc/hamproptbl.m index 9b5c6c0..e8992e5 100644 --- a/doc/hamproptbl.m +++ b/doc/hamproptbl.m @@ -1,5 +1,7 @@ #!/usr/bin/octave +graphics_toolkit ("gnuplot"); + aftbln = 5; afval = [80 100 125 150 175 200]; @@ -45,7 +47,7 @@ for t=1:2; endfor; printf("\n};\n"); -clf; +f=figure("visible","off"); plot(afval,afcpc(1,:),"1+;CP 1;",... afval,afcpc(2,:),"2+;CP 2;",... afval,afctc(1,:),"3+;CT 1;",... @@ -58,9 +60,9 @@ grid on; xlabel("AF -- Activity Factor"); ylabel("CP/CT Factor"); title("CP/CT versus AF"); -print("propafcpct.eps","-depsc2","-portrait","-color"); +print(f, "propafcpct.eps","-depsc2","-portrait","-color"); -clf; +f=figure("visible","off"); plot(afval,afcpc(1,:)-polyval(afcpp(1,:),afval),"1+-;CP J=0 error;",... afval,afcpc(2,:)-polyval(afcpp(2,:),afval),"2+-;CP J>=0.5 error;",... afval,afctc(1,:)-polyval(afctp(1,:),afval),"3+-;CT J=0 error;",... @@ -69,7 +71,7 @@ grid on; xlabel("AF -- Activity Factor"); ylabel("CP/CT Factor Approximation Error"); title("CP/CT versus AF Approximation Error"); -print("propafcpcterr.eps","-depsc2","-portrait","-color"); +print(f, "propafcpcterr.eps","-depsc2","-portrait","-color"); zjstal = 0:0.4:3.2; cpstal = [ .05 .12 .22 .35 .49 .65 .82 1.01 1.19 ; @@ -146,6 +148,7 @@ for t=1:4; endfor; printf("\n};\n\n"); +f=figure("visible","off"); plot(zjstal,cpstal(1,:),"1+;CPstall 2 Blade;",... zjstal,cpstal(2,:),"2+;CPstall 4 Blade;",... zjstal,cpstal(3,:),"3+;CPstall 6 Blade;",... @@ -158,8 +161,9 @@ grid on; xlabel("ZJ"); ylabel("CP Stall"); title("CP Stall versus ZJ"); -print("propcpstal.eps","-depsc2","-portrait","-color"); +print(f,"propcpstal.eps","-depsc2","-portrait","-color"); +f=figure("visible","off"); plot(zjstal,cpstal(1,:)-polyval(cpstalp(1,:),zjstal),"1+-;CPstall 2 Blade error;",... zjstal,cpstal(2,:)-polyval(cpstalp(2,:),zjstal),"2+-;CPstall 4 Blade error;",... zjstal,cpstal(3,:)-polyval(cpstalp(3,:),zjstal),"3+-;CPstall 6 Blade error;",... @@ -168,8 +172,9 @@ grid on; xlabel("ZJ"); ylabel("CP Stall Approximation Error"); title("CP Stall versus ZJ Approximation Error"); -print("propcpstalerr.eps","-depsc2","-portrait","-color"); +print(f,"propcpstalerr.eps","-depsc2","-portrait","-color"); +f=figure("visible","off"); plot(zjstal,ctstal(1,:),"1+;CTstall 2 Blade;",... zjstal,ctstal(2,:),"2+;CTstall 4 Blade;",... zjstal,ctstal(3,:),"3+;CTstall 6 Blade;",... @@ -182,8 +187,9 @@ grid on; xlabel("ZJ"); ylabel("CT Stall"); title("CT Stall versus ZJ"); -print("propctstal.eps","-depsc2","-portrait","-color"); +print(f,"propctstal.eps","-depsc2","-portrait","-color"); +f=figure("visible","off"); plot(zjstal,ctstal(1,:)-polyval(ctstalp(1,:),zjstal),"1+-;CTstall 2 Blade error;",... zjstal,ctstal(2,:)-polyval(ctstalp(2,:),zjstal),"2+-;CTstall 4 Blade error;",... zjstal,ctstal(3,:)-polyval(ctstalp(3,:),zjstal),"3+-;CTstall 6 Blade error;",... @@ -192,7 +198,7 @@ grid on; xlabel("ZJ"); ylabel("CT Stall Approximation Error"); title("CT Stall versus ZJ Approximation Error"); -print("propctstalerr.eps","-depsc2","-portrait","-color"); +print(f,"propctstalerr.eps","-depsc2","-portrait","-color"); inn = [ 10 6 8 8 7 10 6 ]; @@ -367,7 +373,7 @@ endfor; printf("\n};\n"); for bldidx=1:4; - clf; + f=figure("visible","off"); col=jet(7); for t=7:-1:1; plot(cpang(t+(bldidx-1)*7,1:inn(t)),bldang(t,1:inn(t)),sprintf("+;J=%3.1f;",zjj(t)),"color",col(t,:)); @@ -387,11 +393,11 @@ for bldidx=1:4; ylabel("Blade Angle"); title(sprintf("%u Blade Propeller",bldidx*2)); axis([-0.5 1.5 0 70]); - print(sprintf("propbldangcp%u.eps",bldidx),"-depsc2","-portrait","-color"); + print(f,sprintf("propbldangcp%u.eps",bldidx),"-depsc2","-portrait","-color"); axis([0.0 0.4 0 40]); - print(sprintf("propbldangcp%ud.eps",bldidx),"-depsc2","-portrait","-color"); + print(f,sprintf("propbldangcp%ud.eps",bldidx),"-depsc2","-portrait","-color"); - clf; + f=figure("visible","off"); col=jet(7); for t=1:7; plot(ctang(t+(bldidx-1)*7,1:inn(t)),bldang(t,1:inn(t)),sprintf("+;J=%3.1f;",zjj(t)),"color",col(t,:)); @@ -411,9 +417,9 @@ for bldidx=1:4; ylabel("Blade Angle"); title(sprintf("%u Blade Propeller",bldidx*2)); axis([-0.2 0.6 0 70]); - print(sprintf("propbldangct%u.eps",bldidx),"-depsc2","-portrait","-color"); + print(f,sprintf("propbldangct%u.eps",bldidx),"-depsc2","-portrait","-color"); axis([0.0 0.2 0 40]); - print(sprintf("propbldangct%ud.eps",bldidx),"-depsc2","-portrait","-color"); + print(f,sprintf("propbldangct%ud.eps",bldidx),"-depsc2","-portrait","-color"); endfor; # Figure 1 from 1971 Report @@ -450,7 +456,7 @@ for t=1:7; endfor; printf("\n};\n"); -clf; +f=figure("visible","off"); col=jet(7); for t=1:4; plot(cpec,btdcr(t,:),sprintf("+;%u Blades;",t*2),"color",col(2*t-1,:)); @@ -463,4 +469,4 @@ hold off; xlabel("Effective Power Coefficient CPE1"); ylabel("PBL"); grid on; -print("proppbl.eps","-depsc2","-portrait","-color"); +print(f,"proppbl.eps","-depsc2","-portrait","-color"); diff --git a/doc/hartzellf7666a2af.m b/doc/hartzellf7666a2af.m index f39ccf4..dfc0fee 100644 --- a/doc/hartzellf7666a2af.m +++ b/doc/hartzellf7666a2af.m @@ -1,5 +1,7 @@ #!/usr/bin/octave +graphics_toolkit ("gnuplot"); + # diam 192 t = [ 0 5.5 ; @@ -93,6 +95,7 @@ P = polyfit(74/2-t(:,1)/2.54,t(:,2)/2.54,polyorder); r=((round(rmin*1e2)*1e-2):1e-2:rmax); w=polyval(P,r); +figure("visible","off"); plot(r,w,";Approximation;",... 74/2-t(:,1)/2.54,t(:,2)/2.54,"+;Measurements;"); line([rcowling rcowling],[0 10],"displayname","Cowling","color","cyan"); diff --git a/doc/p28rperf.m b/doc/p28rperf.m index 0bff680..f69bf35 100644 --- a/doc/p28rperf.m +++ b/doc/p28rperf.m @@ -1,5 +1,7 @@ #!/usr/bin/octave +graphics_toolkit ("gnuplot"); + global const_g = 9.80665; % gravity const. global const_m = 28.9644; % Molecular Weight of air global const_r = 8.31432; % gas const. for air @@ -75,6 +77,7 @@ CD0geardownflaps40=CD0geardown+0.06; alt=0:100:15000; [p t rho]=icaoatmo(alt); +figure("visible","off"); clf; ax=plotyy(alt,p,alt,rho,@plot,@plot); title("ICAO Standard Atmosphere"); @@ -188,7 +191,7 @@ set(ax(2),"ylim",[0 1200]); set(ax(1),"ycolor",[0 0 0]); set(ax(2),"ycolor",[0 0 0]); legend(ax, "location","northwest"); -legend(ax, "show"); +#legend(ax, "show"); print("p28rslgndrun.eps","-depsc2","-portrait","-color"); clf; @@ -207,7 +210,7 @@ set(ax(2),"ylim",[0 80]); set(ax(1),"ycolor",[0 0 0]); set(ax(2),"ycolor",[0 0 0]); legend(ax, "location","northwest"); -legend(ax, "show"); +#legend(ax, "show"); print("p28rslgndrunprop.eps","-depsc2","-portrait","-color"); CD0s=[CD0 CD0geardown];