GMACRO
DISTANCIA
# Macro Global para Cálculo de Distância Generalizada
# Dados nas colunas C1 C2

K1 = 2   # Quantidade variáveis (p)
K2 = 10  # Tamanho amostra (n)

	# Calculo medias

Mean C2 K3
Mean C3 K4
Name K3 "Med1"
Name K4 "Med2"

	# Cálculo Matriz S

Covariance C2-C3 M1 
Name M1 "S"
	
	# Calculo Inversa de S

Invert M1 M2
Name M2 "Sinv"

	
	# Calculo Distancia generalizada

Let C5 = C2 - K3
Let C6 = C3 - K4
Name C5 "X1 - med1"
Name C6 "X2 - med2"
Copy C5 - C6 M3
Multiply M3 M2 M4
Copy M4 C7 - C8

Name C9 "dj^2"
Let C9 = C7*c5 + C8*c6

	# Ordenacao distancias

Name C10 "d(j)^2"
Sort C9 C10

	# Cálculo percentis qui-quadrado

Set C11
1(1:10/1)1
End.
Let C11 = (C11 - 1/2)/K2

Name C12 "qc,p((j-1/2)/10)"
InvCDF c11 c12;
ChiSquare K1.

	# Plot Qui-Quadrado

Plot c12*c10;
Title "Q-Q Plot das Distâncias Ordenadas"
Symbol.

ENDMACRO