pell equation matrix solution for paper

A forum for HLA users and Randall Hyde's (original) Art of Assembly Language Book
fffefd
Posts: 25
Joined: Wed Jan 18, 2023 1:54 pm

pell equation matrix solution for paper

Post by fffefd »

my paper solution on endlesshacker.com be erased by server keeper,
so i decide to move the remain solution to hla.
fffefd
Posts: 25
Joined: Wed Jan 18, 2023 1:54 pm

even be banned

Post by fffefd »

now even be banned by endlesshacker.com,
i only publish word.
iran math olympiad's x just = france x86s hacker's rax,
number body succession failure.
fffefd
Posts: 25
Joined: Wed Jan 18, 2023 1:54 pm

pell equation matrix solution table

Post by fffefd »

0_(0,0,0)_(1,-1,0)_(0,0,0)_(-1,1,0)
1_(1,0,0)_(2,-1,0)_(-1,0,0)_(-2,1,0)
2_(1,2)*2_(2,-2)*2_(-1,-2)*2_(-2,2)*2
3_(1,1)*2_(2,-4)*2_(-1,-1)*2_(-2,4)*2
4_(2,0,0)_(3,-1,0)_(-2,0,0)_(-3,1,0)
5_(2,4)*2_(3,-1,0)_(-2,-4)*2_(-3,1,0)
6_(2,2)*2_(3,-2)*2_(-2,-2)*2_(-3,2)*2
7_(2,1,1)*2_(3,-3)*2_(-2,-1,-1)*2_(-3,3)*2
8_(2,1)*2_(3,-6)*2_(-2,-1)*2_(-3,6)*2
9_(3,0,0)_(4,-1,0)_(-3,0,0)_(-4,1,0)
10_(3,6)*2_(4,-1,0)_(-3,-6)*2_(-4,1,0)
11_(3,3)*2_(4,-1,0)_(-3,-3)*2_(-4,1,0)
12_(3,2)*2_(4,-2)*2_(-3,-2)*2_(-4,2)*2
13_(3,1,1)*4_(4,-1,-1)*4_(-3,-1,-1)*4_(-4,1,1)*4
14_(3,1,2)*2_(4,-4)*2_(-3,-1,-2)*2_(-4,4)*2
15_(3,1)*2_(4,-8)*2_(-3,-1)*2_(-4,8)*2
16_(4,0,0)_(5,-1,0)_(-4,0,0)_(-5,1,0)
17_(4,8)*2_(5,-1,0)_(-4,-8)*2_(-5,1,0)
18_(4,4)*2_(5,-1,0)_(-4,-4)*2_(-5,1,0)
19_(4,2,1,3)*2_(5,-1,0)_(-4,-2,-1,-3)*2_(-5,1,0)
20_(4,2)*2_(5,-2)*2_(-4,-2)*2_(-5,2)*2
21_(4,1,1,2)*2_(5,-2,-2)*2_(-4,-1,-1,-2)*2_(-5,2,2)*2
22_(4,1,2,4)*2_(5,-3,-4)*2_(-4,-1,-2,-4)*2_(-5,3,4)*2
23_(4,1,3)*2_(5,-5)*2_(-4,-1,-3)*2_(-5,5)*2
24_(4,1)*2_(5,-10)*2_(-4,-1)*2_(-5,10)*2
25_(5,0,0)_(6,-1,0)_(-5,0,0)_(-6,1,0)
26_(5,10)*2_(6,-1,0)_(-5,-10)*2_(-6,1,0)
27_(5,5)*2_(6,-1,0)_(-5,-5)*2_(-6,1,0)
28_(5,3,2)*2_(6,-1,0)_(-5,-3,-2)*2_(-6,1,0)
29_(5,2,1)*4_(6,-1,0)_(-5,-2,-1)*4_(-6,1,0)
30_(5,2)*2_(6,-2)*2_(-5,-2)*2_(-6,2)*2
31_(5,1,1,3,5)*2_(6,-2,-3,-5)*2_(-5,-1,-1,-3,-5)*2_(-6,2,3,5)*2 /*left unique legendary*/
32_(5,1,1)*2_(6,-3)*2_(-5,-1,-1)*2_(-6,3)*2
33_(5,1,2)*2_(6,-4)*2_(-5,-1,-2)*2_(-6,4)*2
34_(5,1,4)*2_(6,-6)*2_(-5,-1,-4)*2_(-6,6)*2
35_(5,1)*2_(6,-12)*2_(-5,-1)*2_(-6,12)*2
36_(6,0,0)_(7,-1,0)_(-6,0,0)_(-7,1,0)
37_(6,12)*2_(7,-1,0)_(-6,-12)*2_(-7,1,0)
38_(6,6)*2_(7,-1,0)_(-6,-6)*2_(-7,1,0)
39_(6,4)*2_(7,-1,0)_(-6,-4)*2_(-7,1,0)
40_(6,3)*2_(7,-1,0)_(-6,-3)*2_(-7,1,0)
41_(6,2)*4_(7,-1,0)_(-6,-2)*4_(-7,1,0)
42_(6,2)*2_(7,-2)*2_(-6,-2)*2_(-7,2)*2
43_(6,1,1,3,1,5)*2_(7,-2,-3,-1,-5)*2_(-6,-1,-1,-3,-1,-5)*2_(-7,2,3,1,5)*2
44_(6,1,1,1,2)*2_(7,-2,-1,-2)*2_(-6,-1,-1,-1,-2)*2_(-7,2,1,2)*2
45_(6,1,2,2)*2_(7,-3,-2)*2_(-6,-1,-2,-2)*2_(-7,3,2)*2
46_(6,1,3,1,1,2,6)*2_(7,-4,-1,-1,-2,-6)*2_(-6,-1,-3,-1,-1,-2,-6)*2_(-7,4,1,1,2,6)*2
47_(6,1,5)*2_(7,-7)*2_(-6,-1,-5)*2_(-7,7)*2
48_(6,1)*2_(7,-14)*2_(-6,-1)*2_(-7,14)*2
49_(7,0,0)_(8,-1,0)_(-7,0,0)_(-8,1,0)
50_(7,14)*2_(8,-1,0)_(-7,-14)*2_(-8,1,0)
51_(7,7)*2_(8,-1,0)_(-7,-7)*2_(-8,1,0)
52_(7,4,1,2)*2_(8,-1,0)_(-7,-4,-1,-2)*2_(-8,1,0)
53_(7,3,1)*4_(8,-1,0)_(-7,-3,-1)*4_(-8,1,0)
54_(7,2,1,6)*2_(8,-1,0)_(-7,-2,-1,-6)*2_(-8,1,0)
55_(7,2,2)*2_(8,-1,0)_(-7,-2,-2)*2_(-8,1,0)
56_(7,2)*2_(8,-2)*2_(-7,-2)*2_(-8,2)*2
57_(7,1,1,4)*2_(8,-2,-4)*2_(-7,-1,-1,-4)*2_(-8,2,4)*2
58_(7,1,1,1)*4_(8,-1,-1,-1)*4_(-7,-1,-1,-1)*4_(-8,1,1,1)*4
59_(7,1,2,7)*2_(8,-3,-7)*2_(-7,-1,-2,-7)*2_(-8,3,7)*2
60_(7,1,2)*2_(8,-4)*2_(-7,-1,-2)*2_(-8,4)*2
61_(7,1,4,3,1,2)*4_(8,-1,-4,-3,-1,-2)*4_(-7,-1,-4,-3,-1,-2)*4_(-8,1,4,3,1,2)*4
62_(7,1,6)*2_(8,-8)*2_(-7,-1,-6)*2_(-8,8)*2
63_(7,1)*2_(8,-16)*2_(-7,-1)*2_(-8,16)*2
64_(8,0,0)_(9,-1,0)_(-8,0,0)_(-9,1,0)
65_(8,16)*2_(9,-1,0)_(-8,-16)*2_(-9,1,0)
66_(8,8)*2_(9,-1,0)_(-8,-8)*2_(-9,1,0)
67_(8,5,2,1,1,7)*2_(9,-1,0)_(-8,-5,-2,-1,-1,-7)*2_(-9,1,0)
68_(8,4)*2_(9,-1,0)_(-8,-4)*2_(-9,1,0)
69_(8,3,3,1,4)*2_(9,-1,0)_(-8,-3,-3,-1,-4)*2_(-9,1,0)
70_(8,2,1,2)*2_(9,-1,0)_(-8,-2,-1,-2)*2_(-9,1,0)
71_(8,2,2,1,7)*2_(9,-1,0)_(-8,-2,-2,-1,-7)*2_(-9,1,0)
72_(8,2)*2_(9,-2)*2_(-8,-2)*2_(-9,2)*2
73_(8,1,1,5)*4_(9,-1,-1,-5)*4_(-8,-1,-1,-5)*4_(-9,1,1,5)*4
74_(8,1,1)*4_(9,-1,-1)*4_(-8,-1,-1)*4_(-9,1,1)*4
75_(8,1,1)*2_(9,-3)*2_(-8,-1,-1)*2_(-9,3)*2
76_(8,1,2,1,1,5,4)*2_(9,-3,-1,-1,-5,-4)*2_(-8,-1,-2,-1,-1,-5,-4)*2_(-9,3,1,1,5,4)*2
77_(8,1,3,2)*2_(9,-4,-2)*2_(-8,-1,-3,-2)*2_(-9,4,2)*2
78_(8,1,4)*2_(9,-6)*2_(-8,-1,-4)*2_(-9,6)*2
79_(8,1,7)*2_(9,-9)*2_(-8,-1,-7)*2_(-9,9)*2
80_(8,1)*2_(9,-18)*2_(-8,-1)*2_(-9,18)*2
//only if japan tax number 10.
//only if mikado student 2.29.
//only if kyoto prince/ss unreal number.
//only if japan sea error number.
Last edited by fffefd on Wed Mar 20, 2024 2:37 am, edited 19 times in total.
fffefd
Posts: 25
Joined: Wed Jan 18, 2023 1:54 pm

continued fraction sub solution table for matrix solution, hla cmd exe

Post by fffefd »

//food eye, silver 1/1.
[1;1,1]:4/3,10/7,16/11,22/15,
[1;2,1]:6/5,10/8,14/11,18/14,22/17,
[1;3,1]:8/7,18/15,
[1;4,1]:10/9,16/14,22/19,
[1;5,1]:12/11,
[1;6,1]:14/13,22/20,
[1;n,1]:2(n+1)/(2n+1),
jnp 2(2n+3)/(4n+3), inc(k) [2n(1+k)+2(1+2k)]/[2n(1+k)+(1+2k)].
jp (3n+4)/(3n+2), inc(k) [n(2+k)+2(1+k)]/[n(2+k)+(1+k)].

[2;2,2]=12/5. 14/6. 26/11. 38/16. 50/21. 62/26.
[2;4,2]=20/9. 24/11. 44/20.
[2;6,2]=28/13. 34/16. 62/29.
[2;8,2]=36/17. 44/21.
[2;10,2]=44/21. 54/26.

[3;3,3]=33/10. 36/11.

[3;1,3]=15/4. 26/7. 56/15.
[3;2,3]=24/7. 10/3. 34/10. 58/17.

[4;2,4]=40/9. 22/5. 62/14.

/* -[1;n,1] */

-[2;2,2]=-12/5. -10/4. -22/9. -34/14. -46/19. -58/24.
-[2;4,2]=-20/9. -16/7. -36/16. -56/25.
-[2;6,2]=-28/13. -22/10. -50/23.
-[2;8,2]=-36/17. -28/13. -64/30.
-[2;10,2]=-44/21. -34/16.
-[2;12,2]=-52/25. -40/19.
-[2;14,2]=-60/29. -46/22.
-[2;16,2]=-68/33. -52/25.
-[2;18,2]=-76/37. -58/28.
-[2;20,2]=-84/41. -64/31.

-[3;3,3]=-33/10. -30/9.

-[3;1,3]=-15/4. -34/9. -64/17.
-[3;2,3]=-24/7. -14/4. -38/11. -62/18.
-[3;4,3]=-42/13. -10/3. -52/16.

-[4;2,4]=-40/9. -18/4. -58/13.

//extra eye 00, silver 1/2.
[1;1,1]:4/3.
[1;2,1]:6/5.
[1;3,1]:8/7.
[1;4,1]:10/9.
[1;5,1]:12/11.
[1;6,1]:14/13.
[1;n,1]:(2n+2)/(2n+1).

[2;2,2]:14/6.
[2;4,2]:24/11.
[2;6,2]:34/16.
[2;8,2]:44/21.
[2;10,2]:54/26.
[2;2n,2]:(10n+4)/(5n+1).

[3;2,3]:10/3.
[3;5,3]:22/7.
[3;8,3]:34/11.
[3;11,3]:46/15.
[3;14,3]:58/19.
[3;3n-1,3]:(12n-2)/(4n-1).

-[2;2,2]:-10/4.
-[2;4,2]:-16/7.
-[2;6,2]:-22/10.
-[2;8,2]:-28/13.
-[2;10,2]:-34/16.
-[2;12,2]:-40/19.
-[2;14,2]:-46/22.
-[2;16,2]:-52/25.
-[2;18,2]:-58/28.
-[2;20,2]:-64/31.
-[2;2n,2]:-(6n+4)/(3n+1).

-[3;4,3]:-10/3.
-[3;7,3]:-16/5.
-[3;10,3]:-22/7.
-[3;13,3]:-28/9.
-[3;16,3]:-34/11.
-[3;19,3]:-40/13.
-[3;22,3]:-46/15.
-[3;25,3]:-52/17.
-[3;28,3]:-58/19.
-[3;31,3]:-64/21.
-[3;3n+1,3]:-(6n+4)/(2n+1).

//extra eye 01, silver 1/4.
-[2;2,2]:-10/4.
-[3;2,3]:-14/4.
-[4;2,4]:-18/4.
-[5;2,5]:-22/4.
-[6;2,6]:-26/4.
-[7;2,7]:-30/4.
-[8;2,8]:-34/4.
-[9;2,9]:-38/4.
-[10;2,10]:-42/4.
-[11;2,11]:-46/4.
-[12;2,12]:-50/4.
-[13;2,13]:-54/4.
-[14;2,14]:-58/4.
-[15;2,15]:-62/4.
-[n;2,n]:-(4n+2)/4.

//reserved paper used up, consider reserved disk.

//extra eye 02, silver 1/8.
#include("math.hhf")
static
base:enum;count;length;

1:{2,1};2;3;
2:{4,2,1};3;5;
3:{6,3,2,1};4;11;
4:{8,4,3,2,1};5;7;
5:{10,5,4,3,2,1};6;11;
6:{12,6,5,4,3,2,1};7;13;
7:{14,7,6|4,3,2,1};7;23;
8:{16,8,7|5,4,3,2,1};8;15;
9:{18,9,8|6,5,4,3,2,1};9;23;
10:{20,10,9|6,5,4,3,2,1};9;31;
11:{22,11,10|7,6,5,4,3,2,1};10;19;
12:{24,12,11|8,7,6,5,4,3,2,1};11;35;
13:{26,13,12|8|6,5,4,3,2,1};10;43;
14:{28,14,13|9,8,7,6,5,4,3,2,1};12;27;
15:{30,15,14|10,9|7,6,5,4,3,2,1};12;35;
16:{32,16,15|10|8,7,6,5,4,3,2,1};12;43;
17:{34,17,16|11,10|8,7,6,5,4,3,2,1};13;35;
18:{36,18,17|12,11|9,8,7,6,5,4,3,2,1};14;39;
19:{38,19,18|12|9,8,7,6,5,4,3,2,1};13;47;
20:{40,20,19|13,12|10,9,8,7,6,5,4,3,2,1};15;75;
21:{42,21,20|14,13|10,9,8,7,6,5,4,3,2,1};15;51;
22:{44,22,21|14|11,10|8,7,6,5,4,3,2,1};14;41;
23:{46,23,22|15,14|11,10,9,8,7,6,5,4,3,2,1};16;79;
24:{48,24,23|16,15|12,11|9,8,7,6,5,4,3,2,1};16;67;
25:{50,25,24|16|12..1};16;79;
26:{52,26,25|17,16|13,12|10..1};17;31;
27:{54,27,26|18,17|13,12|10|8..1};16;75;
28:{56,28,27|18|14,13|11..1};17;59;
29:{58,29,28|19,18|14,13|11..1};18,53;
30:{60,30,29|20,19|15,14|12..1};19;67;
31:{62,31,30|20|15,14|12..1};18;99;

n:{2n,n,n-1}+{2n/3,2n/3-1}+{n/2,n/2-1}&{n/2..1};{3+1+n/2}|{2n/3};{n,2n,3n,4n};
hla:and &;not !;or |;xor ^;
Last edited by fffefd on Wed Feb 14, 2024 9:45 am, edited 28 times in total.
fffefd
Posts: 25
Joined: Wed Jan 18, 2023 1:54 pm

draft for continued fraction sub solution, hla hide project dll

Post by fffefd »

[1;1,1]=3/2. (3+1)/(2+1)=4/3. (4+3*2)/(3+2*2)=10/7.
[1;2,1]=4/3. (4+2)/(3+2)=6/5. (6+4*1)/(5+3*1)=10/8.
[1;3,1]=5/4. (5+3)/(4+3)=8/7. (8+5*2)/(7+4*2)=18/15.
[1;4,1]=6/5. (6+4)/(5+4)=10/9. (10+6*1)/(9+5*1)=16/14.
[1;5,1]=7/6. (7+5)/(6+5)=12/11. (12+7*2)/(11+6*2)=26/23.
[1;6,1]=8/7. (8+6)/(7+6)=14/13. (14+8*1)/(13+7*1)=22/20.
[1;n,1]=(n+2)/(n+1). 2(n+1)/(2n+1).
jnp 2(2n+3)/(4n+3). inc(k) [2n(1+k)+2(1+2k)]/[2n(1+k)+(1+2k)].
jp (3n+4)/(3n+2). inc(k) [n(2+k)+2(1+k)]/[n(2+k)+(1+k)].

[3;2,3]=24/7. 10/3=[3;3]. 24/7-10/3=2/21.
[2;2,2]=12/5. 14/6=[2;3]. 12/5-14/6=2/30.
[4;2,4]=40/9. 22/5=[4;2,2]. 40/9-22/5=2/45.
[3;5,3]=51/16. 22/7=[3;7]. 51/16-22/7=5/112.
[2;4,2]=20/9. 24/11=[2;5,2]. 20/9-24/11=4/99.
[a;n,a]=[a(na+2)]/[na+1].
global n, local p. p=3,6,5,7,11. (npa^2+2pa-n)/(npa+p).

[1;1,1,1,1,1,1]=21/13. 22/14=[1;1,1,3].
[1;1,2,1,1]=12/7. 8/5=[1;1,1,2]./*alpha*/ 20/12=[1;1,2]. (8+12)/(5+7)=20/12.
[1;1,1,2,1,1,1]=30/19. 12/8=[1;2]. 20/13=[1;1,1,6]. (12+8)/(8+5)=20/13./*beta*/
[1;1,1,1,16,1,1,1,1]=430/259. 16/10=[1;1,1,2]./*alpha*/
[1;1,6,1,1]=28/15. 20/11=[1;1,4,2].

[1;1,1,1,6,1,1,1,1]=180/109. [2;1,1,6,1,1,2]=180/71. 109+71=180.
0 0 1 1 1 1 6 1 1 1 1
0 1 1 2 3 5 33 38 71 109 180
1 0 1 1 2 3 20 23 43 66 109
//
0 0 2 1 1 6 1 1 2
0 1 2 3 5 33 38 71 180
1 0 1 1 2 13 15 28 71
//
1 1 1 6
2 1 1 6
1 2 3 20
1 1 2 13
2 3 5 33
[1;1,2,1,1]=12/7. [2;2,2]=12/5. 7+5=12.
[1;2,4,2,1]=42/29. [3;4,3]=42/13. 29+13=42.
[1;1,3,5,3,1,1]=259/155. [2;3,5,3,2]=259/118. 155+118=273. /*gamma*/. /* [1;1,3,5,3]=111/67. [2;3,5,3]=111/51. */
[1;1,3,5,3,1,1]=273/155. [2;3,5,3,2]=273/118. 155+118=273. /*left unique legendary*/
[1;1,3,1,5,1,3,1,1]=531/296. [2;3,1,5,1,3,2]=531/235. 296+235=531.
[1;1,1,2,1,1,]=30/19. [2;1,2,1,2]=30/11. 19+11=30.
[1;2,2,2,1]=24/17. [3;2,3]=24/7. 17+7=24.
[1;3,1,1,2,6,2,1,1,3,1]=3588/2807. [4;1,1,2,6,2,1,1,4]=3588/781. 2807+781=3588.
[1;n,1]=(n+2)/(n+1).
[1;1,n,1,1]=(4n+4)/(2n+3).
[2;n,2]=(4n+4)/(2n+1).
[1;1,1,n,1,1,1]=(9n+12)/(6n+7).
[3;n,3]=(9n+6)/(3n+3).
[1;2,n,2,n]=(9n+11)/(6n+5).
[2;1,n,1,2]=(9n+12)/(3n+5).
0 0 1 a b
0 1 1 a+1 ab+b+1
1 0 1 a ab+1
//
0 0 a+1 b
0 1 a+1 ab+b+1
1 0 1 b
//
l m n 1
u p np+u (n+1)p+u
v q nq+v (n+1)q+v
//
l m n+1
u p (n+1)p+u
(u-v) (p-q) -(n+1)q-v+(n+1)p+u

[2;2,2]=12/5. 14/6. 26/11. 38/16. 50/21. 62/26.
(14+12)/(6+5)=26/11. (26+12)/(11+5)=38/16.
(12+2*1)/(5+1)=14/6. /* (12+2^1)/(5+1)=14/6. */
[2;4,2]=20/9. 24/11. 44/20.
(24+20)/(11+9)=44/20.
(20+2*2)/(9+2)=24/11. /* (20+2^2)/(9+2)=24/11. */
[2;6,2]=28/13. 34/16. 62/29. (34+28)/(16+13)=62/29. (28+2*3)/(13+3)=34/16.
[2;8,2]=36/17. 44/21. (36+2*4)/(17+4)=44/21.
[2;10,2]=44/21. 54/26. (44+2*5)/(21+5)=54/26.

[3;1,3]=15/4. 26/7. 56/15. (26+15*2)/(7+4*2)=56/15.
0 0 3 1 3
0 1 3 4 15
1 0 1 1 4
[3;2,3]=24/7. 10/3. 34/10. 58/17.
(10+24)/(3+7)=34/10. (34+24)/(10+7)=58/17.
0 0 3 2 3
0 1 3 7 24 3+7=10
1 0 1 2 7 1+2=3
[3;3,3]=33/10. 36/11. (33+3*1)/(10+1)=36/11.
[3;4,3]=42/13. 32/10.
//
[3;5,3]=51/16. 22/7.
[3;8,3]=78/25. 34/11.
[3;11,3]=105/34. 46/15.
[3;14,3]=132/43. 58/19.

[4;2,4]=40/9. 22/5.
[4;6,4]=104/25. 58/14.

[5;2,5]=60/11. 38/7.
[5;4,5]=110/21. 26/5.
0 0 5 4 5
0 1 5 21 110 5+21=26
1 0 1 4 21 1+4=5
[5;9,5]=235/46. 56/11.

[6;2,6]=84/13. 58/9.
[6;4,6]=156/25. 56/9.

[7;6,7]=308/43. 50/7.

-[2;2,2]=-12/5. -10/4. -22/9. -34/14. -46/19. -58/24.
(10+12)/(4+5)=22/9. (22+12)/(9+5)=34/14.
(12-2*1)/(5-1)=10/4.
0 - 2 2 2
0 1 2 5 12 5*2=10
1 0 1 2 5 2*2=4
-[2;4,2]=-20/9. -16/7. -36/16. -56/25.
(16+20)/(7+9)=36/16. (36+20)/(16+9)=56/25.
(20-2*2)/(9-2)=16/7.
-[2;6,2]=-28/13. -22/10. -50/23.
(22+28)/(10+13)=50/23.
(28-2*3)/(13-3)=22/10.
-[2;8,2]=-36/17. -28/13. -64/30. (28+36)/(13+17)=64/30. (36-2*4)/(17-4)=28/13.
-[2;10,2]=-44/21. -34/16. (44-2*5)/(21-5)=34/16.
-[2;12,2]=-52/25. -40/19. (52-2*6)/(25-6)=40/19.
-[2;14,2]=-60/29. -46/22. (60-2*7)/(29-7)=46/22.
-[2;16,2]=-68/33. -52/25. (68-2*8)/(33-8)=52/25.
-[2;18,2]=-76/37. -58/28. (76-2*9)/(37-9)=58/28.
-[2;20,2]=-84/41. -64/31. (84-2*10)/(41-10)=64/31.

-[3;1,3]=-15/4. -34/9. -64/17. (34+15*2)/(9+4*2)=64/17.
-[3;2,3]=-24/7. -14/4. -38/11. -62/18.
[3;2]=7/2. (7*2)/(2*2)=14/4.
(14+24)/(4+11)=38/11. (38+24)/(11+7)=62/18.
0 - 3 2 3
0 1 3 7 14 7*2=14
1 0 1 2 7 2*2=4
-[3;3,3]=-33/10. -30/9.
//
-[3;4,3]=-42/13. -10/3. -52/16. (10+42)/(3+13)=52/16.
-[3;7,3]=-69/22. -16/5.
//
-[3;8,3]=-78/25. -44/14.
-[3;10,3]=-96/31. -22/7.
-[3;13,3]=-123/40. -28/9.
-[3;16,3]=-150/49. -34/11.
-[3;19,3]=-177/58. -40/13.
-[3;22,3]=-204/67. -46/15.
-[3;25,3]=-231/76. -52/17.
-[3;28,3]=-258/85. -58/19.
-[3;31,3]=-285/94. -64/21.

-[4;2,4]=-40/9. -18/4. -58/13. (18+40)/(4+9)=58/13.
0 - 4 2 4
0 1 4 9 40 9*2=18
1 0 1 2 9 2*2=4
-[4;6,4]=-104/25. -46/11.

-[5;2,5]=-60/11. -22/4.
0 - 5 2 5
0 1 5 11 60 11*2=22
1 0 1 2 11 2*2=4
-[5;3,5]=-85/16. -48/9.
-[5;6,5]=-160/31. -26/5.
-[5;11,5]=-285/56. -46/9.

-[6;2,6]=-84/13. -26/4.
0 - 6 2 6
0 1 6 13 84 13*2=26
1 0 1 2 13 2*2=4

-[7;2,7]=-112/15. -30/4.
0 - 7 2 7
0 1 7 15 112 15*2=30
1 0 1 2 15 2*2=4
-[7;8,7]=-406/57. -50/7.

-[8;2,8]=-144/17. -34/4.
0 - 8 2 8
0 1 8 17 144 17*2=34
1 0 1 2 17 2*2=4

-[9;2,9]=-180/19. -38/4.
0 - 9 2 9
0 1 9 19 180 19*2=38
1 0 1 2 19 2*2=4

-[10;2,10]=-220/21. -42/4.
0 - 10 2 10
0 1 10 21 220 21*2=42
1 0 1 2 21 2*2=4

-[11;2,11]=-264/23. -46/4.
0 - 11 2 11
0 1 11 23 264 23*2=46
1 0 1 2 23 2*2=4

-[12;2,12]=-312/25. -50/4. (25*2)/(2*2)=50/4.

-[13;2,13]=-364/27. -54/4. 27*2=54.

-[14;2,14]=-420/29. -58/4.

-[15;2,15]=-480/31. -62/4.

//reserved paper change face/sound into reserved disk.
Last edited by fffefd on Mon Jan 29, 2024 1:26 am, edited 25 times in total.
fffefd
Posts: 25
Joined: Wed Jan 18, 2023 1:54 pm

disk for paper

Post by fffefd »

on paper, even 12 solution still 4 never write.
i think the 13 solution on paper will be very rare, at least is epic rank, now not consider legendary rank.
soon i will write hla to solve 12+ solution, the copyright belongs to paper.
on khwarizmi time, no paper refuse iran x.
https://cs.uwaterloo.ca/journals/JIS/VO ... erger2.pdf
if hla64, then rax.

when hla help write 1000 complete, i will write another hla to test all (a,n)*2 form, may have to use 64 vice register while in 32 mode.
while major register is longer, the asm task is easier.
these thing bas & c never taught.
i 1998 use qbasic 2.
i 2003 use turbo c 2.

plan, may still 1 hla more to explore (a,b,c)*4 whole form, this is local unique, never like above global focus.

y^2-nx^2=-1 if solvable,
y^2-nx^2=1 always be [a;2a,a] whole form & (a,b,c)*4 whole form,
(a,b,c)*4 whole form always have 2a as the middle number.
(a,2a,a) sub form is (2a)*2.

i 1996 around know 1+i+j+k quaternion noncommutative on a 1970-1980 chinese math book.
i 2024 know 1+i is matrix operation also noncommutative on this french hla pc.

i'm afraid now all china senior middle school student is still consider 1+i is commutative,
because on paper 1+i operation commutative is of course,
and china senior middle school never teach matrix,
very few china college teach matrix,
nearly all of them are on white house black list.

paper punctuation transfer to x86 nop.
no real space can transfer from paper to x86 editor.
bmp is the most safe format but by reason all know png on using.

for global view,
windows.7.64 + hla64 + x64dbg - cheat.engine.64,
is the run time gold.
when i type the keyboard for net bar pc in vim,
only found silver,
china net bar pc's last gold = cmd:)

india's only usage is body combine,
but silk make a india buddhist to become thief of justinian,
while silk of justinian make no sense on crusader,
what a failure body combine:(

produce hla64 immediately,
the fee for tribonian of codex to change law,
china can always afford:|

based on second simplified chinese remain survived real number,
if there is no prize link to number for single/group,
no chinese will write number,
and this prove dprk number is real unique,
in dprk, pc and mac use the same number, same sound, different face.

based on 2nd simplified chinese success unreal number,
dprk top student prize number all for group,
dprk bottom student punish number all for single,
hla64 is the most perfect number for them to adjust to paris.

05.06.2003 sichuan high exam cheat,
china no longer have nation wide punish number,
also means china no longer have nation wide error english.
for error land reason,
all set back to 1977 condition.

before 2002 2nd simplified chinese teach book at last leave classroom,
every time 2nd simplified chinese error made, always drop enough gold,
so that time many teacher is skilled on creating surplus error of 2nd simplified chinese,
nes also use these error,
bottom people just trust this error gold, because they can never touch the real correct gold that time,
dprk still follow this way.

when math olympiad and starcraft gundam stay the same time,
i just sit in nankai senior middle school classroom,
there is college teach book from qinghua/beida university,
dprk still follow this way.
Attachments
wildberger2.7z
(110.29 KiB) Downloaded 510 times
Last edited by fffefd on Tue Mar 19, 2024 1:30 pm, edited 13 times in total.
fffefd
Posts: 25
Joined: Wed Jan 18, 2023 1:54 pm

iran x degrade land & x86s rax borrow land, maya 0123456789abcdefghij

Post by fffefd »

program pellMatrixSolution;

#includeonce( "stdlib.hhf" )
#includeonce( "hide/hidelib.hhf" )
?@nodisplay := true;
?@noalignstack := true;
?@noframe:=true;

/*
options
settings
linker settings
section
.data,erw
.text,erw
*/

/*
a b xmm1 xmm2
c n xmm3 xmm4
*/

const
_0:dword:=$1000;

static
a:dword:=1;
b:dword:=0;
c:dword:=0;
n:dword;
i:int32;
arrayLength:dword;
arrayMiddle:dword;
arrayQuarter:dword;
arrayFlagB:boolean;
align($10);violation:byte[$200];

storage
f:dword[_0];
h:byte;
g:byte[_0];

procedure rstep;
begin rstep;
movdqa(xmm1,xmm1);
paddd(xmm1,xmm2);
movdqa(xmm2,xmm3);
movdqa(xmm0,xmm4);
ret;
end rstep;

procedure lstep;
begin lstep;
movdqa(xmm4,xmm4);
paddd(xmm4,xmm3);
movdqa(xmm3,xmm2);
movdqa(xmm0,xmm1);
ret;
end lstep;

procedure endloop;
begin endloop;
movd(xmm1,eax);
if(eax<>a)then
jmp continueloop;
endif;
movd(xmm2,eax);
if(eax<>b)then
jmp continueloop;
endif;
movd(xmm3,eax);
if(eax<>c)then
jmp continueloop;
endif;
movd(xmm4,eax);
if(eax<>n)then
jmp continueloop;
endif;
//jmp _00;
byte $8c,%11_001_000;
byte $66,$a3;dword &_01+5;
_01:
byte $ea;dword &_00;byte $90,$90;
continueloop:
nop;
ret;
end endloop;

procedure arrayFlag;
begin arrayFlag;
for(xor(edi,edi);edi<_0;inc(edi))do
mov(f[edi*4],eax);
if(eax=0)then
mov(edi,arrayLength);
break;
endif;
endfor;

mov(arrayLength,eax);
inc(eax);
shr(1,eax);
mov(eax,arrayMiddle);
mov(f[eax*4-4],eax);
shr(1,eax);

if(eax=f[0])then
mov(true,arrayFlagB);
mov(arrayMiddle,eax);
shr(1,eax);
mov(eax,arrayQuarter);
else
mov(false,arrayFlagB);
endif;

ret;
end arrayFlag;

procedure flag;
begin flag;
console.saveCursor();
console.down();
for(xor(esi,esi);esi<9;inc(esi))do
console.down();
stdout.put('*');
console.left();
endfor;
console.restoreCursor();
ret;
end flag;

procedure paradoxStar;
begin paradoxStar;

mov(edi,eax);
inc(eax);
if(arrayFlagB)then

if(eax=1)then
//jmp _02;
byte $8d,%00_000_101;dword &_02;
byte $ff,%11_100_000;
elseif(eax=arrayQuarter)then
flag();
endif;

else

if(eax=arrayMiddle)then
flag();
endif;

endif;

ret;
end paradoxStar;

procedure tooManyOne;
begin tooManyOne;
mov(f[edi*4],eax);
if(eax=1)then
mov(edi,eax);
xor(edx,edx);
mov(10,ebx);
div(ebx);
switch(edx)
case(0)
console.saveCursor();
console.down();
stdout.put('a');
console.restoreCursor();
case(1)
console.saveCursor();
console.down();
stdout.put('b');
console.restoreCursor();
case(2)
console.saveCursor();
console.down();
stdout.put('c');
console.restoreCursor();
case(3)
console.saveCursor();
console.down();
stdout.put('d');
console.restoreCursor();
case(4)
console.saveCursor();
console.down();
stdout.put('e');
console.restoreCursor();
case(5)
console.saveCursor();
console.down();
stdout.put('f');
console.restoreCursor();
case(6)
console.saveCursor();
console.down();
stdout.put('g');
console.restoreCursor();
case(7)
console.saveCursor();
console.down();
stdout.put('h');
console.restoreCursor();
case(8)
console.saveCursor();
console.down();
stdout.put('i');
console.restoreCursor();
case(9)
console.saveCursor();
console.down();
stdout.put('j');
console.restoreCursor();
endswitch;
endif;
ret;
end tooManyOne;

begin pellMatrixSolution;
stdout.put("stdin get int32 n:");
stdin.get(i);
neg(i);
mov(i,eax);
mov(eax,n);

inc(h);

pxor(xmm0,xmm0);
mov(a,eax);
movd(eax,xmm1);
mov(b,eax);
movd(eax,xmm2);
movdqa(xmm2,xmm3);
mov(n,eax);
movd(eax,xmm4);

lea(f,ebx);
xor(ecx,ecx);

forever
//vpaddd(xmm1,xmm2,xmm0);
byte $c5,%1_1110_0_01,$fe,%11_000_010;
paddd(xmm3,xmm0);
paddd(xmm4,xmm0);

movd(xmm0,eax);
test(eax,eax);
sets(g[ecx]);
mov(g[ecx-1],al);
if(al=g[ecx])then
inc((type dword [ebx]));
else
add($4,ebx);
inc((type dword [ebx]));
endif;
inc(ecx);

movd(xmm0,eax);
test(eax,eax);
if(@s)then
fxsave(violation);
stdout.put('r');
fxrstor(violation);
rstep();
else
fxsave(violation);
stdout.put('l');
fxrstor(violation);
lstep();
endif;
endloop();
endfor;
_00:
nop;
stdout.newln();

arrayFlag();

for(xor(edi,edi);edi<_0;inc(edi))do

mov(f[edi*4],eax);
if(eax=0)then
//jmp _ff;
byte $8d,%00_000_101;dword &_ff;
byte $ff,%11_100_000;
endif;

paradoxStar();

_02:
nop;

tooManyOne();

stdout.put((type int32 f[edi*4]),' ');

endfor;

_ff:
nop;

stdout.put(nl);
stdout.put(nl,nl,nl, nl,nl,nl, nl,nl,nl);
end pellMatrixSolution;
Attachments
pellMatrixSolution.7z
(8.03 KiB) Downloaded 487 times
Last edited by fffefd on Fri Jan 26, 2024 6:32 am, edited 7 times in total.
fffefd
Posts: 25
Joined: Wed Jan 18, 2023 1:54 pm

midnight violation, china mountain paper sound

Post by fffefd »

before 1996,
iran x used on proof of contradiction,
iran x used on law of excluded middle,
especially the x like the extra actor,
now time dprk extra actor.

if iran x which performs error,
printed in 2nd simplified chinese math book,
there is no chance to get free,
but printed in 1st simplified chinese math book between 1977 and 1978,
can word eat to get free.

paper storage sound.
in hearthstone/playboy,
french male degrade face to laugh at chinese female,
because she trust scroll.knowledge/library.sex.

on china picture book between that time,
except the regular legal 2nd simplified chinese character published by government,
there is still enough draft illegal 2nd simplified chinese character experimented by private,
every province produced enough own reserved 2nd simplified chinese character,
consider the chinese character viet nam once created.

25 01 2024, blizzard game over.
2nd simplified chinese once used character number sound, all game over permanently.
single sex though can repeat, but group sex only happen once.

2nd simplified chinese last face,
journey to the west 80s edition,
girl monster/demon.

in china,
only real red pen make sense in midnight,
unreal red pen none obey in midnight,
every chinese birth place always exist red pen.
when nation separate,
red pen also separate.

in midnight, in china, if top sound disappear, bottom sound will meet, like japan empire sound.
in noon, in france, if top face disappear, bottom face will meet, like nazi empire face.

like diablo's israel monster will drop jew face diamond,
journey to the west palestine monster will drop arabic sound sand.
diablo sound drop rate = 0%,
journey to the west face drop rate = 0%.

china mountains legal same face, i'm afraid the last same face is still 2nd simplified chinese.
france oceans legal same sound, i'm afraid the last same sound is still nazi german.
china seas never legal same sound.
france hills never legal same face.
iran half mountain half hill, half ocean half sea,
what a wonderful switch!

china game handtalk gameboard has a unique central point, which means the top personal sound.
france game chess gameboard black square neighbour to white square, which means different personal face.

tibet completely cut off by sea,
violation between tibet mountain and hainan island,
any other sea land include taiwan island can't persuade tibet sand sound.

tibet sand sound will never eat word in tibet realm, because you can never real locate it.
mediterranean sand face will never eat word in mediterranean realm, because you can never real locate it.
so for white house just to shut down:
apple+arm+hollywood+ea.
if us president try to use tibet random sand sound and mediterranean random sand face the same time.

bopomofo sound of taiwan use gold.
bopomofo sound of china use silver.

when china land separate, subtraction/punish sound also separate,
former is taipei sound & beijing sound,
now is chuan sound & yv sound,
only japan can recycle sound, like rumble fish of atomiswave/steam, mikado subtraction/punish sound.

when china combined money failure, combined sound also failure, so be the once chuan+yv money+sound combine.
also france combined money failure, combined face failure, once paris belongs to nazi germany.

vim register,
the damn it linux provide some gold,
2nd simplified chinese yv.sound/chuan.face received.

haohmaru.cvs2.sound vs haohmaru.ngbc.face, chinese never beat chinese in surface:)
suiji.samsho5.sound vs sogetsuBust.samsho4.face, i understand japanese kagemusha:(

just about sound of x in china.
in primary school, 2x=6, x is the largest sound in classroom when solve out this problem, equal to tik tok, 100%.
in junior middle school, x^2-5x+6=0, x1 and x2 share the former sound, 50%.
in senior middle school, lim(1/x)=0, x sound disappear according to face law, 5%.
in college, s(2x)dx=x^2+c, third sound join, this is anti tik tok, no other sound theft, -10%.

only ryu really meet other role on internet app, so just lend tibet sound to japan:
xman vs streetFighter;
marvelSuperHero vs streetFighter;
marvel vs capcom;
snk vs capcom;
capcom vs snk;
on my paper book,
so many ugly japan soldier die in china land in joker form,
none of them is main character.

coff.obj mediterranean face.
ryu tibet sound.

in china, no constant kid sound, kid sound decide error land.
in germany, no constant kid face, kid face decide error land.
east germany kid face + si chuan province kid sound:)
west germany kid face + chong qing province kid sound:)
all happen in the same place:(
no surplus error land:
east germany error land switch to west germany error land;
si chuan error land switch to chong qing error land;
Last edited by fffefd on Wed Mar 20, 2024 2:35 am, edited 23 times in total.
fffefd
Posts: 25
Joined: Wed Jan 18, 2023 1:54 pm

pc & paper, france & iran

Post by fffefd »

in china,
pc is one room,
and paper is one room,
result is very safe.

now i just use my real room to hla this pc,
use my extra room to write paper.

when china local land decrease, can never keep produce good sound.
when france local land decrease, can never keep produce good face.

china girl sex sound never real join iran math olympiad, and france asm hacker use more sound.
iran girl sex face never real join china water drawing, and china calligraphy use more face.

2nd simplified chinese girl born before chairman deng's death, demand classroom, never give up little land.
1st simplified chinese girl born after chairman deng's death, demand classroom, never give up little land.
dprk maternity hospital vs rok maternity hospital.
boy is of course very peace.

iran math olympiad x once in china, like now time's japan av top girl, 1 face = 9 face, really 1 sound = 9 sound, can only dream in paper.
france asm hacker ax once in germany, like now time's playboy top girl, 1 face = 1 face, really 1 sound = 1 sound, continue program in disk.
ptolemaic dynasty ambassador in pataliputra.
cleopatra speak 9 language & short nose.
caesarion unprotected by caesar shield.
silk on cleopatra is reweaved to erase chinese character while silk on caesar just original to appear in theatre.
rome sailor in yangtze river wants to visit china merchant family and china merchant only provide best silk weaved by his family on river bank.
crassus assassinated by enemy in negotiation.
pompeius assassinate by subordinate in ship.
caesar assassinated by son in senatus.

1989 tiktok use iran x as prize sound, 2008 repeat this prize.
1989 facebook use france rax as prize face, 2008 repeat this prize.

if not x86s, iran x and france rax will separate permanently.
iran x sound and france rax sound now only 9% connect.
iran x face and france rax face now only 9% connect.
if i continue asm on cheat engine 64 bit, this percent will be 5%,
i gamble on hla 32 bit, increase this percent.

like hla's try anyexception endtry undebug by x32dbg,
iran x can only make sure real number land on dos command,
france rax now use unreal number on windows powershell,
reactos on virtualbox is the real dos command.

once china noble rank can declare china land by personal, now china only leave group land.
once france noble rank can declare france land by personal, now france only leave group land.
once by paper, east turk & west turk linked by personal land, really china noble rank & france noble rank.
so now on internet, east turkey & west turkey never linked by personal land.

iran x tax only keen to math olympiad key number.
france rax tax only keen to x86 structure build number.
a build must a key to open.
a key without a build means dust.
iran key better than france key.
france build better than iran build.
playboy girl is the best choice.

if iran x, cctv number sound cover all china paper.
if france rax, cctv number face cover all china x86 pc.
before 1988, cctv sound & face cover all china paper & x86 pc.
so in farm, trust paper.
and in city, trust x86 pc.
none can live in farm & city the same time.

when using era+third.upgrade.mod build such legion below,
it's real french face,
even publius crassus arrives in china,
this thing never trigger on paper:
commander:paladin;
henchman:peasant;
conscript;
squire;
man at arms;
pikeman;
swordman;
cavalier;
angel;
i think china's heroes3 player is still single troop face,
1 best army + 6 worst army:)
which just fit iran face.

