Advertisement
Guest User

Untitled

a guest
Mar 21st, 2019
59
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
MatLab 1.03 KB | None | 0 0
  1. function [x1, x2] = count(v1, v2)
  2.     x1 = sum(v1 .* v2)
  3.     x2 = [v1(2)*v2(3)-v1(3)*v2(2), v1(3)*v2(1)-v1(1)*v2(3), v1(1)*v2(2)-v1(2)*v2(1)]
  4. end
  5.  
  6.  
  7. function[] = zadanie1(v1, v2)
  8.     [dot, cross] = count(v1, v2)
  9.  
  10.     hold on;
  11.     axis equal;
  12.     plot3([0;v1(1)], [0;v1(2)], [0;v1(3)], 'r');
  13.     plot3([0;v2(1)], [0;v2(2)], [0;v2(3)], 'b');
  14.     plot3([0;cross(1)], [0;cross(2)], [0;cross(3)], 'g');
  15. end
  16.  
  17.  
  18. function[] = zadanie2(A1, B1, C1, A2, B2, C2, x0, x1, xp, yp)
  19.     osX = linspace(x0, x1);
  20.     Y1 = (A1 * osX + C1) / (-B1);
  21.     Y2 = (A2 * osX + C2) / (-B2);
  22.    
  23.     hold on;
  24.     axis equal;
  25.     plot(osX, Y1);
  26.     plot(osX, Y2);
  27.    
  28.     if det([A1, B1; A2, B2]) == 0
  29.         display("Proste są równoległe.");
  30.     end
  31.    
  32.     if A1*A2 + B1*B2 == 0
  33.         display("Proste sa prostopadłe.");
  34.     end
  35.    
  36.     if det([A1, B1; A2, B2]) ~= 0
  37.         display("Proste się przecinają.");
  38.     end
  39.    
  40.     if det([A1, B1; A2, B2]) == det([A1, C1; A2, C2])
  41.         display("Proste sie pokrywają");
  42.     end
  43. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement