('Profits, Expense ');
legend ('Profits', 'Expense');
figure (2)
D = P-S;
plot (t, D, 'm');
xlabel ('Time');
ylabel ('Profits-Expense = 4istaya pribyl ');
grid on;
% mod2.m
clear, clf, clc, hold on, grid on;
T = 0.8;
p = 2;% Прибуток від одного продажу
s1 = 20;% Витрати на 1 рекламну акцію
a1 = 0.9;% інтенсивність рекламної компанії
a2 = 2;% ступінь спілкування потенційних покупців
N0 = 6 + a1/a2; % Число потенційних покупців (тис.чол)
m = a1/a2;
[t, N] = ode45 (@ mm, [0 T], m, [], N0, a1, a2);
P = P * (N-(a1/a2));
S = S1 * a1 * t;
figure (1)
plot (t, P, 'g');
plot (t, S, 'r');
xlabel ('Time');
ylabel ('Profits, Expense ');
legend ('Profits', 'Expense');
figure (2)
D = P-S;
P_m = 0.25 * p * a2 * ((a1/a2 + N0) ^ 2) % Формула максимального прибутку
plot (t, D, 'm');
xlabel ('Time');
ylabel ('Profits-Expense = 4istaya pribyl ');
grid on;
figure (3)
plot (t, (N-(a1/a2)), 'y *');
xlabel ('Time');
ylabel ('N koli4estvo pokupatelei ');
grid on;
% mod3.m
clear, clf, clc, hold on, grid on;
T = 10;
N0 = 6;% число потенційних покупців (тис.чол)
p = 20;% Прибуток від одного продажу
s1 = 5;% Витрати на 1 рекламну акцію
s2 = 0.02 * p;% покупцю, призвів одного роблять знижку в розмірі 2%
a1 = 0.9;% інтенсивність рекламної компанії
a2 = 0.01;% ступінь спілкування потенційних покупців
[t, N] = ode45 (@ f1, [0 T], 0, [], N0, a1, a2);
P = P * N;
S = S1 * a1 * t + s2 * a2 * t;
figure (1)
plot (t, P, 'g');
plot (t, S, 'r');
xlabel ('Time');
ylabel ('Profits, Expense ');
legend ('Profits', 'Expense');
figure (2)
D = P-S;
P_m = 0.25 * p * a2 * ((a1/a2 + N0) ^ 2) % Формула максимального прибутку
plot (t, D, 'm');
xlabel ('Time');
ylabel ('Profits-Expense = 4istaya pribyl ');
grid on;
figure (3)
plot (t, N, 'y *');
xlabel ('Time');
ylabel ('N koli4estvo pokupatelei ');
grid on;
% mod4.m
clear, clf, clc, hold on, grid on;
global a1 a2;
T_max = 10;
N0 = 6;% число потенційних покупців (тис.чол)
p = 20;% Прибуток від одного продажу
s = 5;% Витрати на одну рекламну акцію
[t, N] = ode45 (@ f41, [0 T_max], 0, [], N0);
P = P * N;
...
