├хюЁушщ └ыхъёрэфЁют

 

╚─┼└╦▄═█╔ ╠└├╚╫┼╤╩╚╔ ╩┬└─╨└╥

╧╬╨▀─╩└ n = 8k

 

╤рь√щ яЁюёЄющ ьхЄюф яюёЄЁюхэш 

 

аааааааа ╚фхры№э√х ьрушўхёъшх ътрфЁрЄ√ яюЁ фъра n = 8k,а уфха k = 1, 2, 3 Еа юЄэюё Єё  ъ ЁрчЁ фє эршсюыхх яЁюёЄ√ї, яюёъюы№ъє шї тю ьэюую Ёрч сюы№°х, ўхьа ╚╠╩ яюЁ фъра n = 8k + 4. ╧ю¤Єюьє ш яЁюуЁрььр эр  ч√ъх Yabasic юърчрырё№ ёютёхь ьшэшрЄ■Ёэющ:

 

аааааааааааааааааааааааааааааааааа rem ╧юёЄЁюхэшх шфхры№эюую ьрушўхёъюую ътрфЁрЄр яюЁ фър 8k

dim p(1000),z(1000,1000)

print " INPUT THE ORDER OF IMQ (n = 8, 16, 24, ... 8k)";

input n

open #1,"IMQ_n.txt","w"

rem ╤юёЄртыхэшх Ўхяш └ыхъёрэфЁютр

p(1)=1:p(2)=n:p(n/2+2)=2

for i=1 to n/4-1:p(n/2+2+i)=n/2-2*(i-1):next i

for j=1 to n/4-1:p(n/2+1+i+j)=3+2*(j-1):next j

for i=3 to n/2+1:p(i)=n+1-p(n+3-i):next i

print #1

print #1,"╚─┼└╦▄═█╔ ╠└├╚╫┼╤╩╚╔ ╩┬└─╨└╥ ╧╬╨▀─╩└ n = ";

print #1,n

print #1,"╓┼╧▄ └╦┼╩╤└═─╨╬┬└ : ";

for i=1 to n:print p(i);:print #1,p(i);:next i:print:print #1:print #1

for k=1 to n:for t=1 to n:if k=1 and t=1 then j=1:i=1:fi

if t=1 and k>1 then i=i-1:j=j-1:if j<0 then j=j+n:fi:if i<0 then i=i+n:fi:fi

if t>1 then i=i+1:j=j+2:fi

rem яЁштхфхэшх i ш j ъ Ёрьърь ьрушўхёъюую ътрфЁрЄр

v=i

a()

i=v2:v=j

a()

j=v2:z=(p(k)-1)*n+p(t):z1=int(z)

if abs(z-z1)>.9 then z=z1+1 else z=z1:fi

z(i,j)=z:next t:next k:print #1:for i=1 to n:for j=1 to n

print #1,z(i,j) using "####";:next j:print #1:next i

sub a()

v0=v/n:v1=int(v0):if v0<1 then v1=0:fi

v2=(v0-v1)*n:v3=int(v2)

if abs(v2-v3)>.9 then v2=v3+1 else z=v3:fi

if abs(v2)<.0000000001 then v2=n:fi

end sub

 

ааааааааааа ааааааааааа ╧юърцхь яхЁт√х ўхЄ√Ёх ╚╠╩, ЁрёёўшЄрээ√х яю ¤Єющ яЁюуЁрььх :

 

╚─┼└╦▄═█╔ ╠└├╚╫┼╤╩╚╔ ╩┬└─╨└╥ ╧╬╨▀─╩└ n = 8

╓┼╧▄ └╦┼╩╤└═─╨╬┬└ :а 1 8 6 5 7 2 4 3

 

аа 1аа 62аа 47аа 36аа 49аа 14аа 31аа 20

а 26аа 19ааа 8аа 61аа 42аа 35аа 56аа 13

а 54аа 15аа 28аа 17ааа 6аа 63аа 44аа 33

а 43аа 40аа 53аа 10аа 27аа 24ааа 5аа 58

аа 7аа 60аа 41аа 38аа 55аа 12аа 25аа 22

а 32аа 21ааа 2 аа59аа 48аа 37аа 50аа 11

а 52ааа 9аа 30аа 23ааа 4аа 57аа 46аа 39

а 45аа 34аа 51аа 16аа 29аа 18ааа 3аа 64

 

 

