If K=24 or K=25 or K=26 or K=34 or K=7
	Then
		real(Z)+(K=26)-(K=24)+[i](imag(Z)+(K=25)-(K=34->|LTICAS(P
		For(I,1,P-1+(K!=7)(12-P
			If I!=P
			S+[G](I,P)(1/(1+abs(([G](I,P)>0 and I>1)20-abs(|LTICAS(I)-|LTICAS(P))))-(K!=7)/(1+abs(([G](I,P)>0 and I>1)20-abs(Z-|LTICAS(I->S
		End
	End