Sponsored links: Algebra eBooks
 

Related

join

a:[1,2,3];

b:[4,5,6];

join(a,b);

Calculate

join

a:[1,2,3];

b:[4,5,6];

join(a,b);

Calculate

join-sin

l1: [a, sin(b), c!, d...

join (l1, [1, 2, 3, ...

join (l1, [aa, bb, c...

Calculate

join

Run Example
(%i1)L1: [a, sin(b), c!, d - 1];
(%o1)                       [a, sin(b), c!, d - 1]
(%i2)  join (L1, [1, 2, 3, 4]);
(%o2)                 [a, 1, sin(b), 2, c!, 3, d - 1, 4]
(%i3)  join (L1, [aa, bb, cc, dd, ee, ff]);
(%o3)               [a, aa, sin(b), bb, c!, cc, d - 1, dd]
(%i4) 
Run Example
a:2;
(%o1)                                  2
(%i2) b:3;
(%o2)                                  3
(%i3) n:200;
(%o3)                                 200
(%i4) dx:(b-a)/n;
                                       1
(%o4)                                 ---
                                      200
(%i5) f(x):=x^2;
                                           2
(%o5)                             f(x) := x
(%i6) listax:makelist([a+i*dx,0],i,1,n);
        401       201       403       101       81       203       407
(%o6) [[---, 0], [---, 0], [---, 0], [---, 0], [--, 0], [---, 0], [---, 0], 
        200       100       200       50        40       100       200
 51       409       41       411       103       413       207       83
[--, 0], [---, 0], [--, 0], [---, 0], [---, 0], [---, 0], [---, 0], [--, 0], 
 25       200       20       200       50        200       100       40
 52       417       209       419       21       421       211       423
[--, 0], [---, 0], [---, 0], [---, 0], [--, 0], [---, 0], [---, 0], [---, 0], 
 25       200       100       200       10       200       100       200
 53       17       213       427       107       429       43       431
[--, 0], [--, 0], [---, 0], [---, 0], [---, 0], [---, 0], [--, 0], [---, 0], 
 25       8        100       200       50        200       20       200
 54       433       217       87       109       437       219       439
[--, 0], [---, 0], [---, 0], [--, 0], [---, 0], [---, 0], [---, 0], [---, 0], 
 25       200       100       40       50        200       100       200
 11       441       221       443       111       89       223       447
[--, 0], [---, 0], [---, 0], [---, 0], [---, 0], [--, 0], [---, 0], [---, 0], 
 5        200       100       200       50        40       100       200
 56       449       9       451       113       453       227       91
[--, 0], [---, 0], [-, 0], [---, 0], [---, 0], [---, 0], [---, 0], [--, 0], 
 25       200       4       200       50        200       100       40
 57       457       229       459       23       461       231       463
[--, 0], [---, 0], [---, 0], [---, 0], [--, 0], [---, 0], [---, 0], [---, 0], 
 25       200       100       200       10       200       100       200
 58       93       233       467       117       469       47       471
[--, 0], [--, 0], [---, 0], [---, 0], [---, 0], [---, 0], [--, 0], [---, 0], 
 25       40       100       200       50        200       20       200
 59       473       237       19       119       477       239       479
[--, 0], [---, 0], [---, 0], [--, 0], [---, 0], [---, 0], [---, 0], [---, 0], 
 25       200       100       8        50        200       100       200
 12       481       241       483       121       97       243       487
[--, 0], [---, 0], [---, 0], [---, 0], [---, 0], [--, 0], [---, 0], [---, 0], 
 5        200       100       200       50        40       100       200
 61       489       49       491       123       493       247       99
[--, 0], [---, 0], [--, 0], [---, 0], [---, 0], [---, 0], [---, 0], [--, 0], 
 25       200       20       200       50        200       100       40
 62       497       249       499       5       501       251       503
[--, 0], [---, 0], [---, 0], [---, 0], [-, 0], [---, 0], [---, 0], [---, 0], 
 25       200       100       200       2       200       100       200
 63       101       253       507       127       509       51       511
[--, 0], [---, 0], [---, 0], [---, 0], [---, 0], [---, 0], [--, 0], [---, 0], 
 25       40        100       200       50        200       20       200
 64       513       257       103       129       517       259       519
[--, 0], [---, 0], [---, 0], [---, 0], [---, 0], [---, 0], [---, 0], [---, 0], 
 25       200       100       40        50        200       100       200
 13       521       261       523       131       21       263       527
[--, 0], [---, 0], [---, 0], [---, 0], [---, 0], [--, 0], [---, 0], [---, 0], 
 5        200       100       200       50        8        100       200
 66       529       53       531       133       533       267       107
[--, 0], [---, 0], [--, 0], [---, 0], [---, 0], [---, 0], [---, 0], [---, 0], 
 25       200       20       200       50        200       100       40
 67       537       269       539       27       541       271       543
[--, 0], [---, 0], [---, 0], [---, 0], [--, 0], [---, 0], [---, 0], [---, 0], 
 25       200       100       200       10       200       100       200
 68       109       273       547       137       549       11       551
[--, 0], [---, 0], [---, 0], [---, 0], [---, 0], [---, 0], [--, 0], [---, 0], 
 25       40        100       200       50        200       4        200
 69       553       277       111       139       557       279       559
[--, 0], [---, 0], [---, 0], [---, 0], [---, 0], [---, 0], [---, 0], [---, 0], 
 25       200       100       40        50        200       100       200
 14       561       281       563       141       113       283       567
[--, 0], [---, 0], [---, 0], [---, 0], [---, 0], [---, 0], [---, 0], [---, 0], 
 5        200       100       200       50        40        100       200
 71       569       57       571       143       573       287       23
[--, 0], [---, 0], [--, 0], [---, 0], [---, 0], [---, 0], [---, 0], [--, 0], 
 25       200       20       200       50        200       100       8
 72       577       289       579       29       581       291       583
[--, 0], [---, 0], [---, 0], [---, 0], [--, 0], [---, 0], [---, 0], [---, 0], 
 25       200       100       200       10       200       100       200
 73       117       293       587       147       589       59       591
[--, 0], [---, 0], [---, 0], [---, 0], [---, 0], [---, 0], [--, 0], [---, 0], 
 25       40        100       200       50        200       20       200
 74       593       297       119       149       597       299       599
[--, 0], [---, 0], [---, 0], [---, 0], [---, 0], [---, 0], [---, 0], [---, 0], 
 25       200       100       40        50        200       100       200
[3, 0]]
(%i7) listay:makelist([a+i*dx,f(a+i*dx)],i,1,n);
        401  160801    201  40401    403  162409    101  10201    81  6561
(%o7) [[---, ------], [---, -----], [---, ------], [---, -----], [--, ----], 
        200  40000     100  10000    200  40000     50   2500     40  1600
 203  41209    407  165649    51  2601    409  167281    41  1681
[---, -----], [---, ------], [--, ----], [---, ------], [--, ----], 
 100  10000    200  40000     25  625     200  40000     20  400
 411  168921    103  10609    413  170569    207  42849    83  6889
[---, ------], [---, -----], [---, ------], [---, -----], [--, ----], 
 200  40000     50   2500     200  40000     100  10000    40  1600
 52  2704    417  173889    209  43681    419  175561    21  441
[--, ----], [---, ------], [---, -----], [---, ------], [--, ---], 
 25  625     200  40000     100  10000    200  40000     10  100
 421  177241    211  44521    423  178929    53  2809    17  289
[---, ------], [---, -----], [---, ------], [--, ----], [--, ---], 
 200  40000     100  10000    200  40000     25  625     8   64
 213  45369    427  182329    107  11449    429  184041    43  1849
[---, -----], [---, ------], [---, -----], [---, ------], [--, ----], 
 100  10000    200  40000     50   2500     200  40000     20  400
 431  185761    54  2916    433  187489    217  47089    87  7569
[---, ------], [--, ----], [---, ------], [---, -----], [--, ----], 
 200  40000     25  625     200  40000     100  10000    40  1600
 109  11881    437  190969    219  47961    439  192721    11  121
[---, -----], [---, ------], [---, -----], [---, ------], [--, ---], 
 50   2500     200  40000     100  10000    200  40000     5   25
 441  194481    221  48841    443  196249    111  12321    89  7921
[---, ------], [---, -----], [---, ------], [---, -----], [--, ----], 
 200  40000     100  10000    200  40000     50   2500     40  1600
 223  49729    447  199809    56  3136    449  201601    9  81
[---, -----], [---, ------], [--, ----], [---, ------], [-, --], 
 100  10000    200  40000     25  625     200  40000     4  16
 451  203401    113  12769    453  205209    227  51529    91  8281
[---, ------], [---, -----], [---, ------], [---, -----], [--, ----], 
 200  40000     50   2500     200  40000     100  10000    40  1600
 57  3249    457  208849    229  52441    459  210681    23  529
[--, ----], [---, ------], [---, -----], [---, ------], [--, ---], 
 25  625     200  40000     100  10000    200  40000     10  100
 461  212521    231  53361    463  214369    58  3364    93  8649
[---, ------], [---, -----], [---, ------], [--, ----], [--, ----], 
 200  40000     100  10000    200  40000     25  625     40  1600
 233  54289    467  218089    117  13689    469  219961    47  2209
[---, -----], [---, ------], [---, -----], [---, ------], [--, ----], 
 100  10000    200  40000     50   2500     200  40000     20  400
 471  221841    59  3481    473  223729    237  56169    19  361
[---, ------], [--, ----], [---, ------], [---, -----], [--, ---], 
 200  40000     25  625     200  40000     100  10000    8   64
 119  14161    477  227529    239  57121    479  229441    12  144
[---, -----], [---, ------], [---, -----], [---, ------], [--, ---], 
 50   2500     200  40000     100  10000    200  40000     5   25
 481  231361    241  58081    483  233289    121  14641    97  9409
[---, ------], [---, -----], [---, ------], [---, -----], [--, ----], 
 200  40000     100  10000    200  40000     50   2500     40  1600
 243  59049    487  237169    61  3721    489  239121    49  2401
[---, -----], [---, ------], [--, ----], [---, ------], [--, ----], 
 100  10000    200  40000     25  625     200  40000     20  400
 491  241081    123  15129    493  243049    247  61009    99  9801
[---, ------], [---, -----], [---, ------], [---, -----], [--, ----], 
 200  40000     50   2500     200  40000     100  10000    40  1600
 62  3844    497  247009    249  62001    499  249001    5  25
[--, ----], [---, ------], [---, -----], [---, ------], [-, --], 
 25  625     200  40000     100  10000    200  40000     2  4
 501  251001    251  63001    503  253009    63  3969    101  10201
[---, ------], [---, -----], [---, ------], [--, ----], [---, -----], 
 200  40000     100  10000    200  40000     25  625     40   1600
 253  64009    507  257049    127  16129    509  259081    51  2601
[---, -----], [---, ------], [---, -----], [---, ------], [--, ----], 
 100  10000    200  40000     50   2500     200  40000     20  400
 511  261121    64  4096    513  263169    257  66049    103  10609
[---, ------], [--, ----], [---, ------], [---, -----], [---, -----], 
 200  40000     25  625     200  40000     100  10000    40   1600
 129  16641    517  267289    259  67081    519  269361    13  169
[---, -----], [---, ------], [---, -----], [---, ------], [--, ---], 
 50   2500     200  40000     100  10000    200  40000     5   25
 521  271441    261  68121    523  273529    131  17161    21  441
[---, ------], [---, -----], [---, ------], [---, -----], [--, ---], 
 200  40000     100  10000    200  40000     50   2500     8   64
 263  69169    527  277729    66  4356    529  279841    53  2809
[---, -----], [---, ------], [--, ----], [---, ------], [--, ----], 
 100  10000    200  40000     25  625     200  40000     20  400
 531  281961    133  17689    533  284089    267  71289    107  11449
[---, ------], [---, -----], [---, ------], [---, -----], [---, -----], 
 200  40000     50   2500     200  40000     100  10000    40   1600
 67  4489    537  288369    269  72361    539  290521    27  729
[--, ----], [---, ------], [---, -----], [---, ------], [--, ---], 
 25  625     200  40000     100  10000    200  40000     10  100
 541  292681    271  73441    543  294849    68  4624    109  11881
[---, ------], [---, -----], [---, ------], [--, ----], [---, -----], 
 200  40000     100  10000    200  40000     25  625     40   1600
 273  74529    547  299209    137  18769    549  301401    11  121
[---, -----], [---, ------], [---, -----], [---, ------], [--, ---], 
 100  10000    200  40000     50   2500     200  40000     4   16
 551  303601    69  4761    553  305809    277  76729    111  12321
[---, ------], [--, ----], [---, ------], [---, -----], [---, -----], 
 200  40000     25  625     200  40000     100  10000    40   1600
 139  19321    557  310249    279  77841    559  312481    14  196
[---, -----], [---, ------], [---, -----], [---, ------], [--, ---], 
 50   2500     200  40000     100  10000    200  40000     5   25
 561  314721    281  78961    563  316969    141  19881    113  12769
[---, ------], [---, -----], [---, ------], [---, -----], [---, -----], 
 200  40000     100  10000    200  40000     50   2500     40   1600
 283  80089    567  321489    71  5041    569  323761    57  3249
[---, -----], [---, ------], [--, ----], [---, ------], [--, ----], 
 100  10000    200  40000     25  625     200  40000     20  400
 571  326041    143  20449    573  328329    287  82369    23  529
[---, ------], [---, -----], [---, ------], [---, -----], [--, ---], 
 200  40000     50   2500     200  40000     100  10000    8   64
 72  5184    577  332929    289  83521    579  335241    29  841
[--, ----], [---, ------], [---, -----], [---, ------], [--, ---], 
 25  625     200  40000     100  10000    200  40000     10  100
 581  337561    291  84681    583  339889    73  5329    117  13689
[---, ------], [---, -----], [---, ------], [--, ----], [---, -----], 
 200  40000     100  10000    200  40000     25  625     40   1600
 293  85849    587  344569    147  21609    589  346921    59  3481
[---, -----], [---, ------], [---, -----], [---, ------], [--, ----], 
 100  10000    200  40000     50   2500     200  40000     20  400
 591  349281    74  5476    593  351649    297  88209    119  14161
[---, ------], [--, ----], [---, ------], [---, -----], [---, -----], 
 200  40000     25  625     200  40000     100  10000    40   1600
 149  22201    597  356409    299  89401    599  358801
[---, -----], [---, ------], [---, -----], [---, ------], [3, 9]]
 50   2500     200  40000     100  10000    200  40000
(%i8) plot2d([f(x),[discrete,join(listax,listay)]],[x,-5,5]);
plotplot2d([f(x),[discrete,join(listax,listay)]],[x,-5,5]);
Run Example
i:1;
(%o1)                                  1
(%i2)  m:1;
(%o2)                                  1
(%i3)  n:1;
(%o3)                                  1
(%i4) f:[[1,2],[1,3],[2,4]];
(%o4)                      [[1, 2], [1, 3], [2, 4]]
(%i5) g:[[2,a],[3,c],[4,d]];
(%o5)                      [[2, a], [3, c], [4, d]]
(%i6) tmp:[[0,0]];
(%o6)                              [[0, 0]]
(%i7) fg:[[1, 2], [1, a], [2, 2], [2, a]];
(%o7)                  [[1, 2], [1, a], [2, 2], [2, a]]
(%i8) for m:1 thru length(f) step 1 do (for n:1 thru length(g) step 1 do (tmp: create_list([j,k], j, f[m], k, g[n]),display(tmp), fg:join(tmp, fg) ));
                    tmp = [[1, 2], [1, a], [2, 2], [2, a]]

                    tmp = [[1, 3], [1, c], [2, 3], [2, c]]

                    tmp = [[1, 4], [1, d], [2, 4], [2, d]]

                    tmp = [[1, 2], [1, a], [3, 2], [3, a]]

                    tmp = [[1, 3], [1, c], [3, 3], [3, c]]

                    tmp = [[1, 4], [1, d], [3, 4], [3, d]]

                    tmp = [[2, 2], [2, a], [4, 2], [4, a]]

                    tmp = [[2, 3], [2, c], [4, 3], [4, c]]

                    tmp = [[2, 4], [2, d], [4, 4], [4, d]]

(%o8)                                done
(%i9) display(fg);
     fg = [[2, 4], [2, 3], [2, d], [2, 2], [4, 4], [2, c], [4, d], [1, 4]]

(%o9)                                done
(%i10) for i:1 thru length(fg) step 1 do (if fg[i][1] = fg[i][2] then display(fg[i-1]));
                                 fg  = [2, d]
                                   3

                                 fg  = [2, 2]
                                   4

(%o10)                               done
(%i11) 

Related Help

Help for Join