Нахождение реальных значений параметра t, для которых x имеет решение, используя графики в R

Question

Рассматриваемая проблема: https://imgur.com/a/SsGUjkW

Уравнение, о котором идет речь: x ^ 2 + 4sqrt (tx) + t ^ 2 = 0

Я решил это уравнение вручную, и язнаю, что t = 0 и x = 0 единственная проблема в том, что я не знаю, как построить это уравнение в R, так как оно имеет 2 неизвестных.

кривая (x ^ 2 + 4 * sqrt (x * y) + y ^ 2), но это не сработало.

Answer 1

Вы можете использовать растровую диаграмму, чтобы прояснить, что функция увеличивается только от нуля. Вы также можете иметь отрицательные значения t и x, хотя это также будет симметрично с этой стороны.

foo <- function(x, t) x ^ 2 + 4 * sqrt(t * x) +  t ^ 2
df <- data.frame(
  x = rep(seq(0, 40, by = 1), times = 41),
  t = rep(seq(0, 40, by = 1), each = 41)
)
df$z <- foo(df$x, df$t)

library(ggplot2)
ggplot(df) +
  geom_raster(aes(x = x, y = t, fill = z)) +
  scale_fill_viridis_c()