╚─┼└╦▄═█╔ ╠└├╚╫┼╤╩╚╔ ╩┬└─╨└╥ ╧╬╨▀─╩└ n = 16

╓┼╧▄ └╦┼╩╤└═─╨╬┬└ :а 1 16 10 12 14 13 11 9 15 2 8 6 4 3 5 7

 

аа 1а 250а 158а 187а 223а 200а 164а 133а 225аа 26а 126аа 91аа 63аа 40аа 68а 101

а 67а 103аа 16а 252а 157а 185а 210а 198а 163а 135а 240аа 28а 125аа 89аа 50аа 38

а 56аа 36аа 69аа 97аа 10а 254а 155а 191а 216а 196а 165а 129а 234аа 30а 123аа 95

а121аа 82аа 54аа 35аа 71а 112аа 12а 253а 153а 178а 214а 195 а167а 144а 236аа 29

а238аа 27а 127аа 88аа 52аа 37аа 65а 106аа 14а 251а 159а 184а 212а 197а 161а 138

а176а 140а 237аа 25а 114аа 86аа 51аа 39аа 80а 108аа 13а 249а 146а 182а 211а 199

а213а 193а 170а 142а 235аа 31а 120аа 84аа 53аа 33аа 74а 110аа 11а 255а 152а 180

а150а 179а 215а 208а 172а 141а 233аа 18а 118аа 83аа 55аа 48аа 76а 109ааа 9а 242

а 15а 248а 148а 181а 209а 202а 174а 139а 239аа 24а 116аа 85аа 49аа 42аа 78а 107

а 77а 105ааа 2а 246а 147а 183а 224а 204а 173а 137а 226аа 22а 115аа 87аа 64аа 44

а 58аа 46аа 75а 111ааа 8а 244а 149а 177а 218а 206а 171а 143а 232аа 20а 117аа 81

а119аа 96аа 60аа 45аа 73аа 98ааа 6а 243а 151а 192а 220а 205а 169а 130а 230аа 19

а228аа 21а 113аа 90аа 62аа 43аа 79а 104ааа 4а 245а 145а 186а 222а 203а 175а 136

а162а 134а 227аа 23а 128аа 92аа 61аа 41аа 66а 102ааа 3а 247а 160а 188а 221а 201

а219а 207а 168а 132а 229аа 17а 122аа 94аа 59аа 47аа 72а 100ааа 5а 241а 154а 190

а156а 189а 217а 194а 166а 131а 231аа 32а 124аа 93аа 57аа 34аа 70аа 99ааа 7а 256

 

 

 

╚─┼└╦▄═█╔ ╠└├╚╫┼╤╩╚╔ ╩┬└─╨└╥ ╧╬╨▀─╩└ n = 24

╓┼╧▄ └╦┼╩╤└═─╨╬┬└ :а 1 24 14 16 18 20 22 21 19 17 15 13 23 2 12 10 8 6 4 3 5 7 9 11

 

аа 1а 566а 330а 382а 427а 471а 527а 492а 440а 388а 341а 297а 529аа 38а 282а 238а 187а 135аа 95аа 60а 104а 148а 197а 249

а199а 251аа 24а 568а 332а 381а 425а 469а 506а 490а 438а 387а 343а 299а 552аа 40а 284а 237а 185а 133аа 74аа 58а 102а 147

а100а 149а 201а 241аа 14а 570а 334а 379а 423а 479а 516а 488а 436а 389а 345а 289а 542аа 42а 286а 235а 183а 143аа 84аа 56

а 82аа 54аа 99а 151а 203а 264аа 16а 572а 333а 377а 421а 458а 514а 486а 435а 391а 347а 312а 544аа 44а 285а 233а 181а 122

а191а 132аа 80аа 52а 101а 153а 193а 254аа 18а 574а 331а 375а 431а 468а 512а 484а 437а 393а 337а 302а 546аа 46а 283а 231

а281а 229а 170а 130аа 78аа 51а 103а 155а 216а 256аа 20а 573а 329а 373а 410а 466 а510а 483а 439а 395а 360а 304а 548аа 45

а550аа 43а 279а 239а 180а 128аа 76аа 53а 105а 145а 206а 258аа 22а 571а 327а 383а 420а 464а 508а 485а 441а 385а 350а 306

а352а 308а 549аа 41а 277а 218а 178а 126аа 75аа 55а 107а 168а 208а 260аа 21а 569а 325а 362а 418а 462а 507а 487а 443а 408

а433а 398а 354а 310а 547аа 39а 287а 228а 176а 124аа 77аа 57аа 97а 158а 210а 262аа 19а 567а 335а 372а 416а 460а 509а 489

а511а 491а 456а 400а 356а 309а 545аа 37а 266а 226а 174а 123аа 79аа 59а 120а 160а 212а 261аа 17а 565а 314а 370а 414а 459

а412а 461а 513а 481а 446а 402а 358а 307а 543аа 47а 276а 224а 172а 125аа 81аа 49а 110а 162а 214а 259аа 15а 575а 324а 368

а322а 366а 411а 463а 515а 504а 448а 404а 357а 305а 541аа 26а 274а 222а 171а 127аа 83аа 72а 112а 164а 213а 257аа 13а 554

а 23а 564а 320а 364а 413а 465а 505а 494а 450а 406а 355а 303а 551аа 36а 272а 220а 173а 129аа 73аа 62а 114а 166а 211а 255

а209а 253ааа 2а 562а 318а 363а 415а 467а 528а 496а 452а 405а 353а 301а 530аа 34а 270а 219а 175а 131аа 96аа 64а 116а 165

а118а 163а 207а 263аа 12а 560а 316а 365а 417а 457а 518а 498а 454а 403а 351а 311а 540аа 32а 268а 221а 177а 121аа 86аа 66

а 88аа 68а 117а 161а 205а 242аа 10а 558а 315а 367а 419а 480а 520а 500а 453а 401а 349а 290а 538аа 30а 267а 223а 179а 144

а169а 134аа 90аа 70а 115а 159а 215а 252 ааа8а 556а 317а 369а 409а 470а 522а 502а 451а 399а 359а 300а 536аа 28а 269а 225

а271а 227а 192а 136аа 92аа 69а 113а 157а 194а 250ааа 6а 555а 319а 371а 432а 472а 524а 501а 449а 397а 338а 298а 534аа 27

а532аа 29а 273а 217а 182а 138аа 94аа 67а 111а 167а 204а 248ааа 4а 557а 321а 361а 422а 474а 526а 499а 447а 407а 348а 296

а346а 294а 531аа 31а 275а 240а 184а 140аа 93аа 65а 109а 146а 202а 246ааа 3а 559а 323а 384а 424а 476а 525а 497а 445а 386

а455а 396а 344а 292а 533аа 33а 265а 230а 186а 142аа 91аа 63а 119а 156а 200а 244ааа 5а 561а 313а 374а 426а 478а 523а 495

а521а 493а 434а 394а 342а 291а 535аа 35а 288а 232а 188а 141аа 89аа 61аа 98а 154а 198а 243ааа 7а 563а 336а 376а 428а 477

а430а 475а 519а 503а 444а 392а 340а 293а 537аа 25а 278а 234а 190а 139аа 87аа 71а 108а 152а 196а 245ааа 9а 553а 326а 378

а328а 380а 429а 473а 517а 482а 442а 390а 339а 295а 539аа 48а 280а 236а 189а 137аа 85аа 50а 106а 150а 195а 247аа 11а 576

 

 

 

 

╚─┼└╦▄═█╔ ╠└├╚╫┼╤╩╚╔ ╩┬└─╨└╥ ╧╬╨▀─╩└ n = 32

╓┼╧▄ └╦┼╩╤└═─╨╬┬└ :а 1 32 18 20 22 24 26 28 30 29 27 25 23 21 19 17 31 2 16 14 12 10 8 6 4 3 5 7 9 11 13 15

 

аа 1 1010а 566а 634а 702а 763а 823а 883а 959а 912а 844а 776а 708а 645а 585а 525а 961аа 50а 502а 442а 382а 315а 247а 179а 127аа 80а 140а 200а 260а 325а 393а 461

а395а 463аа 32 1012а 568а 636а 701а 761а 821а 881а 930а 910а 842а 774а 707а 647а 587а 527а 992аа 52а 504а 444а 381а 313а 245а 177аа 98аа 78а 138а 198а 259а 327

а261а 329а 397а 449аа 18 1014а 570а 638а 699а 759а 819а 895а 944а 908а 840а 772а 709а 649а 589а 513а 978аа 54а 506а 446а 379а 311а 243а 191а 112аа 76а 136а 196

а134а 195а 263а 331а 399а 480аа 20 1016а 572а 637а 697а 757а 817а 866а 942а 906а 838а 771а 711а 651а 591а 544а 980аа 56а 508а 445а 377а 309а 241а 162а 110аа 74

а108аа 72а 132а 197а 265а 333а 385а 466аа 22 1018а 574а 635а 695а 755а 831 а880а 940а 904а 836а 773а 713а 653а 577а 530а 982аа 58а 510а 443а 375а 307а 255а 176

а226а 174а 106аа 70а 131а 199а 267а 335а 416а 468аа 24 1020а 573а 633а 693а 753а 802а 878а 938а 902а 835а 775а 715а 655а 608а 532а 984аа 60а 509а 441а 373а 305

а371а 319а 240а 172а 104аа 68а 133а 201а 269а 321а 402а 470аа 26 1022а 571а 631а 691а 767а 816а 876а 936а 900а 837а 777а 717а 641а 594а 534а 986аа 62а 507а 439

а505а 437а 369а 290а 238а 170а 102аа 67а 135а 203а 271а 352а 404а 472аа 28 1021а 569а 629а 689а 738а 814а 874а 934а 899а 839а 779а 719а 672а 596а 536а 988аа 61

а990аа 59а 503а 435а 383а 304а 236а 168а 100аа 69а 137а 205а 257а 338а 406а 474аа 30 1019а 567а 627а 703а 752а 812а 872а 932а 901а 841а 781а 705а 658а 598а 538

а600а 540а 989аа 57а 501а 433а 354а 302а 234а 166аа 99аа 71а 139а 207а 288а 340а 408а 476аа 29 1017а 565а 625а 674а 750а 810а 870а 931а 903а 843а 783а 736а 660

а722а 662а 602а 542а 987аа 55а 499а 447а 368а 300а 232а 164а 101аа 73а 141а 193а 274а 342а 410а 478аа 27 1015а 563а 639а 688а 748а 808а 868а 933а 905а 845а 769

а847а 800а 724а 664а 604а 541а 985аа 53а 497а 418а 366а 298а 230а 163а 103аа 75а 143а 224а 276а 344а 412а 477аа 25 1013а 561а 610а 686а 746а 806а 867а 935а 907

а937а 909а 833а 786а 726а 666а 606а 539а 983аа 51а 511а 432а 364а 296а 228 а165а 105аа 77а 129а 210а 278а 346а 414а 475аа 23 1011а 575а 624а 684а 744а 804а 869

а803а 871а 939а 911а 864а 788а 728а 668а 605а 537а 981аа 49а 482а 430а 362а 294а 227а 167а 107аа 79а 160а 212а 280а 348а 413а 473аа 21 1009а 546а 622а 682а 742

а680а 740а 805а 873а 941а 897а 850а 790а 730а 670а 603а 535а 979аа 63а 496а 428а 360а 292а 229а 169а 109аа 65а 146а 214а 282а 350а 411а 471аа 19 1023а 560а 620

а558а 618а 678а 739а 807а 875а 943а 928а 852а 792а 732а 669а 601а 533а 977аа 34а 494а 426а 358а 291а 231а 171а 111аа 96а 148а 216а 284а 349а 409а 469аа 17а 994

а 31 1008а 556а 616а 676а 741а 809а 877а 929а 914а 854а 794а 734а 667а 599а 531а 991аа 48а 492а 424а 356а 293а 233а 173аа 97аа 82а 150а 218а 286а 347а 407а 467

а405а 465ааа 2 1006а 554а 614а 675а 743а 811а 879а 960а 916а 856а 796а 733а 665а 597а 529а 962аа 46а 490а 422а 355а 295а 235а 175а 128аа 84а 152а 220а 285а 345

а283а 343а 403а 479аа 16 1004а 552а 612а 677а 745а 813а 865а 946а 918а 858а 798а 731а 663а 595а 543а 976аа 44а 488а 420а 357а 297а 237а 161а 114аа 86а 154а 222

а156а 221а 281а 341а 401а 450аа 14 1002а 550а 611а 679а 747а 815а 896а 948а 920а 860а 797а 729а 661а 593а 514а 974аа 42а 486а 419а 359а 299а 239а 192а 116аа 88

