kougaku-navi.hatenablog.com

clear; close all; p0 = [100, 0, 0]'; p1 = [0, 100, 0]'; p2 = [0, 0, 100]'; p0x = p0(1); p0y = p0(2); p0z = p0(3); p1x = p1(1); p1y = p1(2); p1z = p1(3); p2x = p2(1); p2y = p2(2); p2z = p2(3); %干渉面F n = [0,0,1]'; P = [0,0,50]'; %交点Q0: …