Facebook

mesio safest cryptocurrency exchange

From arcio, 5 Years ago, written in Plain Text.
URL https://pastebin.pl/view/bd5d8534
Embed
Download Paste or View Raw
Hits: 191
  1. function [K] = MacierzSztywnosci3(E, A, Iz, l, s, c)
  2.  
  3. Ke = E*Iz/(l^3)*[A*l^2/Iz 0 0 -A*l^2/Iz 0 0;
  4.                 0 12 6*l 0 -12 6*l;
  5.                 0 6*l 4*l^2 0 -6*l 2*l^2;
  6.                 -A*l^2/Iz 0 0 A*l^2/Iz 0 0;
  7.                 0 -12 -6*l 0 12 -6*l;
  8.                 0 6*l 2*l^2 0 -6*l 4*l^2];
  9.  
  10. R = zeros(6,6);
  11.  
  12. R(1,1) = c;
  13. R(1,2) = s;
  14. R(2,1) = -s;
  15. R(2,2) = c;
  16. R(3,3) = 1;
  17. R(4,4) = c;
  18. R(4,5) = s;
  19. R(5,4) = -s;
  20. R(5,5) = c;
  21. R(6,6) = 1;
  22.  
  23. K = R'*Ke*R;
  24.  
  25. end
  26.  
  27.  

Reply to "mesio"