Figure plot automatisiert

WICHTIG: Der Betrieb von goMatlab.de wird privat finanziert fortgesetzt. - Mehr Infos...

Partner:

Forum

Option

[Erweitert]

• Diese Seite per Mail weiterempfehlen

Gehe zu:

Henrik123

Forum-Fortgeschrittener


	Beiträge: 87

	Anmeldedatum: 25.01.17

	Wohnort: ---

	Version: 2011a, 2017a

Verfasst am: 17.10.2017, 16:07 Titel: Figure plot automatisiert

Hallo. Ich versuche gerade meine Programm zum laufen zu bekommen. Es besteht aus drei Teilen.

Ich plotte vier Grafiken mit jeweils zwei subplots. In jedem Subplot befinden sich fünf Kurven. Dazu habe ich schon einige fragen in diesem Forum gestellt. Das klappt alles soweit auch super. Nun möchte ich mit einer for loop die Grafiken plotten. Leider übernimmt er die Werte für die Kurven nicht.

Hier einmal das gesammte Skript.

Code:

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% NOT IMPORTANT %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Constants
% Main
t = 4; % Amount of pictures
g = 1; % Gain middle ear
b = 0.4; % Relation of displacement ?_b zu ?_p
gamma = 1; % Gain of OHC (for death ear: gamma = 0) (default value: gamma = 1)
rho = 1; % Density of cochlea fluid, unit (dyn*cm^-3)
nf = 5; % Amount of curves in the figure, test frequencies

% Dimension of Cochlea
L = 3.5; % Length of Cochlea, unit (cm)
H = 0.1; % Heigth of Cochlea, unit (cm)
W = 0.1; % Width of Cochlea, unit (cm)
N = 251; % Amount of Cochlea partitions

% Arrays for data
x = transpose(linspace(0,L,N)); % Vector of distance for Cochlea partitions
o = ones(N-1,1);
P = zeros(N,nf); % Vector of pressure for Cochlea partitions, unit (dyn*cm^-2)
Yb = zeros(N,nf); % Vector of admittance for Cochlea partitions, unit (dyn*s*cm^-3)
Db = zeros(N,nf); % Vector of BM displacement for Cochlea partitions, unit (cm)
Dh = zeros(N,nf); % Vector of OHC displacement for Cochlea partitions, unit (cm)

% BM: stiffness, damping und mass
k1 = 1.1e9*exp(-4*x); % stiffness, unit (dyn*cm^-3)
c1 = 20+1500*exp(-2*x); % damping, unit (dyn*s*cm^-3)
m1 = 0.003; % mass, unit (g*cm^-2)
k2 = 7e6*exp(-4.4*x);
c2 = 10*exp(-2.2*x);
m2 = 0.0005;
k3 = 1e7*exp(-4*x);
c3 = 2*exp(-0.8*x);
k4 = 6.15e8*exp(-4*x);
c4 = 1040*exp(-2*x);

% Middle ear: stiffness, damping und mass
km = 2.1e5;
cm = 400;
mm = 0.045;
As = 0.01; % Area of the stapes, unit (cm^2)
Am = 0.35;
Gm = 0.5;
Pe = 2.848e-4; % Pressure of the ear drum, unit (dyn*cm^-2)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% HERE IT STARTS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Define titles and axis length
devTitle = {'Pressure','Impedance','BM displacement', 'OHC displacement'};
C = {[0 L -120 0],[0 L -1 1];
[0 L -100 20], [0 L -5 1];
[0 L -40 80], [0 L -5 1];
[0 L -100 20],[0 L -5 1];
};

%% Compute data
f = 50;
dx = L/(N-1); % Equation A1
Ap = b/g;
for J = 1:nf,
f = f*3;
s = 2i*pi*f;
srd = 2*s*rho*dx;
% Impedance
z1 = k1/s+c1+m1*s;
z2 = k2/s+c2+m2*s;
z3 = k3/s+c3;
z4 = k4/s+c4;
Zb = z1+z2.*(z3-gamma*z4)./(z2+z3);
Zp = Zb/Ap; % Equation 12
hc = z2./(z2+z3);Q = zeros(N,1);
% Middle ear
Zm = km/s+cm+mm*s;
ame = -srd*As/(W*H*Zm); % Equation A2
pme = ame*(Am/(Gm*As))*Pe; % Equation A3
% Solution of pressure for middle ear
Q = zeros(N,1);
Q(1) = pme;
a = (s*rho*dx*dx/(H))*(Zp.^(-1));
A = diag(2+a,0)+diag(-o,1)+diag(-o,-1);
A(1,1) = 1+ame;
p = A\Q;
P(:,J) = p/Pe;
Yb(:,J) = Zb.^(-1);
Db(:,J) = ((p./(Zb*g))./s)*1e7;
Dh(:,J) = hc.*Db(:,J);

% Create list for legend
list{J} = [num2str(f) ' Hz'];

% Combine results for automated plotting
for i = 1:t;
if i == 1
Results{i,J} = P(:,J);
elseif i == 2
Results{i,J} = Yb(:,J);
elseif i == 3
Results{i,J} = Db(:,J);
else
Results{i,J} = Dh(:,J);
end
end
end

xx = x;
tpi = 2*pi;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Plotting data %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

J=1;
i=1

for J = 1:nf;
for i = 1:t
%% Print Figures
figure(i);clf;

% Plot data
ax1 = subplot(211);
plot(xx,real(20*log10(cell2mat(Results(i,J)))));
axis(cell2mat(C(i,1)));
title(devTitle(i));
ax2 = subplot(212);
plot(xx,unwrap(imag(log(cell2mat(Results(i,J)))))/tpi);
axis(cell2mat(C(i,2)));

% Set Ylabel for subplots
hLabel1 = ylabel(ax1,'Amplitude in dB');
hLabel2 = ylabel(ax2,'Phase in \pi');
pos1 = get(hLabel1, 'Position');
pos2 = get(hLabel2, 'Position');
newX = min(pos1(1), pos2(1));
pos1(1) = newX;
pos2(1) = newX;
set(hLabel1, 'Position', pos1);
set(hLabel2, 'Position', pos2);

% Set axis value
LY1 = get(ax1,'YLim');
Bildhoehe1 = get(gcf);
NumTicksY1 = abs((LY1(1)-LY1(2))/20);
set(ax1,'YTick',linspace(LY1(1),LY1(2),NumTicksY1+1));
LY2 = get(ax2,'YLim');
Bildhoehe2 = get(ax2, 'position');
NumTicksY2 = abs((LY2(1)-LY2(2))/1);
set(ax2,'YTick', linspace(LY2(1),LY2(2),NumTicksY2+1));

% Xlabel here
xlabel('Displacement in cm');

% Legend here
AX = legend(list,'Location','southoutside', 'orientation', 'horizontal');

% Set figure heigth
AX.Position(1:2) = [0.08, 0.0] ; % Move legend down and center a bit.
ax2.Position(4) = ax1.Position(4) ; % Set height axes 2 = height axes 1.
ax1.Position(2) = ax1.Position(2)+0.01 ; % Move axes 1 up a notch.
ax2.Position(2) = ax2.Position(2)-0.11 ; % Move axes 2 down.

Funktion ohne Link?

Man sieht die Programmteile wie figure, plot und axes haben entsprechend einen Zähler erhalten. Außerdem achte ich auf die Form zwischen cell array und Dimension der übergebenen Vektoren.

Die Fehlermeldung ist:

Code:

