Как добавить дополнительное направление движения в функцию persp ()? - PullRequest
Новая
       6

Как добавить дополнительное направление движения в функцию persp ()?

0 голосов
/ 22 ноября 2018

Добрый вечер всем.Я пытаюсь написать функцию гистограммы, которая показывает заданную гистограмму в 3D.Также я могу применять только функцию persp () вместе с решеткой.Проблема в том, что у нас определены тэта и фи, я также хотел бы добавить дополнительный гамма-параметр, который вращает объект по умолчанию.Я хотел бы получить форму функции: 

    hist3d(X, alpha, beta, gamma, v1, v2)

Моя функция в настоящее время выглядит следующим образом: 

    hist3d <- function(X, alpha, beta, gamma, v1, v2) 
     {        
      l1 <- length(X$v1)
      l2 <- length(X$v2) 

      x1r <- range(X$v1)
      x1seq <- seq(x1r[1], x1r[2], length=l1)
      x2r <- range(X$v2)
      x2seq <- seq(x2r[1], x2r[2], length=l2)

      z <- outer(x1seq, x2seq)

      persp(x=x1seq, y=x2seq, z=z, theta=alpha, phi=beta)
     }

Должен ли я использовать диагональную формулу шестигранника для тэты и фи? 

     gamma <- ((alpha*sqrt(2))/(beta*sqrt(2))

Может кто-нибудь помочь мне с советами, как его применить?

...