Advertisement
Guest User

Untitled

a guest
Apr 25th, 2019
104
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.97 KB | None | 0 0
  1. function hermit2(Pvec,Rvec,TWvec)
  2. %HERMIT Summary of this function goes here
  3. % Detailed explanation goes here
  4. Gx = [Pvec(1,1) Pvec(2,1) Rvec(2,1) Rvec(4,1);
  5. Pvec(3,1) Pvec(4,1) Rvec(6,1) Rvec(8,1);
  6. Rvec(1,1) Rvec(3,1) TWvec(1,1) TWvec(2,1);
  7. Rvec(5,1) Rvec(7,1) TWvec(3,1) TWvec(4,1)];
  8. Gy = [Pvec(1,2) Pvec(2,2) Rvec(2,2) Rvec(4,2);
  9. Pvec(3,2) Pvec(4,2) Rvec(6,2) Rvec(8,2);
  10. Rvec(1,2) Rvec(3,2) TWvec(1,2) TWvec(2,2);
  11. Rvec(5,2) Rvec(7,2) TWvec(3,2) TWvec(4,2)];
  12. Gz = [Pvec(1,3) Pvec(2,3) Rvec(2,3) Rvec(4,3);
  13. Pvec(3,3) Pvec(4,3) Rvec(6,3) Rvec(8,3);
  14. Rvec(1,3) Rvec(3,3) TWvec(1,3) TWvec(2,3);
  15. Rvec(5,3) Rvec(7,3) TWvec(3,3) TWvec(4,3)];
  16. s = 0:0.1:1;
  17. t = 0:0.1:1;
  18. S = [s.*s.*s;s.*s;s;ones(size(s))];
  19. T = [t.*t.*t;t.*t;t;ones(size(t))];
  20. M = [2 -3 0 1;-2 3 0 0;1 -2 1 0;1 -1 0 0];
  21. X = S'*M'*Gx*M*T;
  22. Y = S'*M'*Gy*M*T;
  23. Z = S'*M'*Gz*M*T;
  24. mesh(X,Y,Z)
  25. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement