Sequences of index i, j...

Hello,

The following problem works if i = j.   I need help to fix this problem for i ≠ j.  Thanks

A := [1, 2, 3, 4, 5];

B := [a, b, c, d];

seq([A[i], B[j]], i = 1 .. 5, j = 1 .. 4);
Error, invalid input: seq expects its 3rd argument, step, to be of type numeric, but received j = 1 .. 4

All zero-one sequences of length N...

I want to write a procedure which recieves a natural N and print all the possible 2ˆN sequences of zeros and ones with size N.

For instance, if I set N = 3; my procedure returns a set with 8 lists of zeros and ones: [[0,0,0],[1,0,0],[0,1,0],[0,0,1][1,0,1],[0,1,1],[1,1,1]] ;

Many thanks!

Animation of two plot sequences of several arrays...

Hi everyone

Title might be misleading but couldn't come up with a short version of my problem.

The idea is to show an animation of several plots of an array, which all have different values in the positive and in the negative range. For distinguishing purposes I want to show positive values in a different colour than the negative values.

For better understanding imagine a chess board with the rows and columns and there are places with values, black chess pieces as positive values and white chess pieces as negative values. Each array in the sequence from A1 to An shows a movement.

For the plots I use sparsematrixplot which unfortunately just shows all non-zero values. So I seperated the original array and made two arrays, one with the positive values and one with the negative values. I am able to animate the sequence of several plots and can play the animation of two sequences consecutively with following:

A:=seq(sparsematrixplot(convert(H||g,matrix),color=green,view=[0..10,0..10]),g=1..G):
B:=seq(sparsematrixplot(convert(F||g,matrix),color=red,view=[0..10,0..10]),g=1..G):
display([A,B], insequence=true);

Hence my questions
1. Is it possible to plot an array with different colours for different values and can I animate these plots?

2. If not, is there a way to display the two plot sequences on top of each other?

paired sequence in reverse order...

Hi,

tmp:=seq([phi[5-j]*(1-p[6-j]),phi[5-j]*p[6-j]],j=1..4);
Vector(8,[seq(op(tmp[i]),i=1..4)]);

"tmp" is basically what I want. Some kind of 'paired' terms, indexed in reverse order.

I wonder if there is a better (perhaps more efficient and "direct") way to do it?

Thanks,

casper

Creat reverse order sequence...

Hi all,

seq(a[i],i=1..3);

Works fine.

seq(a[i],i=3..1);

gives nothing.

But if what I really want, is a ordered sequence

for i from 3 by -1 to 1 do

r:=[op(r),a[i]];

end do;

a[3],a[2],a[1]

What's the best way to get it? (apart from writing a loop)

Casper

worksheet modulo p...

Hey,

I'm currently working on sequences and can't figure out how to get all of the terms to work modp, is there an easy way of doing this instead of having to use mod(a,p) on each separate term?

Thanks

Rach

MRB Constant W

 (1)

What are the quotients  ot the  continued fration of the sum of

Here are the  quotients  of some partial sums.

 (2)

 (3)

 (4)

 (5)

 (6)

 (7)

 (8)

 (9)

 (10)

 (11)

 (12)

 (13)

 (14)

Here are the quotients of the  continued fration  of the sum.

 (15)

With the exception of the leading 0, that is close to the integer squence of pi.

 (16)

The exponents of 2 that sum the numerator and denominator, in the following way, of that multiple of pi give rise to the integer sequences {0,1,2,3,8,16},numbers such that floor[a(n)^2 / 7] is a square, and {0,2,3,4,8,16},{0,3} union powers of 2.

 (17)

We can do the same thing for the first 20 quotients giving rise to the integer sequences {0,1,2,5,6,8,10,13,17,19,22,23,24,28,31} and {0,4,6,9,12, 14,15,16,18,22, 23,24,28,31}. What can be said of these sequences?

 (18)

 (19)

 (20)

 Page 1 of 1
﻿