Как совместить две графики в Mathematica - PullRequest
Новая
       16

Как совместить две графики в Mathematica

0 голосов
/ 16 мая 2018

Итак, у меня есть задача, где мне нужно сделать график, который показывает, как меняется объем воды в сосуде в зависимости от уровня воды внутри.Picture of vessel, consisting of one cilinder and two conuses

Я нашел формулы (H R), сделал 2 графика и соединил их, но между ними есть пробел.Что может быть не так? 

p1 = Plot[
  L*1/2*R^2*(2*ArcCos[(R - λ)/R] - Sin[2*ArcCos[(R - λ)/R]]) + 
  2/3*R^2*l*(ArcCos[(R - λ)/R] - 2*Sin[ArcCos[(R - λ)/R]]*
  Cos[ArcCos[(R - λ)/R]] + Cos[ArcCos[(R - λ)/R]]^3*
  Log[Tan[ArcCos[(R - λ)/R]/2 + \[Pi]/4]]) /. H -> λ, {λ, 0, 2 R}];
p2 = Plot[
  L*Pi*R^2 - L*(1/2*R^2*(2*ArcCos[(λ - R)/R] - 
  Sin[2*ArcCos[(λ - R)/R]])) + 2/3*l*Pi*R^2 - 
  1/3*R^2*l*(ArcCos[(λ - R)/R] - 2 Sin[ArcCos[(λ - R)/R]] *
  Cos[ArcCos[(λ - R)/R]] + Cos[ArcCos[(λ - R)/R]]^3*
  Log[Tan[ArcCos[(λ - R)/R]/2 + \[Pi]/4]]) /. H -> λ, {λ, 0, 2 R}];
Show[p1, p2, PlotRange -> Automatic]]

(извините, я не знаю, как я могу поместить этот код более красивым способом)

И в результате у меня есть такойграфика the graphic

1 Ответ

0 голосов
/ 16 мая 2018

Если я попытаюсь 

Limit[{firstexpr,secondexpr}, λ->R]

, чтобы увидеть, каково каждое из ваших выражений, поскольку лямбда приближается к R (я сделал это, потому что простая замена через λ->R заканчивается нулем * бесконечность), тогда яfind 

{1/6(2 l+3 L) Pi R^2, 1/6(3 l+3 L) Pi R^2}

Итак ... Я предполагаю, что у вас есть крошечная опечатка в одном или другом из этих выражений.Это потенциально может объяснить разрыв в вашем графике.

Отсюда вы можете отследить и найти недостаток?

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

...