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

%SumD=0;

%fori=1:length(t) %здесь считаем суммарный доход для каждого коэф. a1

D=P-S;

%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');

legend('P m','Dohod')

grid on;

end

%mod231.m

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

T = 0.8;

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

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

fora1=[0:2:40] ; %интенсивность рекламной компании

aa1=a1/50;

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

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

m=aa1/a2;

[t,N]= ode45(@mma1,[0 T],m,[],N0,aa1,a2);

P = p*(N-(aa1/a2));

S = s1*aa1*t;

SumD=0;

for i=1:length(t)