1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129
| %% Daten Einlesen
%Eintrittsdaten fuer T = "N65"
%[pt_Eintritt,Tt_Eintritt,ps_Eintritt,Drehzahl,R,gamma,cp,p_isa,T_isa]=textread('N65.map','%f %f %f %f %f %f %f %f %f','headerlines',1);
%Daten=[pt_Eintritt,Tt_Eintritt,ps_Eintritt,Drehzahl,R,gamma,cp,p_isa,T_isa];
%%DATA IMPORT
N65korr=importdata('N65_korr.map');
N65=N65korr.data;
rho=N65(1,9)/(N65(1,6)*N65(1,10));
for n=0:8
Filename = sprintf('N65_Scan%d_exp.map',n)
N65EXP0=importdata(Filename);
XP0=N65EXP0.data;
THETA0(:,n+1) = XP0(:,1);
RADIUS0(:,n+1) = XP0(:,2);
Pt0(:,n+1) = XP0(:,3);
Tt0(:,n+1) = XP0(:,4);
%Erstellung von EXITPLANES TOTALDRUCK, TOTALTEMPERATUR
% for i=1:600
% THETA0(i,1)=XP0(i,1);
% RADIUS0(i,1)=XP0(i,2);
% Pt0(i,1)=XP0(i,3);
% Tt0(i,1)=XP0(i,4);
% end
%Fur die Radial Profilen
%for n=0:8
%for i=1:600
%end
%end
% [x,y]=pol2cart(THETA0,RADIUS0);
% rint=min(RADIUS0);
% rext=max(RADIUS0);
% [R,T] = meshgrid(linspace(rint,rext,300),linspace(min(THETA0),max(THETA0),300));
% Interpolation dans repere polaire (domaine convexe)
zi=griddata(RADIUS0,THETA0,Pt0,R,T,'cubic');
%zi = griddata(RADIUS0,THETA0,Tt0,R,T,'cubic');
[X,Y] = pol2cart(T,R);
figure(1)
%contourf(X,Y,zi,40)
surf(X,Y,zeros(size(X)),zi,'edgecolor','none')
colorbar
view(2)
axis equal tight
figure(2)
hold all
for k=1:15:size(Pt0,1)
plot(Pt0(k:k+14),RADIUS0 (k:k+14),'LineWidth',2);
size all
end% for k=1:size(Pt0,1)
% hold all
% for l=k:15:size(Pt0,1)
% plot(Pt0(l,1),RADIUS0 (l,1),'-r','LineWidth',2);
% hold on
% end
% end
%Pt Matrix erstellen mit i=Radius und j=THETA
Ptmat=reshape(Pt0,40,15);
%%Aehnlichkeitsbeziehungen der Betriebspunkte aus N65korr.map
%Drehzahlgleichheit
% for i=1:9
% Gamma(i,1)=N65(i,7);
% R(i,1)=N65(i,6);
% T_mess(i,1)=N65(i,2);
% T_isa(i,1)=N65(i,10);
% a_mess(i,1)=(Gamma(i,1).*R(i,1).*T_mess(i,1)).^0.5;
% a_isa(i,1)=(Gamma(i,1).*R(i,1).*T_isa(i,1)).^0.5;
% n_welle(i,1)=N65(i,4);
% n_cor(i,1)=n_welle(i,1).*a_isa(i,1)./a_mess(i,1);
% %u_isa=u_mess*a_isa/a_mess --> n_cor=n_mess*a_isa/a/mess
%
% %Massenstromgleichheit
% p_s(i,1)=N65(i,3);
% p_isa(i,1)=N65(i,9);
% rho_isa(i,1)=p_isa(i,1)./(R(i,1).*T_isa(i,1));
% rho_mess(i,1)=p_s(i,1)./(R(i,1).*T_mess(i,1));
% m_cor(i,1)=m_welle(i,1)*rho_isa(i,1)./rho_mess(i,1).*a_isa(i,1)./a_mess(i,1);
%%Mittellung
Atot=polyarea(x,y)/1000000;%rext=190mm und rint=120mm
% %Arithmetisches
% G=sum(zi,2);
% H=sum(G,1);
% Pt2=H/(size(zi,1)*size(zi,2));
%Flaechenmittelung
Aj=Atot/4000;
zibis=zi*Aj;
G=sum(zibis,2);
H=sum(G,1);
Pt2=H/(size(zi,1)*size(zi,2)*Aj);
%Massenstrommittelung
Mj=m_welle/4000;
zitris=zi*Mj;
G=sum(zitris,2);
H=sum(G,1);
Pt2=H/(size(zi,1)*size(zi,2)*Mj);
%%Aehnlichkeitsbeziehungen der Betriebspunkte aus N65korr.map
%Drehzahlgleichheit
for i=1:9
Gamma(i,1)=N65(i,7);
R(i,1)=N65(i,6);
T_mess(i,1)=N65(i,2);
T_isa(i,1)=N65(i,10);
a_mess(i,1)=(Gamma(i,1).*R(i,1).*T_mess(i,1)).^0.5;
a_isa(i,1)=(Gamma(i,1).*R(i,1).*T_isa(i,1)).^0.5;
n_welle(i,1)=N65(i,4);
n_cor(i,1)=n_welle(i,1).*a_isa(i,1)./a_mess(i,1);
%u_isa=u_mess*a_isa/a_mess --> n_cor=n_mess*a_isa/a/mess
%Massenstromgleichheit
p_s(i,1)=N65(i,3);
p_isa(i,1)=N65(i,9);
rho_isa(i,1)=p_isa(i,1)./(R(i,1).*T_isa(i,1));
rho_mess(i,1)=p_s(i,1)./(R(i,1).*T_mess(i,1));
m_cor(i,1)=m_welle(i,1)*rho_isa(i,1)./rho_mess(i,1).*a_isa(i,1)./a_mess(i,1);
end
end |
Partager