fieker-DuValspielwiese
|
Last change
on this file since 7161aca was
894057,
checked in by Oleksandr Motsak <motsak@…>, 13 years ago
|
|
ADD: Tests from online manual (res+stat on mamawutz): short ones Tst/Manual/s.lst
|
-
Property mode set to
100644
|
|
File size:
798 bytes
|
| Line | |
|---|
| 1 | LIB "tst.lib"; tst_init(); |
|---|
| 2 | LIB "decodegb.lib"; |
|---|
| 3 | intvec vopt = option(get); |
|---|
| 4 | list l=FLpreprocess(3,1,11,2,""); |
|---|
| 5 | def r=l[1]; |
|---|
| 6 | setring r; |
|---|
| 7 | int s_work=l[2]; |
|---|
| 8 | //the check matrix of [11,6,5] ternary code |
|---|
| 9 | matrix h[5][11]=1,0,0,0,0,1,1,1,-1,-1,0, |
|---|
| 10 | 0,1,0,0,0,1,1,-1,1,0,-1, |
|---|
| 11 | 0,0,1,0,0,1,-1,1,0,1,-1, |
|---|
| 12 | 0,0,0,1,0,1,-1,0,1,-1,1, |
|---|
| 13 | 0,0,0,0,1,1,0,-1,-1,1,1; |
|---|
| 14 | matrix g=dual_code(h); |
|---|
| 15 | matrix x[1][6]; |
|---|
| 16 | matrix y[1][11]=encode(x,g); |
|---|
| 17 | //disturb with 2 errors |
|---|
| 18 | matrix rec[1][11]=errorInsert(y,list(2,4),list(1,-1)); |
|---|
| 19 | //the Fitzgerald-Lax system |
|---|
| 20 | ideal sys=sysFL(h,rec,2,1,s_work); |
|---|
| 21 | print(sys); |
|---|
| 22 | option(redSB); |
|---|
| 23 | ideal red_sys=std(sys); |
|---|
| 24 | red_sys; |
|---|
| 25 | // read the solutions from this redGB |
|---|
| 26 | // the points are (0,0,1) and (0,1,0) with error values 1 and -1 resp. |
|---|
| 27 | // use list points to find error positions; |
|---|
| 28 | points; |
|---|
| 29 | option(set,vopt); |
|---|
| 30 | tst_status(1);$ |
|---|
Note: See
TracBrowser
for help on using the repository browser.
