Заметки
Структура
Paleomagnetic Counter
Угол между двумя векторами
Нормаль к двум векторам
Широта места из наклонения намагниченности
Наклонение намагниченности из широты места
Декартовы координаты из сферических
Сферические координаты из декартовых
Древние координаты из современных
Современные координаты из древних
Залегания пласта из координат вектора в древней и современной
системах координат
Палеомагнитный полюс из координат места и направления
вектора намагниченности
Направление вектора намагниченности из координат места и
палеомагнитного полюса
Радиус круга доверия из кучности и объема выборки
Кучность из радиуса круга доверия и объема выборки
Объем выборки из кучности и радиуса круга доверия
Угол между двумя векторами
Data: D1, I1, D2, I2
Result: j
Formulas:
1. D1, I1, R1=1 ⇒ x1, y1, z1
2. D2, I2, R2=1 ⇒ x2, y2, z2
3. cosj = x1.x2 + y1y2 + z1z2
Pascal listing:
di2xyz(Decl1,Incl1,x1,y1,z1);
di2xyz(Decl2,Incl2,x2,y2,z2);
Angle:=ArcCosDeg(x1*x2+y1*y2+z1*z2);
Нормаль к двум векторам
Data: D1, I1, D2, I2
Result: DN, IN
Formulas:
1. D1, I1 ⇒ x1, y1, z1
2. D2, I2 ⇒ x2, y2, z2
3. xN =y1 * z2 – y2 * z1
yN = z1 * x2 – z2 * x1
zN = x1 * y2 – x2 * y1
4. xN, yN, zN ⇒ DN, IN
Pascal listing:
di2xyz(Decl1,Incl1,x1,y1,z1);
di2xyz(Decl2,Incl2,x2,y2,z2);
xN:= y1 * z2 – y2 * z1;
yN:= z1 * x2 – z2 * x1;
zN:= x1 * y2 – x2 * y1;
xyz2di(xN,yN,zN,DeclN,InclN);
Широта места из наклонения намагниченности
Data: I
Result: j
Formulas:
tg(j) = 2*tg(I)
Pascal listing:
Lat:=ArcTanDeg(2*TanDeg(I));
Наклонение намагниченности из широты места
Data: D1, I1, D2, I2
Result: j
Formulas:
1. D1, I1, R1=1 ⇒ x1, y1, z1
2. D2, I2, R2=1 ⇒ x2, y2, z2
3. cosj = x1.x2 + y1y2 + z1z2
Pascal listing:
di2xyz(Decl1,Incl1,x1,y1,z1);
di2xyz(Decl2,Incl2,x2,y2,z2);
Angle:=ArcCosDeg(x1*x2+y1*y2+z1*z2);
Декартовы координаты вектора из сферических
Data: D, I
Result: X, Y, Z
Formulas:
1. X = cos(I) cos(D)
2. Y = cos(I) sin(D)
3. Z = sin(I)
Pascal listing:
x:=CosDeg(I)*CosDeg(D);
y:=CosDeg(I)*SinDeg(D);
z:=SinDeg(I);
Сферические координаты вектора из декартовых
Data: X, Y, Z
Result: D, I
Formulas:
1. p = Sqrt(X2+Y2)
2. R = Sqrt(X2+Y2 +Z2)
3. D = ArcCosDeg(X/p) Sign(Y)
4. I = ArcSinDeg(Z/R)
Pascal listing:
P:=Sqrt(X*X+Y*Y);
R:=Sqrt(X*X+Y*Y+Z*Z);
D:=ArcCosDeg(X/P)*Sign(Y);
I:=ArcSinDeg(Z/R);
SQRT – функция, вычисляющая корень числа
Data: X
Result: Y
Formulas:
Y = Sqrt(X)
Pascal listing:
Y:=Sqrt(Y);
SIN, SINDEG – функции, вычисляющие синус угла
Data: X
Result: Y
Formulas:
Y = Sin(X) X – угол в радианах
Y = SinDeg(X) X – угол в градусах
Pascal listing:
Y:=Sin(Y);
Y:=SinDeg(Y);
ARCSIN, ARCSINDEG – функции, вычисляющие арксинус угла
Data: X
Result: Y
Formulas:
Y = ArcSin(X) Y – угол в радианах
Y = ArcSinDeg(X) Y – угол в градусах
Pascal listing:
Y:=ArcSin(X);
Y:=ArcSinDeg(X);
ARCCOS, ARCCOSDEG – функции, вычисляющие арккосинус угла
Data: X
Result: Y
Formulas:
Y = ArcCos(X) Y – угол в радианах
Y = ArcCosDeg(X) Y – угол в градусах
Pascal listing:
Y:=ArcCos(X);
Y:=ArcCosDeg(X);
ARCTAN, ARCTANDEG – функции, вычисляющие арктангенс угла
Data: X
Result: Y
Formulas:
Y = ArcTan(X) Y – угол в радианах
Y = ArcTanDeg(X) Y – угол в градусах
Pascal listing:
Y:=ArcTan(X);
Y:=ArcTanDeg(X);
COS, COSDEG – функции, вычисляющие косинус угла
Data: X
Result: Y
Formulas:
Y = Cos(X) X – угол в радианах
Y = CosDeg(X) X – угол в градусах
Pascal listing:
Y:=Cos(Y);
Y:=CosDeg(Y);
TAN, TANDEG – функции, вычисляющие тангенс угла
Data: X
Result: Y
Formulas:
Y = Tan(X) X – угол в радианах
Y = TanDeg(X) X – угол в градусах
Pascal listing:
Y:=Tan(Y);
Y:=TanDeg(Y);
SIGN – функция, вычисляющая знак числа
Data: X
Result: Y
Formulas:
Y = Sign(X) Y =    1,  если X  больше или равно 0
Y = – 1,  если X меньше 0
Pascal listing:
Y:=Sign(X);