Field Fabrication of Solar-Thermal Powered Steam Turbines for Generation of Mechanical Power

Page | 069

xslices_x= cat(2,notchesxx,basex_x);
xslices_z= cat(2,notches x z,basex_z);
figure (6);
plot(xslices_x,xslices_z (, :));
axis([(-grid/2)-l,(grid/2)+1, -1, (focus*4)+2]);
axis equal;
title('x slice');
%% write outputs as svg file
% find min, max x and y
xmin=-diameter-l;
xmax=diameter+1;
ymin=-diameter-1;
ymax=diameter+1;
fp = fopen('parab.svg','w');
fprintf(fp,'<?xml version="l.0" encoding="UTF-8"?>\n');
fprintf(fp,'<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.0//EN"
"http://www.w3#.org/TR/2001/REC-SVG-20010904/DTD/svgl0.dtd">\n')'
fprintf(fp,'<svg width="%fin" height="%fin" viewBox="%f %f %f %f">\n',xmax-
xmin,ymax-ymin,xmin,ymin,xmax-xmin,ymax-ymin);
fprintf(fp,'<g style="stroke:rgb(0,0,0);fill:none">\n');
% the two ends don't cross with anything, so leave out
for s=2:N,
fprintf(fp,'<polyline points="');
for p=l :length(xslices_x),
fprintf(fp,'%f,%f ',xslices_x(p),xslices_z(s,p))
end
fprintf(fp,'" style="fill:none"/>\n');
end
for s=2:N,
fprintf(fp,'<polyline points="');
for p=l:length(yslices_y),
fprintf(fp,'%f,%f ',yslices_y(p)+diameter+l,yslices_z(s,p))
end
fprintf(fp,'" style="fill:none"/>\n');
end
fprintf(fp,'</g>\n');
fprintf(fp,'</svg>\n');
fclose(fp);
AMY SUN: FIELD FABRICATION OF SOLAR-THERMAL POWERED STEAM TURBINES FOR GENERATION OF MECHANICAL POWER
69 OF 78