:

 

N 3

R = 6378.16

Rr=R/1000

 

' Set A = p(0,Rr,0)

' Set B = p(0,0,Rr)

' Set C = p(Rr,0,0)

 

Set A = p(2.78,5.74,0)

Set B = p(2.78,0,5.74)

Set C = p(5.48,3.28,0)

 

Set D = p(0,0,0)

Set S = Sf_treug (A,B,C,D)

VBSMsg " S.x " & S.x

VBSMsg " S.y " & S.y

VBSMsg " S.z " & S.z

VBSMsg " D.x " & D.x

VBSMsg " D.y " & D.y

VBSMsg " D.z " & D.z

 

 

N 4 2-

//

 

R = 6378.16

Rr=R/1000

 

var A1 = p(-6.31,0.887, -1.306)

var A2 = p(1.54,-1.54, 5.993)

Krug.ss ( p(0,A1.y,0), A1.x, p(0,1,0)) // 20

n91 = LastNmb

var Pn = p(4.51, 4.51, 0)

var N = NormPlosk (p(0,0,0), A2,Pn)

Krug.ss (p(0,0,0), Rr, N)

n92 = LastNmb

//Otrezok.ss (p(0,0,0), p(0,5,0))

//n91 = LastNmb ()

//Otrezok.ss (p(5,0,5), p(5,5,-5))

//n92 = LastNmb ()

 

//Otrezok.ss (p(0,0,0), p(0,5,0))

//n91 = LastNmb ()

//Otrezok.ss (p(0,0,5), p(0,5,0))

//n92 = LastNmb ()

 

 

//

 

var p1 = Per_line (n91,n92)

Ngpoint.ss (p1)

text.ss (p1, "p1*")

 

 

Otrezok.ss (p(0,0,0), p(0,5,0))

n92 = LastNmb ()

Otrezok.ss (p(5,0,5), p(5,5,-5))

n91 = LastNmb ()

 

var p2 = Per_line (n91,n92)

Ngpoint.ss (p2)

text.ss (p2, "p2*")

 

Otrezok.ss (p1, p2)

 

 

N 5 ()

 

set A = p(3,6,0)

Set B = p(6,0, 0)

Set O = p(0,0, 0)

S = Ugol_dug (A,O,B)

VbsMsg "ugol = " & s