Spiral Matrix Procedure in Maple -

-

I want to write a process to take square matrix and want to output it to a spiral matrix.

For example; 

  M: = matrix (3, [[1,2,3], [4,5,6], [7,8,9]]);   
 will start  
  S: = matrix (3, [[1,2,3], [8 9 4], [7, 6 , 5]]);   
 is starting in the upper left corner and by the time you do not reach the middle, every line is clockwise.  
 My first thought was that I should be able to call each element (M_i, j) from a matrix and tell where to go. I can write a different process for each class matrix where each of the elements of the given matrix should be moved. Since I could not work for it n.  
 What do I have for 3x3 metrics here  
  spiral: = proc (a1, a2, a3, b1, b2, b3, c1, c2 , C3) Local M, S; M: = matrix (3, [[A1, A2, A3], [B1, B2, B3], [C1, C2, C3]]); S: = Matrix (3, [[A1, A2, A3], [C2, C3, B1], [C1, B3, B2]]); Print (m); Print (s); End spiral (1,2,3,4,5,6,7,8,9);   
 It is very difficult for me to get information about the matrix in the maple. Any sign will be given if you use maple. Thank you.   
 
 
 I do not think this problem is a particularly compact solution. Here is a solution with which I have come. It moves in the form of a square matrix and gives another matrix which is the spiral of the input matrix.  
  spiral: = proc (M :: Matrix) local size, spiralCount, currentRow, currentCol, Mindex, K; Local spiral matrix; Size: = numelems (m [1]); Spiral number: = size; CurrentRow: = 1; CurrentCol: = 0; Mindex: = 0; Spiral matrix: = matrix (size, shape); While spiral count & gt; From 0 to 1 to spiral; Make current call: = currentCol + 1; Spiral matrix [current, current calculation]: = m [iquo (mindex, size) + 1, (mindex modern shape) + 1]; Mindex: = Mindex + 1; The end is: Calculate 1 to spiral from 1 to currentRow: = currentRow + 1; Spiral matrix [current, current calculation]: = m [iquo (mindex, size) + 1, (mindex modern shape) + 1]; Mindex: = Mindex + 1; End: For 1 to spiral, do -1 - current coil: = current call - 1; Spiral matrix [current, current calculation]: = m [iquo (mindex, size) + 1, (mindex modern shape) + 1]; Mindex: = Mindex + 1; End: To turn 1 to spiral, turn on the Country 2 to turn on: = current-row -1; Spiral matrix [current, current calculation]: = m [iquo (mindex, size) + 1, (mindex modern shape) + 1]; Mindex: = Mindex + 1; Ending: spiral count: = spiral number - 2; End: Return spiral matrix; End proc: & gt; Meters: = matrix ([[1,2,3], [4,5,6], [7,8,9]]); [1 2 3] [] m: = [4 5 6] [] [7 8 9] & gt; Spiral (m); [1 2 3] [] [8 9 4] [] [7 6 5]   
 Let me type this implementation and / or how I use the matrix.

Comments

Post a Comment

Popular posts from this blog

ios - Adding an SKSpriteNode to SKScene from a child SKSpriteNode -

-
I have a SKScene where I am adding an SKSpriteNode I have subclassed the SKSpriteNode class to create this node. In the subclass I am defining some SKActions on Sprite. What do I want to do when the end of this phantom ends the SKAction sequence, then I add a new Prayer node to this scene. How is this possible. The following code is mine: The code for the sequence is that I'm running on the Scansprinitode subclass (TEMissileNode): - SKAction * moveDown = [SKAction moveToY: Self.position.y - 20 Duration: 0.2]; SKAction * animation = [SKAction animateWithTextures: textures timePerFrame: time / 7]; SKAction * moveMissileProjectile = [SKAction Moving: Pointoffscreen Term: Time]; SKAction * group = [SKAction group: @ [animation, movement projectile]]; SKAction * Sequence = [SKAction Sequence: @ [Hilldown, Group, [SKAction removalFromParent]]]; [Self run action: sequence]; From the main scene, I call those actions that execute these tasks TEMissileNode * missile = [tmissil...
Read more

Matlab transpose a table vector -

-
An embarrassing simple question seems to be, but how can I move a Matlab table vector? aTableT = aTable '; I tried a standard syntax for the simple interaction of a line vector to a line vector aTable : ATableT = reshape (aTable, 1, Height (aTable)); and aTableT = rot90 (aTable); According to the head, the last time table should work for table, see. However, I get this error code: Error type in using table / permit (line 396) Undefined function 'permute' for the input arguments. Error in rot 90 (line 29) b = magnitude (b, [2 1 3: ndims (a)]); NB: fliplr is not useful either pretty sure I have covered clear angles - any ideas? Thanks! Try changing your table into an array, move it, then back to a table In other words, try doing this: aTableArray = table2array (aTable); ATableT = array 2table (aTableArray. '); I have also read the document for rot90 , and it says that rot90 is definitely working for tables Do, and I find you...
Read more

c# - Textbox not clickable but editable -

-
I have a small form with 10 text boxes, I have set them in the correct tab order. I want them on my tab service I was wondering if there is a way to set the text box so that they can be selected for editing until they are tabbed. That is ... I do not want the end user to edit the text box to click on them, I just want to make them editable through tabu. this should do the trick public partial category poor text box: Text Box {Safe Override Zero WndProc (Ref: Message Message) {if (m.msg == (Int) WM.LBUTTONDOWN) {Return; // mount down events} base.WndProc (ref m); }} Window message enum can be found. How to do this without anherizing: text box : class EatMouseDown: netwindows {safe override zero WndProc (ref message message) {if (m.msg == (int) WM.LBUTTONDOWN) {return; } Base.WandProc (Ref M); }} Safe Override Zero Onload (EventEurge E) {base.OnLoad (e); How to do this without any part: left a clean part, whatever is important, this can be a buggy but it works R...
Read more