equrep

c05cd636-039a-483e-894b-86fa961a4f24 114 15 12 decimal

&[DATE] &[TIME] - &[FILENAME]

f d 2^ω 2^* z * α tan * R.min 3^R.max 3^- (* ρ.M ρ.g - (* β * 8.6 μ * / :

target f - d solve maple 215 sqrt z tanα * β * R.min 3^ρ.M ρ.g - (* R.max 3^ρ.M - ρ.g + (* + (* target * μ * sqrt * 5 z * tanα * β * R.min 3^ρ.M ρ.g - (* R.max 3^ρ.M * - R.max 3^ρ.g * + (* ω * / 215 sqrt z tanα * β * R.min 3^ρ.M ρ.g - (* R.max 3^ρ.M - ρ.g + (* + (* target * μ * sqrt * 5 z * tanα * β * R.min 3^ρ.M ρ.g - (* R.max 3^ρ.M * - R.max 3^ρ.g * + (* ω * / - 21 mat

ω z α R.min R.max ρ.M ρ.g β μ 91 mat

equrep

f# a# b# AUXFS f# num2str (a# num2str, b# num2str) concat str2num 11 line :

f# a# b# c# AUXFS f# num2str (a# num2str, b# num2str, c# num2str) concat str2num 11 line :

expr# Rules# ApplyERRules ans# expr# : n# 1 Rules# rows range ans# equrep ans# Rules# n# 1 el Rules# n# 2 el AUXFS : for ans# 31 line :

# # try

expr# Rules# ApplyNERRules ans# expr# : N# 120 range old# ans# : ans# ans# Rules# ApplyERRules : old# num2str ans# num2str ≡ break continue if 31 line for ans# 31 line :

expr# equal2EQ ans# expr# num2str : ans# \2261\ findstr 1 - ≡ ans# ans# \2261\0 concat : n# ans# \2261\ findstr 1 el : 12 mat n# ans# \2261\ findstr 1 el : if ans# 1 n# 1 - substr str2num ans# n# 1 + ans# strlen n# - substr str2num 12 mat 31 line :

isol

a tenpow 10 a^11 line :

a powtwo a 2^11 line :

EQA sin asin cos acos tan atan sec asec csc acsc cot acot sinh asinh cosh acosh tanh atanh sech asech csch acsch coth acoth exp ln tenpow log10 powtwo sqrt erf erfinv 162 mat :

EQ EQ(-a,b) EQ(a,-b) minus 13 mat :

EQ EQ EQ(a^b,c) EQ.power(a,b,c) power 13 mat stack :

EQ EQ EQ(a/b,c) EQ.quotient(a,b,c) quotient 13 mat stack :

EQ EQ EQ(a*b,c) EQ.times(a,b,c) times 13 mat stack :

EQ EQ EQ(a+b,c) EQ.plus(a,b,c) plus 13 mat stack :

EQA rows 16

k 116 range EQ EQ EQ(EQA k 1 el (a),b) concat EQA(a,b, EQA k 1 el (a), EQA k 2 el (b) concat EQA k 1 el 13 mat stack : for

k 116 range EQ EQ EQ(EQA k 2 el (a),b) concat EQA(a,b, EQA k 2 el (a), EQA k 1 el (b) concat EQA k 2 el 13 mat stack : for

expr# x# isolate a# isfree diff a# x# AUXFS num2str 0 ≡ 11 line : a# b# f# i# EQA a# isfree f# b# EQ a# i# EQ if 11 line : a# b# c# f# i# j# EQB a# isfree b# isfree c# f# EQ b# i# EQ if b# isfree a# j# EQ c# f# EQ if if 11 line : a# b# c# EQ.plus a# b# c# a# b# + c# a# - c# b# - EQB 11 line : a# b# c# EQ.times a# b# c# a# b# * c# a# / c# b# / EQB 11 line : a# b# c# EQ.quotient a# b# c# a# b# / a# c# / c# b# * EQB 11 line : a# b# c# EQ.power a# b# c# a# b#^c# ln a# ln / c# b# nthroot EQB 11 line : ans# expr# equal2EQ : A# ans# 1 el numden : B# ans# 2 el numden : 13 mat ans# A# 1 el B# 2 el * A# 2 el B# 1 el * - 0 EQ EQ ApplyNERRules : a# b# EQ a# b# ≡ (: ans# 111 line :

With other method for isfree this can isolate for expressions, not only for variables.

expr# x# isol ans# expr# x# isolate equal2EQ : ans# 1 el num2str x# num2str ≡ ans# 2 el ans# 1 el ans# 2 el ≡ if 21 line :

t 80 :

P.1 0.93 :

P.2 0.88 :

P.c P.1 P.2 * :

P.c e λ.c2 t * -^≡

eq P.c λ.c2 t * - exp ≡ :

λ.c2 eq λ.c2 isol : #

λ.c2 10231250 / ln 80 / - : 0.0025

T.cp.c 1 λ.c2 / : 399.1935

Визначити граничний діаметр жирових шариків і кількість вершків відсепарованого молока, який відокремлюється в сепараторі продуктивністю

V.M 0.0014 :

якщо кутова швидкість барабану

ω 625 :

кількість тарілок

z 100 :

кут хилу тарілок утворюючої тарілки

α 45 :

R.min 42 :

R.max 125 :

густина молока

ρ.M 1024 :

густина жирових часток

ρ.g 900 :

динамічна в1язкість молока

μ 0.001 :

жирність молока

G.M 4.5 :

Жирність вершків

G.v 35 :

жирність відсепарованого молока

G.O 0.03 :

ККД сепаратора

Об1єм відсепарованого молока:

β 0.6 :

Кількість отриманих вершків з сепаратора визначається

P.v V.M ρ.M * G.M G.O - (* G.v G.O - / : 0.1832

From top of work sheet, you have solved for 'd' for any wild value of 'target'
All parameters exit, you can plot '± d' as scalar 'target = x'
By same token: rename maple tanα ... tan(α) target sol 215 sqrt z α tan * β * R.min 3^ρ.M ρ.g - (* R.max 3^ρ.M - ρ.g + (* + (* target * μ * sqrt * 5 z * α tan * β * R.min 3^ρ.M ρ.g - (* R.max 3^ρ.M * - R.max 3^ρ.g * + (* ω * / 215 sqrt z α tan * β * R.min 3^ρ.M ρ.g - (* R.max 3^ρ.M - ρ.g + (* + (* target * μ * sqrt * 5 z * α tan * β * R.min 3^ρ.M ρ.g - (* R.max 3^ρ.M * - R.max 3^ρ.g * + (* ω * / - 21 mat :

ω z α R.min R.max ρ.M ρ.g β μ 91 mat 62510045421251024900 0.6 0.001 91 mat

x sol 1 el x sol 2 el 2 1 sys

± d for user 'target =-10' 10 - sol 1 el 0.000000003118083 -

P d 2^ω 2^* z * α tan * R.min 3^R.max 3^- (* ρ.M ρ.g - (* β * 8.6 μ * / : #

f d 2^ω 2^* z * α tan * R.min 3^R.max 3^- (* ρ.M ρ.g - (* β * 8.6 μ * / :

P f - d solve maple # :

system d 2^ω 2^* z * α tan * R.min 3^R.max 3^- (* ρ.M ρ.g - (* β * 8.6 μ * / ≡

P d 2^system * - d solve maple # :

Граничний діаметр відокремлених жирових часток

d # :

Продуктивність тарілчатого сепаратора при безперервній роботі (м /с):

V.o V.M P.v 1000 / - : 0.0012