АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

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):


1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 |

Поиск по сайту:



Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.006 сек.)