Warning: Ignoring extra legend entries.
> In legend>set_children_and_strings (line 674)
In legend>make_legend (line 346)
In legend (line 294)
In english (line 156)
Warning: Ignoring extra legend entries.
> In legend>set_children_and_strings (line 674)
In legend>make_legend (line 346)
In legend (line 294)
In english (line 156)
Warning: Ignoring extra legend entries.
> In legend>set_children_and_strings (line 674)
In legend>make_legend (line 346)
In legend (line 294)
In english (line 156)
Warning: Ignoring extra legend entries.
> In legend>set_children_and_strings (line 674)
In legend>make_legend (line 346)
In legend (line 294)
In english (line 156)
Warning: Ignoring extra legend entries.
> In legend>set_children_and_strings (line 674)
In legend>make_legend (line 346)
In legend (line 294)
In english (line 156)
Warning: Ignoring extra legend entries.
> In legend>set_children_and_strings (line 674)
In legend>make_legend (line 346)
In legend (line 294)
In english (line 156)
Warning: Ignoring extra legend entries.
> In legend>set_children_and_strings (line 674)
In legend>make_legend (line 346)
In legend (line 294)
In english (line 156)
Warning: Ignoring extra legend entries.
> In legend>set_children_and_strings (line 674)
In legend>make_legend (line 346)
In legend (line 294)
In english (line 156)
Warning: Ignoring extra legend entries.
> In legend>set_children_and_strings (line 674)
In legend>make_legend (line 346)
In legend (line 294)
In english (line 156)
Warning: Ignoring extra legend entries.
> In legend>set_children_and_strings (line 674)
In legend>make_legend (line 346)
In legend (line 294)
In english (line 156)
Warning: Ignoring extra legend entries.
> In legend>set_children_and_strings (line 674)
In legend>make_legend (line 346)
In legend (line 294)
In english (line 156)
Warning: Ignoring extra legend entries.
> In legend>set_children_and_strings (line 674)
In legend>make_legend (line 346)
In legend (line 294)
In english (line 156)
Warning: Ignoring extra legend entries.
> In legend>set_children_and_strings (line 674)
In legend>make_legend (line 346)
In legend (line 294)
In english (line 156)
Warning: Ignoring extra legend entries.
> In legend>set_children_and_strings (line 674)
In legend>make_legend (line 346)
In legend (line 294)
In english (line 156)
Warning: Ignoring extra legend entries.
> In legend>set_children_and_strings (line 674)
In legend>make_legend (line 346)
In legend (line 294)
In english (line 156)
Warning: Ignoring extra legend entries.
> In legend>set_children_and_strings (line 674)
In legend>make_legend (line 346)
In legend (line 294)
In english (line 156)
Warning: Ignoring extra legend entries.
> In legend>set_children_and_strings (line 674)
In legend>make_legend (line 346)
In legend (line 294)
In english (line 156)
Warning: Ignoring extra legend entries.
> In legend>set_children_and_strings (line 674)
In legend>make_legend (line 346)
In legend (line 294)
In english (line 156)
Warning: Ignoring extra legend entries.
> In legend>set_children_and_strings (line 674)
In legend>make_legend (line 346)
In legend (line 294)
In english (line 156)
Warning: Ignoring extra legend entries.
> In legend>set_children_and_strings (line 674)
In legend>make_legend (line 346)
In legend (line 294)
In english (line 156)

Funktion ohne Link?

Stonewall

Forum-Newbie


	Beiträge: 7

	Anmeldedatum: 10.07.17

	Wohnort: ---

	Version: ---

Verfasst am: 18.10.2017, 19:56 Titel:

Eventuell fehlt am Ende etwas.

Wenn ich 2 fehlende End Statements hinzufüge, bekomme ich

Code:

Attempt to reference field of non-structure array.

Error in Untitled (line 160)
ax2.Position(4) = ax1.Position(4) ; % Set height axes 2 =
height axes 1.

Funktion ohne Link?

Jan S

Moderator


	Beiträge: 11.057

	Anmeldedatum: 08.07.10

	Wohnort: Heidelberg

	Version: 2009a, 2016b

Verfasst am: 23.10.2017, 02:08 Titel: Re: Figure plot automatisiert

Hallo Henrik123,

Die Frage ist noch nicht klar.
Bei mir läuft der Code durch. Die Warnung von legend kommt daher, dass das Diagramm nur eine Kurve enthält, "list" aber mehr Namen.

Zitat:

Leider übernimmt er die Werte für die Kurven nicht.

Wer ist "er" und welche Werte werden für welche Kurven nicht übernommen?

Gruß, Jan


Einstellungen und Berechtigungen
Beiträge der letzten Zeit anzeigen:	Du kannst Beiträge in dieses Forum schreiben. Du kannst auf Beiträge in diesem Forum antworten. Du kannst deine Beiträge in diesem Forum nicht bearbeiten. Du kannst deine Beiträge in diesem Forum nicht löschen. Du kannst an Umfragen in diesem Forum nicht mitmachen. Du kannst Dateien in diesem Forum posten Du kannst Dateien in diesem Forum herunterladen

Impressum | Nutzungsbedingungen | Datenschutz | FAQ |

RSS

Hosted by:

Copyright © 2007 - 2024 goMatlab.de | Dies ist keine offizielle Website der Firma The Mathworks

MATLAB, Simulink, Stateflow, Handle Graphics, Real-Time Workshop, SimBiology, SimHydraulics, SimEvents, and xPC TargetBox are registered trademarks and The MathWorks, the L-shaped membrane logo, and Embedded MATLAB are trademarks of The MathWorks, Inc.