а118аа 90а 158а 219а 279а 339а 415а 464аа 12 1000а 548а 613а 681а 749а 801а 882а 950а 922а 862а 795а 727а 659а 607а 528а 972аа 40а 484а 421а 361а 301а 225а 178

а256а 180а 120аа 92а 157а 217а 277а 337а 386а 462аа 10а 998а 547а 615а 683а 751а 832а 884а 952а 924а 861а 793а 725а 657а 578а 526а 970аа 38а 483а 423а 363а 303

а365а 289а 242а 182а 122аа 94а 155а 215а 275а 351а 400а 460ааа 8а 996а 549а 617а 685а 737а 818а 886а 954а 926а 859а 791а 723а 671а 592а 524а 968аа 36а 485а 425

а487а 427а 367а 320а 244а 184а 124аа 93а 153а 213а 273а 322а 398а 458ааа 6а 995а 551а 619а 687а 768а 820а 888а 956а 925а 857а 789а 721а 642а 590а 522а 966аа 35

а964аа 37а 489а 429а 353а 306а 246а 186а 126аа 91а 151а 211а 287а 336а 396а 456ааа 4а 997а 553а 621а 673а 754а 822а 890а 958а 923а 855а 787а 735а 656а 588а 520

а586а 518а 963аа 39а 491а 431а 384а 308а 248а 188а 125аа 89а 149а 209а 258а 334а 394а 454ааа 3а 999а 555а 623а 704а 756а 824а 892а 957а 921а 853а 785а 706а 654

а720а 652а 584а 516а 965аа 41а 493а 417а 370а 310а 250а 190а 123аа 87а 147а 223а 272а 332а 392а 452ааа 5 1001а 557а 609а 690а 758а 826а 894а 955а 919а 851а 799

а849а 770а 718а 650а 582а 515а 967аа 43а 495а 448а 372а 312а 252а 189а 121аа 85а 145а 194а 270а 330а 390а 451ааа 7 1003а 559а 640а 692а 760а 828а 893а 953а 917

а951а 915а 863а 784а 716а 648а 580а 517а 969аа 45а 481а 434а 374а 314а 254а 187а 119аа 83а 159а 208а 268а 328а 388а 453ааа 9 1005а 545а 626а 694а 762а 830а 891

а829а 889а 949а 913а 834а 782а 714а 646а 579а 519а 971аа 47а 512а 436а 376а 316а 253а 185а 117аа 81а 130а 206а 266а 326а 387а 455аа 11 1007а 576а 628а 696а 764

а698а 766а 827а 887а 947а 927а 848а 780а 712а 644а 581а 521а 973аа 33а 498а 438а 378а 318а 251а 183а 115аа 95а 144а 204а 264а 324а 389а 457аа 13а 993а 562а 630

а564а 632а 700а 765а 825а 885а 945а 898а 846а 778а 710а 643а 583а 523а 975аа 64а 500а 440а 380а 317а 249а 181а 113аа 66а 142а 202а 262а 323а 391а 459аа 15 1024

 

 

╟фхё№ яхЁт√х фтх  ўхщъш ш яЁртр  тхЄт№ Ўхяш └ыхъёрэфЁютр ъюьяюэє■Єё  шч ўшёхы p(i) яю ёыхфє■∙хщ ёїхьх:

 

аааааааааааааааааааааааааааааааааааааааааааааааааааа │

1,а n,аа , , , , , , Е , , │ 2,а n/2,а n/2 -2, n/2-4,а Е , 4 , 3 , 5 , Е , n/2-1

аааааааааааааааааааааааааааааааааааааааааааааааааааа │

 

╩трфЁрЄшъш чряюыэ ■Єё а ўшёырьш n + 1 - p(i) ачхЁъры№эю юЄэюёшЄхы№эю юёш ёшььхЄЁшш.а

 

╘юЁьшЁютрэшх яюыэющ ьрЄЁшЎ√ n x nа яюфЁюсэю юяшёрэю т ЁрсюЄха http://renuar911.narod.ru/IMQ12.html

 

┬юЄ ёюсёЄтхээю ш тёх Ёх°хэшх фы  яюыютшэ√ тёхї ╚╠╩а ўхЄэю-ўхЄэюую яюЁ фър .

 

 

╤шфэхщ

11 ьр  2008 у.