Примеры программ для функционального калькулятора

Приведенные программы можно использовать, выбрав «вставить без результатов» по правому клику мышки в окне Калькулятор.

Таким образом, можно создать собственную библиотеку программ, для часто ис-пользуемых расчетов.

Расчет критической скорости для гидротранспорта механических примесей в трубопроводе.

m_prim := 1.153 // количество мех примесей кг на м3, г/л plot_p := 2500 plot_g := 1000 d := 0.04 //диаметр трубопровода метров Vp := m_prim/plot_p // объем мех примесей м3=0,0004612 Vg := 1-Vp // объем жидкости =0,9995388 Plot := (Vg*plot_g+Vp*plot_p)/1 //плотность смеси (с водой)=1000,6918 d_plot := plot-plot_g // изменение плотности=0,6918 C := d_plot/(plot_p-plot_g) //=0,0004612 Vkr := 8.3*d^0.33*(C*0.2)^(1/6) // критическая скорость м/с=0,609880065912113 ниже этой скорости механические частицы оседают на дне.

Расчет начального парциального давления СО₂ при автоклавных испытаниях с учетом его потерь на коррозию

Реакция железа и угольной кислоты можно написать следующим образом.

Fe + H₂O + CO₂ → FeCO₃ + 2H

Из чего следует, что СО₂ и Fe в реакции расходуется одинаковое количество в молях.

Исходя из этого можно посчитать потери СО₂ и необходимое количество увеличения парциального давления СО₂ для компенсации его потерь при коррозии железа при авто-клавных испытаниях, в которых невозможно поддерживать парциальное давление СО₂.

SK := 3 // прогнозная скорость коррозии мм/год, определенная по NORSOK M506 T := 8 // время эксперимента часов H := SK/(365*24)*8/1000 // глубина коррозии, м за Т часов =2,73972602739726E-6 S := 8E-4 // м2, заданная площадь 1 образца m_fe := S*h*7800*4*1000 // потери массы 4 образцов из стали в г=0,0683835616438356 mol_fe := m_fe/55.85 // потери в молях железа (равны потерям в молях СО2)=0,00122441471161747 m_co2 := mol_fe*44 // потери СО2 в г за эксперимент длиной Т часов =0,0538742473111686 V_above := 0.2 // объем в л газовой шапки автоклава P_CO2 := 0.9 // расчетное парциальное давление СО2 в атм M_CO2_above := P_CO2*V_above/22.4*44 //количество СО2 в г в начале опыта в газовой шапке=0,353571428571429 potery_CO2 := m_co2/M_CO2_above*100 // потери СО2 в % за период эксперимента. =15,2371608556841 P_CO2_utochn := (100+potery_CO2/2)/100*P_CO2 //рекомендуемое парциального давления в начале эксперимента с учетом потерь СО2 =0,968567223850578

Расчет гидравлических потерь

Потери напора в круглой трубе по формуле Дарси-Вейсбаха:

Коэффициент гидравлического трения во всех областях турбулентного режима (по Альтшулю А.Д.)

При ламинарном режиме

Программа:

V := 1 // заданная скорость потока м /с DIA := 0.1 // заданный внутренний диаметр трубопровода в м Mu := 0.001 // заданная вязкость динамическая Па*с Ro := 1000 // заданная плотность среды для воды. кг/м3 L := 1000 // заданная длина трубопровода. м RGH := 0.1E-3 // заданная эквивалентная шероховатость. м Re := V*DIA*Ro/Mu // число Рейнольдса=100000 LBD := 64/Re // для справки если это был бы ламинарный =0,00064 LBD := 0.1*((1.46*RGH/(DIA-2*9.81)+100/Re)^0.25) // для справки если это был бы турбулентный=0,0177494487880944 LBD := iff(Re>2300,0.1*((1.46*RGH/(DIA-2*9.81)+100/Re)^0.25),64/Re) // выбор формулы по условию =0,0177494487880944 Poteri := LBD*L*V^2/(2*DIA*9.81) // Па если считать по скорости=9,04660998373823 Q := V*pi*DIA^2/4 // м3/с Расход=0,00785398163397448 Poteri := 0.0827*LBD*L*Q^2/DIA^5 // Па если задавать расход=9,05461820770988

Пример последней программы приведен ниже. Если требуется считать для различ-ных переменных, то можно не задавать их в самой программе. Для примера переменная V в программе закомментирована и ее можно вносить в нижнем правом углу:

Расчет фанерного листа на изгиб

(методика взята из http://texttotext.ru/kursovie-proekti/konstrukcii-iz-dereva-i-plastmass/page-2.html)

Ves := 600 //весь в Ньютонах t := 0.006 // толщина фанеры в м l := 0.5 // наиболее длинная сторона фанеры Wf1 := 1*t^2/6 //момент сопротивления при длине 1 м=6E-6 Mmax := Ves*l/8 // максимальная величина изгиб момента =37,5 Sigma := Mmax/Wf1/1E6 // изг напряжение в фанере в МПА=6,25 Sigma := Ves*l*6/8/t^2/1E6 //та же формула =6,25 sigma_krit := 6.5*1.2 // критические напряжения в МПА=7,8 Ves_max := sigma_krit*8*t^2*1E6/l/6/10 // вес при толщине t в кг =74,88

Примеры программ для функционального калькулятора

Расчет критической скорости для гидротранспорта механических примесей в трубопроводе.

Расчет начального парциального давления СО2 при автоклавных испытаниях с учетом его потерь на коррозию

Расчет гидравлических потерь

Расчет фанерного листа на изгиб

Расчет начального парциального давления СО₂ при автоклавных испытаниях с учетом его потерь на коррозию