30 lines
No EOL
349 B
Text
30 lines
No EOL
349 B
Text
Filename:S-SMAT
|
|
ClrList1
|
|
If T=0
|
|
Then 1->T
|
|
IfEnd
|
|
If V=0
|
|
Then 1->V
|
|
IfEnd
|
|
0->L
|
|
1->R
|
|
Do
|
|
L+1->L
|
|
If T=2
|
|
Then If Abs (Mat S[V,L]-N)<=Abs (D)
|
|
Then L->List 1[R]
|
|
R+1->R
|
|
IfEnd
|
|
IfEnd
|
|
If T=1
|
|
Then If Abs (Mat S[L,V]-N)<=Abs (D)
|
|
Then L->List 1[R]
|
|
R+1->R
|
|
IfEnd
|
|
IfEnd
|
|
Dim Mat S
|
|
LpWhile L<List Ans[T]
|
|
If X=1
|
|
Then 0->List 1[R]
|
|
IfEnd
|
|
Return |