Mathematica의 데카르트 좌표계에서의 거리 계산

Question

화면상의 눈동자를 분석하기 위해 원점을 왼쪽 하단 구석 인 (그 시점에서 수정하기가 어렵습니다)으로 설정했습니다.

일부 지점과 화면 중앙 사이의 거리를 계산하려고하면 아래에 표시된 간단한 수식을 사용합니다. 문제는이 조건문을 사용하면 추한 것입니다.

Sqrt[ 
(
(fixationX - centerX)^2 + (fixationY - centerY)^2 
) 
] 

표준을 사용자 지정하여 점과 원점 사이가 아닌 점 사이의 거리를 계산하는 방법이 있습니까?

내 경우에는 현재 좌표계의 "중심"에 원점을 설정 하시겠습니까?

Answer 1

시몬의 방법에 약간의 변화가 아니라 글로벌 변수 ($Center) 이외의 기능에 디폴트 값을 사용하는 것이다.

myNorm[pos:{_, _}, center_:{5, 5}] := EuclideanDistance[pos, center] 

공지 사항 _:{5, 5}의 사용은 기본 값을 정의 할 수 :

(5 5), 다음 기본 원점은 가정하자.

myNorm[{5, 7}] 

(* Out[]= 2 *) 

또는 일시적 센터와 다른 사용 : 이제

당신이 할 수있는이 간단한 함수의

myNorm[{5, 7}, {8, 8}] 

(* Out[]= Sqrt[10] *) 

을 대신 두 번째 경우에 EuclideanDistance을 사용할 수 있지만 나는 희망 당신은이 방법의 유틸리티가 myNorm의 정의보다 복잡하다는 것을 알 수 있습니다.

이 방법의 단점은 기본 센터를 쉽게 변경할 수 없다는 것입니다.

Options[myNorm2] = {Center -> {5, 5}}; 

myNorm2[pos : {_, _}, OptionsPattern[]] := 
EuclideanDistance[pos, OptionValue[Center]] 

구문입니다 :

myNorm2[{5, 7}] 

myNorm2[{5, 7}, Center -> {8, 8}] 

2

Sqrt[10]

---

는

하나 쉽게 기본 중심을 변경할 수 않지만, 더 자세한 또 다른 변화는, Options가 사용하는 것입니다

기본값 변경 입력 :

SetOptions[myNorm2, Center -> {8, 8}]; 

myNorm2[{5, 7}] 

Sqrt[10]

Answer 2

당신은 EuclideanDistance

In[1]:= EuclideanDistance[{x,y}, {cx,cy}] 
Out[1]= Sqrt[Abs[-cx +x ]^2 + Abs[-cy + y]^2] 

를 사용하거나 $Center 새로운 CNorm, 예를 정의 할 수 있습니다

$Center = {cx, cy}; 
CNorm[pos:{x_, y_}] := EuclideanDistance[pos, $Center]