как внести правки в системе неравенств нескольких переменных - Mathematica - Ответ 7490047

@ManulRoo · Регистрация: 16.04.2015

Author24 — интернет-сервис помощи студентам

Доброго дня, форумчане. По образованию я химик, и могу сформулировать вопрос неверно, поправьте, если что.
Задача такова - создать смесь из масел и загустителя с известными характеристиками, в распоряжении 7 масел, вклад каждого параметра можно привести к аддитивному. С загустителем сложнее - каждый 1% заугустителя меняет, например, температуру затердевания на -1 градус. То есть если взять 99% масла с темп. затв. -30 и 1% загустителя - т. затв смеси будет -31; если т. затв. масла -50, то т. затв. смеси -51. То бишь аддитивным вкладом не учтешь. Решил проблему так:

Matlab M

sys0 = {visSN150*xSN150 + visSN350*xSN350 + visPAO3*xPAO3 + 
     visPAO4*xPAO4 + visPAO6*xPAO6 + visY4*xY4 + visY6*xY6 + 
     visZ*xZ <= (1/12.4),
    visSN150*xSN150 + visSN350*xSN350 + visPAO3*xPAO3 + 
     visPAO4*xPAO4 + visPAO6*xPAO6 + visY4*xY4 + visY6*xY6 + 
     visZ*xZ >= (1/12.7),
    tSN150*xSN150 + tSN350*xSN350 + tPAO3*xPAO3 + tPAO4*xPAO4 + 
     tPAO6*xPAO6 + tY4*xY4 + tY6*xY6 + tZ*xZ == -35,
    volSN150*xSN150 + volSN350*xSN350 + volPAO3*xPAO3 + 
     volPAO4*xPAO4 + volPAO6*xPAO6 + volY4*xY4 + volY6*xY6 < 
    13/(1 - xZ/100),
    xSN150 + xSN350 + xPAO3 + xPAO4 + xPAO6 + xY4 + xY6 == 1,
    xZ <= 15, xZ >= 0, xSN150 >= 0, xSN350 >= 0, xPAO3 >= 0, 
   xPAO4 >= 0, xPAO6 >= 0, xY4 >= 0, xY6 >= 0};

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

Matlab M

((xSN150 == 0 && 
     xSN350 == 0.1259) || (xSN150 + 1.74497 xSN350 <= 
      0.219692 && ((-0.234257 < xSN350 <= -0.234232 && 
         0.25 + xSN150 + 3.75 xSN350 > 0) || (-0.234232 < xSN350 <= 
          0.125872 && 
         xSN150 + 1.74497 xSN350 >= 0.219642) || (xSN350 > 0.125872 &&
          xSN350 < 0.1259 && xSN150 >= 0)))) && 
 xPAO6 == 1. - 1. xSN150 - 1. xSN350 && 
 xZ == 35. - 40. xPAO6 - 17. xSN150

Вопрос заключается в том, как привести систему неравенств на выходе к единому виду? Как изменить неравенства в системе так, чтобы сумма долей всех компонентов равнялась еденице?
На данном этапе сумма долей для масел равна еденице, а доля загустителя выражается в процентах по отношении к смеси масел. То есть сначала смешали масла, потом к смеси добавили загуститель до достижения нужного процента.
Или же стоит переделать исходную систему? Могу выложить полное условие задачи.

Вернуться к обсуждению:
как внести правки в системе неравенств нескольких переменных Mathematica