if iran x failure, at least 1 tibet game sound land hiden.
if france rax failure, at least 1 mediterranean game face land hiden.
apple+arm+hollywood+ea always do this job.
my iran x and france rax can compromise with each other,
and gold is steady,
never need insert silver.
for example,
1 iphone bmp = gold,
but the same file 1 iphone png = silver.

https://www.detailedpedia.com/wiki-Bopomofo
hiden china sound already be triggered.
for iran-china poem this is the real china sound.
for iran-china math this is unreal china sound.
so i can only forecast randall hyde's hla64 sound,
even this is still unreal china sound.
except vietnam,
i can never see any real france sound.
just like france face will rebel,
china sound also will rebel.

auxiliary line sound of iran of 1st simplified chinese, never make sense, even recycle means nothing.
auxiliary line sound of france of 2nd simplified chinese, more stronger, hongkong + macao.
even all other bopomofo sound rebel, this once dust sound still royal.
i'm afraid all geometry sound of iran, now belongs to france.

algebra face of iran is very steady, still invest on hla64.
paper x support disk rax, what a joke.
in era, 1 bit change the ownership, can decide the whole map's win/lose condition.
hota use at least 3 years to create the forge campaign, just 1 bit can win!
i never say all algebra face of france now belongs to iran.

iran girl will be locked forever.
because she try to lock notre dame forever.

vim register,
the damn it linux provide some gold,
france.rax/iran.x received.

after 3 kingdom, too many gold hair blue eye die in china,
in capital area, even die as volunteer, just now time ukraine,
this is the most terrible thing to pure chinese according to that time's book writer:|

this just link to why c creator must die.
iran paper x just like palestine paper x,
use loud speaker to enlarge its area.
france disk rax just like israel disk rax,
shrink its area even in germany calculus.
so there is no real paper.x/disk.rax for c to use.

iran.x&2nd.simp.chn, score to run pc, made by food&money, can pass through province, like highway in chongqing.
france.rax/1st.simp.chn, score to run mac, made by food/money, can never pass through province, like railroad in chongqing.

