Forum Eks Grupy…

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,,s1(2,,s1(3,,[1 0 0]);
hold on
fill3(s2(1,,s2(2,,s2(3,,[0 1 0]);
fill3(s3(1,,s3(2,,s3(3,,[0 0 1]);
fill3(s4(1,,s4(2,,s4(3,,[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