[프로그램] splitor, sor. "or" 단위로 구분된 수식을 "리스트 / 매트릭스 / 변수 " 형태로 바꿈

Define LibPub splitor(expression)=
Prgm
:Local i,pos,prev_pos,num_or,len
:len:=dim(string(expression))
:num_or:=0
:prev_pos:=1
:
:While prev_pos≤len
:  pos:=inString(string(expression)," or ",prev_pos)
:  If pos=0 Then
:    Exit
:  Else
:    num_or:=num_or+1
:    prev_pos:=pos+4
:  EndIf
:EndWhile
:
:r.list:=newList(num_or+1)
:
:prev_pos:=1
:For i,1,num_or
:  pos:=inString(string(expression)," or ",prev_pos)
:  r.list[i]:=expr(mid(string(expression),prev_pos,pos-prev_pos))
:  expr("r.e"&string(i)&":=r.list["&string(i)&"]")
:  prev_pos:=pos+4
:EndFor
:
:r.list[num_or+1]:=expr(mid(string(expression),prev_pos,len-prev_pos+1))
:expr("r.e"&string(num_or+1)&":=r.list["&string(num_or+1)&"]")
:
:list▶mat(r.list,1)→r.matrix
:
:Disp "Number of 'or's: ",num_or
:Disp "Saved result as 'r.list' & 'r.matrix' & r.#num"
:Disp r.matrix
:
:EndPrgm

 

---

이 프로그램은 solve() 등에 의해 만들어진 수식(expression)에서 " or "을 기준으로 조건을 분리하고, 각 조건을 처리하여 결과를 저장하는 기능을 수행합니다. 프로그램의 각 부분을 이해하기 위해 다음과 같은 과정을 거칩니다:

1. 변수 초기화 및 설정:

   • len: 수식의 길이를 저장합니다.
   • num_or: " or "의 등장 횟수를 저장할 변수로 초기화합니다.
   • prev_pos: 수식을 검사할 때 사용할 시작 위치를 초기화합니다.

2. 'or' 등장 횟수 세기:

   • While 루프를 사용하여 수식을 처음부터 끝까지 검사합니다.
   • inString 함수를 사용하여 " or "의 등장 위치를 찾습니다.
   • 만약 등장 위치(pos)가 0이면, 더 이상 " or "이 없다는 것이므로 루프를 종료합니다.
   • 등장 횟수를 세는 num_or를 증가시키고, 다음 검색을 위해 prev_pos를 조정합니다.

3. 조건을 저장할 리스트 초기화:

   • newList 함수를 사용하여 조건을 저장할 r.list 리스트를 생성합니다.
   • 리스트의 크기는 " or "의 등장 횟수(num_or)에 1을 더한 값으로 설정합니다.

4. 각 조건을 리스트에 저장:

   • 다시 prev_pos를 1로 초기화하고 For 루프를 통해 각 " or "의 위치를 찾고, 해당 위치 이전부터 해당 위치까지의 부분 문자열을 추출합니다.
   • 추출한 부분 문자열을 expr 함수를 사용하여 식으로 변환하여 r.list 리스트의 해당 위치(i)에 저장합니다.
   • 다음 검색을 위해 prev_pos를 조정합니다.

5. 결과 저장 및 출력:

   • r.list 리스트를 list▶mat 함수를 사용하여 r.matrix라는 이름의 행렬로 변환하여 저장합니다.
   • r.e1, r.e2... 변수에 개별 원소를 저장합니다. 
   • 결과 출력을 위해 "Number of 'or's: "와 num_or의 값을 출력합니다.
   • "Saved result as 'r.list' & 'r.matrix'"와 r.matrix의 내용을 출력하여 최종 결과를 사용자에게 표시합니다.

이 프로그램은 주어진 수식에서 " or "을 기준으로 여러 조건을 분리하고, 이를 적절히 처리하여 결과를 출력하는 기능을 가지고 있습니다.

---

이 프로그램에서 사용된 함수들을 간략히 설명드리겠습니다:

1. dim(string(expression)):

   • dim 함수는 인자로 전달된 배열 또는 문자열의 차원을 반환합니다.
   • string(expression)은 수식을 문자열로 변환한 것이며, 이의 길이를 반환하여 수식의 전체 길이를 구합니다.

2. inString(string(expression), " or ", prev_pos):

   • inString 함수는 첫 번째 문자열에서 두 번째 문자열이 처음으로 나타나는 위치를 반환합니다.
   • string(expression)에서 " or "이라는 문자열이 prev_pos 위치부터 시작하여 처음 발견된 위치를 반환합니다.
   • 발견되지 않을 경우 0을 반환합니다.

3. newList(num_or + 1):

   • newList 함수는 주어진 크기(num_or + 1)로 새로운 리스트를 생성합니다.
   • 여기서는 " or "의 등장 횟수(num_or)에 1을 더한 크기로 리스트를 생성하여 조건들을 저장할 준비를 합니다.

4. mid(string(expression), prev_pos, pos - prev_pos):

   • mid 함수는 문자열에서 지정된 범위의 부분 문자열을 추출합니다.
   • string(expression)에서 prev_pos 위치부터 pos - prev_pos 길이만큼의 부분 문자열을 추출하여 각 조건을 식으로 변환합니다.

5. expr(...):

   • expr 함수는 문자열을 수식으로 변환하여 계산 가능한 형식으로 반환합니다.
   • 예를 들어, 문자열 "2 + 3"을 expr("2 + 3")으로 호출하면, 이는 숫자 5로 계산될 수 있습니다.
   • 프로그램에서는 수식을 문자열로 추출한 후 expr 함수를 사용하여 각 조건을 계산 가능한 형태로 변환합니다.

6. list▶mat(r.list, 1):

   • list▶mat 함수는 리스트를 행렬로 변환하는 함수입니다.
   • 여기서는 r.list 리스트를 1열로 행렬로 변환하여 r.matrix라는 이름의 행렬에 저장합니다.
   • 이는 계산 결과를 보다 보기 쉬운 구조화된 형태로 저장하기 위해 사용됩니다.

이 함수들은 프로그램에서 문자열 처리, 검색, 데이터 구조 변환 등 다양한 기능을 수행하는 데 사용되었습니다.

 

 

---

 

 

---

[추가] 댓글에 있는 것처럼 sor(expression) 함수를 추가하였습니다. 

코드만 다르고, 기능은 splitor(expression) 과 동일합니다. 

생성되는 결과 변수도 동일하기 때문에 서로가 서로의 결과를 덮어씌워 저장할 수 있습니다.