i only support hla64, but accept radasm as france fashion, due to radasm.register.amount > vim.register.amount:)
in iran math olympiad paper, can never find any sound like dosbox, so large amount especially register, but act like dumb:(

whether in france.rax or iran.x,
2nd simplified chinese error number never continue produce after 1997,
chuan error number never continue produce after 2003,
the ratio of error.number:correct.number = 10:1 is real, must use nation word,
1 land if exist 2 gamble, 1 gamble must failure, or both failure.
Last edited by fffefd on Wed Mar 20, 2024 7:53 am, edited 19 times in total.
fffefd
Posts: 25
Joined: Wed Jan 18, 2023 1:54 pm

hla for [a;n,a], endless vice hacker happiness, disk nop, mov($ffff_ffff_ffff_ffff,rax)

Post by fffefd »

/*

t=a+b+b+c
|a b|
|b c|

mr+^n=
|a b|a an b|
|b c| |
| r+|an an^2 bn|
| n|b bn c|

ml-^n=
|a b|a bn b|
|b c|bn cn^2 cn|
| l-|b |
| n|cn c|

mr-^n=
|b c|b bn c|
|a b|an an^2 bn|
| r-| |
| n|a an b|

ml+^n=
|b c|b cn c|
|a b| |
| l+|bn cn^2 cn|
| n|a bn b|

m=
|1 0|
|0 1|

l^n=
|1 0|
|n 1|

r^n=
|1 n|
|0 1|

l=
|1 0|1 0|
|0 1|1 1|
| l| |
| 1| |

r=
|1 0|1 1|
|0 1|0 1|
| r| |
| 1| |

|1 0|1 x |
|0 -n| |
| r+|x x^2 |
| x| -nx|
x^2-nx>0,x-1


*/
program pellMatrixAna;

#includeonce( "stdlib.hhf" )
#includeonce( "hide/hidelib.hhf" )
?@nodisplay := true;
?@noalignstack := true;
?@noframe:=true;

const
_0:dword:=$10000;

static
/*
|a b|
|b c|
xmm0 t
xmm1 a
xmm2 b
xmm3 b
xmm4 c
xmm5
xmm6
xmm7
*/
a:lword:=1;
b:lword:=0;
c:lword;
ccc:lword;
count:lword:=$1_0000;//$1_0000 display tested,$10_000 ana tested
aaa_:real80;
bbb:qword;

storage
aa:qword[_0];
bb:byte;
cc:byte[_0];

procedure rstep;
begin rstep;
paddq(xmm1,xmm2);
movdqu(xmm2,xmm3);
movdqu(xmm0,xmm4);
ret;
end rstep;

procedure lstep;
begin lstep;
paddq(xmm4,xmm3);
movdqu(xmm3,xmm2);
movdqu(xmm0,xmm1);
ret;
end lstep;

procedure endloop;
begin endloop;
movdqu(a,xmm5);
movdqu(xmm1,xmm6);
//vpcmpeqq(xmm6,xmm5,xmm7);
byte $c4,%111_000_10,%0_1010_0_01,$29,%11_111_110;
movd(xmm7,eax);
test(eax,eax);
if(@ns)then
jmp _continueloop;
endif;

movdqu(b,xmm5);
movdqu(xmm2,xmm6);
//vpcmpeqq(xmm6,xmm5,xmm7);
byte $c4,%111_000_10,%0_1010_0_01,$29,%11_111_110;
movd(xmm7,eax);
test(eax,eax);
if(@ns)then
jmp _continueloop;
endif;

movdqu(c,xmm5);
movdqu(xmm4,xmm6);
//vpcmpeqq(xmm6,xmm5,xmm7);
byte $c4,%111_000_10,%0_1010_0_01,$29,%11_111_110;
movd(xmm7,eax);
test(eax,eax);
if(@ns)then
jmp _continueloop;
endif;

//jmp _00;
byte $8d,%00_000_101;dword &_00;
byte $ff,%11_100_000;

_continueloop:
byte $0f,$1f,%00_000_101,$0c,$00,$00,$00;

ret;
end endloop;

begin pellMatrixAna;

mov(1,eax);
movd(eax,xmm5);
movdqu(xmm5,ccc);

_cAddr:
byte $0f,$1f,%00_000_101,$0c,$0a,$00,$00;

movdqu(ccc,xmm5);
pxor(xmm6,xmm6);
psubq(xmm5,xmm6);
movdqu(xmm6,c);

mov(1,bb);

pxor(xmm0,xmm0);
movdqu(a,xmm1);
movdqu(b,xmm2);
movdqu(xmm2,xmm3);
movdqu(c,xmm4);

lea(aa,ebx);
xor(ecx,ecx);
forever
//vpaddq(xmm1,xmm2,xmm0);
byte $c5,%1_1110_0_01,$d4,%11_000_010;
paddq(xmm3,xmm0);
paddq(xmm4,xmm0);

movdqu(xmm0,xmm5);
pxor(xmm6,xmm6);
//vpcmpeqq(xmm6,xmm5,xmm7);
byte $c4,%111_000_10,%0_1010_0_01,$29,%11_111_110;
movd(xmm7,eax);
test(eax,eax);
if(@s)then
//jmp _ff;
byte $8d,%00_000_101;dword &_ff;
byte $ff,%11_100_000;
endif;

//pextrd($1,xmm0,eax);
byte $66,$0f,$3a,$16,%11_000_000,$1;
test(eax,eax);
sets(cc[ecx]);
mov(cc[ecx-1],al);
if(al=cc[ecx])then
//inc((type qword [ebx]));
mov(1,eax);
movd(eax,xmm6);
movdqu([ebx],xmm5);
paddq(xmm6,xmm5);
movdqu(xmm5,[ebx]);
else
add($8,ebx);
//inc((type qword [ebx]));
mov(1,eax);
movd(eax,xmm6);
movdqu([ebx],xmm5);
paddq(xmm6,xmm5);
movdqu(xmm5,[ebx]);
endif;
inc(ecx);

//pextrd($1,xmm0,eax);
byte $66,$0f,$3a,$16,%11_000_000,$1;
test(eax,eax);
if(@s)then
rstep();
else
lstep();
endif;

endloop();

endfor;
_00:
byte $0f,$1f,%00_000_101,$00,$00,$00,$00;

/*
for(xor(ecx,ecx);ecx<_0;inc(ecx))do
movq(aa[ecx*8],xmm5);
pxor(xmm6,xmm6);
//vpcmpeqq(xmm6,xmm5,xmm7);
byte $c4,%111_000_10,%0_1010_0_01,$29,%11_111_110;
movd(xmm7,eax);
test(eax,eax);
if(@s)then
//jmp _ff;
byte $8d,%00_000_101;dword &_ff;
byte $ff,%11_100_000;
endif;
stdout.put((type int64 aa[ecx*8]),' ');
endfor;
*/ //display

movq(aa[0*8],xmm5);
movq(aa[4*8],xmm6);
//vpcmpeqq(xmm6,xmm5,xmm7);
byte $c4,%111_000_10,%0_1010_0_01,$29,%11_111_110;
movd(xmm7,eax);
test(eax,eax);
if(@ns)then
jmp _ff;
endif;

movq(aa[1*8],xmm5);
mov(1,eax);
movd(eax,xmm6);
//vpcmpeqq(xmm6,xmm5,xmm7);
byte $c4,%111_000_10,%0_1010_0_01,$29,%11_111_110;
movd(xmm7,eax);
test(eax,eax);
if(@s)then
jmp _ff;
endif;

movq(aa[5*8],xmm5);
pxor(xmm6,xmm6);
//vpcmpeqq(xmm6,xmm5,xmm7);
byte $c4,%111_000_10,%0_1010_0_01,$29,%11_111_110;
movd(xmm7,eax);
test(eax,eax);
if(@s)then

fild((type qword ccc));
fild((type qword aa[0*8]));
fld(st0);
fmulp;
fsubp();
fstp(aaa_);

movq(aa[0*8],xmm5);
paddq(xmm5,xmm5);
movq(xmm5,bbb);

stdout.put(
(type int64 ccc),':',' ',
(type int64 bbb),'/',
aaa_,':',' ',
(type int64 aa[0*8]),' ',
(type int64 aa[1*8]),' ',
(type int64 aa[2*8]),' ',
(type int64 aa[3*8]),' ',
(type int64 aa[4*8]),' ',
nl
);
endif;

_ff:
byte $0f,$1f,%00_000_101,$ff,$00,$00,$00;
//stdout.newln(); //display

for(xor(ecx,ecx);ecx<_0;inc(ecx))do
and($0,aa[ecx*8]);
and($0,aa[ecx*8+4]);
and($0,cc[ecx]);
endfor;

movdqu(ccc,xmm5);
mov(1,eax);
movd(eax,xmm6);
paddq(xmm6,xmm5);
movdqu(xmm5,ccc);
movq((type qword count),xmm6);
//vpcmpeqq(xmm6,xmm5,xmm7);
byte $c4,%111_000_10,%0_1010_0_01,$29,%11_111_110;
movd(xmm7,eax);
test(eax,eax);
if(@ns)then
jmp _cAddr;
endif;

end pellMatrixAna;
Attachments
pellMatrixAna.7z
(6.79 KiB) Downloaded 500 times
Last edited by fffefd on Wed Jan 31, 2024 1:43 am, edited 7 times in total.
Post Reply