Курсовая работа: Модель рекламной кампании

SumD=SumD+D(i);

end

SumD;

P_m=0.25*p*a2*((aa1/a2+N0)^2) ;% формула максимальной прибыли

plot(aa1,P_m,'rp');

plot(aa1,D,'gh');

xlabel('a1');

ylabel('P m,D,SumD');

legend('P m','Dohod')

plot(aa1,SumD,'c*');

grid on;

end

%mod232.m

clear,clf,clc,hold on,grid on;

T = 0.8;

p = 2; %Прибыль от одной продажи

s1 = 20; %Издержки на 1 рекламную акцию

a1=0.4;

fora2=[4:5:100] ; %интенсивность рекламной компании

aa2=a2/50; %степень общения потенциальных покупателей

N0 = 6+a1/aa2; %число потенциальных покупателей (тыс.чел)

m=a1/aa2;

[t,N]= ode45(@mma2,[0 T],m,[],N0,a1,aa2);

P = p*(N-(a1/aa2));

S = s1*a1*t;

SumD=0;

for i=1:length(t)

D=P-S;

SumD=SumD+D(i);