blob: 546c6babd681935a1911211a7fed58dcbc8b04bc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
//Developed in Windows 7 Operating system 64-bit
//Platform Scilab 6.0.0
clc;clear;
//Example 1.2
//Find the angle between the face diagonals of a cube
//Given data
a=[1 0 1]; // Vector A=1x^+0y^+1z^
b=[0 1 1]; // Vector B=0x^+1y^+1z^
amod=sqrt(a(1)^2+a(2)^2+a(3)^2);
bmod=sqrt(b(1)^2+b(2)^2+b(3)^2);
//Calculation
c=a.*b;
dot=0;
for i=1:3
dot=dot+c(i);
end
theta=acosd(dot/(amod*bmod));
disp(theta,'Angle(Dg.) betwen the face diagonals of a cube is : ')
|