Другие темы раздела
Mathematica Функции Dynamic и DynamicModule Здравствуйте. Написал простенькую функцию реализации секундомера: Time := Block; m = IntegerPart/60]; If, sec = ToString]; If, sec = ToString]; Return; ]; Подскажите как реализовать кнопки "Сброс" и "Стоп" для секундомер DynamicModule}, {Button}, {Button}}]] https://www.cyberforum.ru/ mathematica/ thread1409606.html	Выделение действительной части функции, заданной в символьном виде Mathematica Есть следующее выражение (SqrtTanh] (1 + (e2 SqrtTanh])/(e3 Sqrt)))/e1 + (SqrtTanh])/e2 + Sqrt/e3 При выделении действительной части выдаёт ответ: ReTanh] (1 + (e2 SqrtTanh])/(e3 Sqrt)))/e1 + (SqrtTanh])/e2 + Sqrt/e3] Т.е. не выделяет действ. часть, а просто пишет, что её нужно выделить. Подскажите, пожалуйста, где при записи выражения я допустил ошибку?
Mathematica Преобразование выражение в формулу с символом суммирования (и/или произведения) https://www.cyberforum.ru/ mathematica/ thread1407007.html Всем добрый вечер! Вопрос такой. Если в результате вычислений получается что-нибудь типа k1+k2+k3+k4+k5, то есть ли функция в mathematica, которая преобразует такой ответ в общую формулу с символом суммирования? Т.е. сумма по ki, где пределы суммы от 1 до 5?	Mathematica Записать результат решения системы линейных уравнений в переменные Ув. формучане, подскажите пожалуйста. Я определяю систему линейных уравнений и решаю ее относительно I11, I22 и I33: system2 := {R11I11 + R12I22 + R13I33 == E11, R21I11 + R22I22 + R23I33 == E22, R31I11 + R32I22 + R33*I33 == E33} Solve В ответ получаю примерно следующее: {{I11 -> -1.68064, I22 -> -0.141156, I33 -> 0.180856}} Как результаты решения системы записать в эти... https://www.cyberforum.ru/ mathematica/ thread1400470.html
Mathematica Алгоритм поиска минимума функции 2-х переменных двумя разными методами требуется составить код нахождения минимума произвольной функции 2 переменных 2мя разными методами (деления отрезка пополам и золотым сечением) для деления отрезка пополам код должен быть примерно такой: In:= f := x1^2 + 2 x2^2 + x1*x2 - 7 x1 - 7 x2 In:= argmin := Module > f, b := s2, a := s1]; k++]; a] In:=	Mathematica Правильный код построении автокорреляционной функции Здравствуйте. Возникла проблема в правильном построении АКФ. для периодического сигнала данный код работает хорошо. Но для хаотических сигналов (системы Ресслера, Чуа) не дает нормальный экспоненциальный спад, как и для списка случайных чисел. Что я делаю не так? tmax = 10000; ttt = 100; dT = 0.1; n = IntegerPart (* Кол-во точек в интервале ) nn = IntegerPart ( Кол-во интервалов *)... https://www.cyberforum.ru/ mathematica/ thread1393086.html
Mathematica Switch и LocalizeVariables https://www.cyberforum.ru/ mathematica/ thread1391577.html Недавно начал изучать Mathematica, тренируюсь в освоении Manipulate и различными вкладками. Проблема в том что когда ставлю LocalizeVariables -> False или True, вывод ломается %-) я не понимаю почему. Или просто лучше так не делать? :D Просто идея была в том, чтобы потом использовать полученные данные. И как можно экспортировать в Excel, например таблицу Dataset, он всё в одну строку...	Mathematica Найти наибольшее и наименьшее значения функции двух переменных на области z={x}^{2}+xy-2 на области между y=4{x}^{2}-4 и осью ОХ Помогите пожалуйста найти значения для проверки письменного решения
Mathematica График ряда Фурье f(x)={8100, 0<x<100 8200 , 100<x<200 8300, 200<x<300 пробывала сама вроде получилось, только хочу построить теперь график чтобы посмотреть как он выглядит с помощью пакета mathematica не получается, выводит просто оси, ничего не рисует, может потому что ряд не сходиться, сходимость , сходимость тоже пыталась проверить в mathematica ничего не выдает, нуждаюсь в помощи, кто... https://www.cyberforum.ru/ mathematica/ thread1388196.html	Mathematica Где скачать программу Подскажите где можно скачать программу Mathematika для виндовса, а то я уже весь интернет обшарила? https://www.cyberforum.ru/ mathematica/ thread1385520.html
Mathematica Логарифмический масштаб Тему поместила сюда, т.к. работаю с OriginPro 8.5.1 В общем-то проблема почти никакая, но не могу разобраться :( Я построила график в логарифмическом масштабе по обеим осям и origin по МНК (надеюсь) приблизил график к прямой с конкретным коэффициентом наклона. по оси Υ ток размерности nA по оси Χ поток размерности 10^10 1/(cm^2) к-нт наклона = 0,75... но чего? как...	Mathematica Что делает кусок кода? https://www.cyberforum.ru/ mathematica/ thread1377755.html Изучаю Математику. Решаю систему Д.У. по шаблону. Код работает, но не совсем понимаю, что происходит нижних 4-ч строчках: Я прав, что точка - это приведение к числу? А вот что означает sol] и т.д.? http://s-pic.ru/i/108595.png

	16.04.2015, 23:48