 |
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция
Formula(2.3)
5.694816+.616463832p3jmrR3Ly2
Проведем исследование полученной зависимости, с ипользованием оператора цикла в интервале значений 0,26…0,32 с шагом 0,01 относительно переменной φ:
[> for phi from 0.26 by 0.01 while phi<=0.32 do A;od;
1.48065216pmrR3Lg(1-y4)y2 + 0.1602805963 p3mrR3Ly2
1.53760032 pmrR3Lg(1-y4)y2 + 0.1664452346 p3mrR3Ly2
1.59454848 pmrR3Lg(1-y4)y2 + 0.1726098730 p3mrR3Ly2
1.65149664 pmrR3Lg(1-y4)y2 + 0.1787745113 p3mrR3Ly2
1.70844480 pmrR3Lg(1-y4)y2 + 0.1849391496 p3mrR3Ly2
1.76539296 pmrR3Lg(1-y4)y2 + 0.1911037879 p3mrR3Ly2
1.82234112 pmrR3Lg(1-y4)y2 + 0.1972684262 p3mrR3Ly2
Произведем подстановку конкретных значений переменных j, m, r, R, L, g, в полученные выше выражения, используя команду subs:
[>A1:=subs({mu=0.575,rho=7800, R=1.22, L=13.04, g=9.8},1.48065216*mu*rho*Pi*R^3*L*g*(1-psi^4)
*psi^2+0.1602805963*mu*rho*Pi^3*R^3*L*psi^2):
[>A2:=subs({mu=0.575, rho=7800, R=1.22, L=13.04, g=9.8},1.53760032*mu*rho*Pi*R^3*L*g*(1-psi^4)
*psi^2+0.1664452346*mu*rho*Pi^3*R^3*L*psi^2):
[>A3:=subs({mu=0.575, rho=7800, R=1.22, L=13.04, g=9.8},1.59454848*mu*rho*Pi*R^3*L*g*(1-psi^4)
*psi^2+0.1726098730*mu*rho*Pi^3*R^3*L*psi^2):
[>A4:=subs({mu=0.575, rho=7800, R=1.22, L=13.04, g=9.8},1.65149664*mu*rho*Pi*R^3*L*g*(1-psi^4)
*psi^2+0.1787745113*mu*rho*Pi^3*R^3*L*psi^2):
[>A5:=subs({mu=0.575, rho=7800, R=1.22, L=13.04, g=9.8},1.70844480*mu*rho*Pi*R^3*L*g*(1-psi^4)
*psi^2+0.1849391496*mu*rho*Pi^3*R^3*L*psi^2):
[>A6:=subs({mu=0.575, rho=7800, R=1.22, L=13.04, g=9.8},1.76539296*mu*rho*Pi*R^3*L*g*(1-psi^4)
*psi^2+0.1911037879*mu*rho*Pi^3*R^3*L*psi^2):
[>A7:=subs({mu=0.575, rho=7800, R=1.22, L=13.04, g=9.8},1.82234112*mu*rho*Pi*R^3*L*g*(1-psi^4)
*psi^2+0.1972684262*mu*rho*Pi^3*R^3*L*psi^2):
Построим графики полученных зависимостей на координатной плоскости ψ0А:
[> with(plots):
[> A11:=plot(A1,psi=0.7..1):
[> A22:=plot(A2,psi=0.7..1,color=green):
[> A33:=plot(A3,psi=0.7..1,color=gray):
[> A44:=plot(A4,psi=0.7..1,color=blue):
[> A55:=plot(A5,psi=0.7..1,color=gold):
[> A66:=plot(A6,psi=0.7..1,color=yellow):
[> A77:=plot(A7,psi=0.7..1,color=pink):
[> A88:=textplot([0.8,1500000,"Grafiki zavisimosti obshei velichini raboti"]):
[> A99:=textplot([0.8,1300000,"ot doli kriticheskoi skorosti"]):
[> A00:=textplot([0.71,2700000,"A"]):
[>display({A11,A22,A33,A44,A55,A66,A77,A88,A99, A00});
Полученные графики полной работы (рис. 12. 16) имеют однотипный характер поведения кривых, как и в случае работы, совершаемой мельницей по подъему мелющих тел. Кривые имеют максимумы, предположительно в тех же точках, однако при стремлении параметра ψ к единице не обращается в ноль, а соответствуют максимальному значению работы, затрачиваемой на сообщение кинетической энергии мелющим телам для соответствующего φ.
Рис. 12.16. Графики полной работы
Вычислим точки максимума всех приведенных функций и сравним полученные результаты:
[>with(Optimization):
[> Maximize(A1);
[2.17623116842168198 106,
[y = 0.779748266202334394]]
[> Maximize(A2);
[2.25993236765125628 106,
[y = 0.779748266193465598]]
[> Maximize(A3);
[2.34363356605387712 106,
[y= 0.779748266217685114]]
[> Maximize(A4);
[2.42733476528345142 106,
[y = 0.779748266208899142]]
[> Maximize(A5);
[2.51103596451302664 106,
[y = 0.779748266200699368]]
[> Maximize(A6);
[2.59473716253860574 106,
[y = 0.779748266203458716]]
[> Maximize(A7);
[2.67843836176818004 106,
[y = 0.779748266195942506]]
Согласно полученным результатам максимальное значение полной работы достигается практически при одном и том же значении ψ, равном 0,77974827
[> psi[optA]:=0.77974827;
yoptA:= 0.77974827
Построим график поверхности, определяющий зависимость полной работы от технологических параметров ψ, j.
[> restart;
[> mu:=0.575;
[> rho:=7800;
[> R:=1.22;
[> L:=13.04;
[> g:=9.81;
[> with(plots):
Поиск по сайту: