Вы отображаете неравенства с помощью команды inequal
из библиотеки plots
, и вы можете построить несколько уравнений, заключив их в квадратные скобки:
plots[inequal]([3x1+y+z<=180, x<=12, x+y+4z<=190])
Если указанная команда построения не поддерживает несколькографики, вы всегда можете создавать графики отдельно и комбинировать их с display
:
with(plots):
plot1 := inequal(3x1+y+z<=180):
plot2 := inequal(x<=12):
plot3 := inequal(x+y+4z<=190):
display([plot1, plot2, plot3])