informa
clc
clear all
close(gcf);
disp('Objetosc czworoscianu i powierzchnia boczna');
p1=input('P1=');
p2=input('P2=');
p3=input('P3=');
p4=input('P4=');
w=[(p2-p1)' (p3-p1)' (p4-p1)'];
objetosc=abs(det(w))/2
s1=[p1' p2' p3' p1'];
s2=[p1' p2' p4' p1'];
s3=[p2' p3' p4' p2'];
s4=[p1' p3' p4' p1'];
fill3(s1(1,weso造,s1(2,weso造,s1(3,weso造,[1 0 0]);
hold on
fill3(s2(1,weso造,s2(2,weso造,s2(3,weso造,[0 1 0]);
fill3(s3(1,weso造,s3(2,weso造,s3(3,weso造,[0 0 1]);
fill3(s4(1,weso造,s4(2,weso造,s4(3,weso造,[1 1 0]);
grid
sciana1=abs(det(rot90([(p2-p1)' (p3-p1)' [1;1;1]])))/2
sciana2=abs(det(rot90([(p2-p1)' (p4-p1)' [1;1;1]])))/2
sciana3=abs(det(rot90([(p4-p1)' (p3-p1)' [1;1;1]])))/2
sciana4=abs(det(rot90([(p3-p2)' (p4-p2)' [1;1;1]])))/2


  PRZEJD NA FORUM