FastPro Testing After Updata

[Bert Mariani]

Hello Azzeddine, Mahmoud

C:/ring/samples/UsingFastPro/MatrixScalar.ring  -- FAILS

C:/ring/samples/UsingFastPro/MatrixScalarDiv.ring  -- GOOD

Fails to Multiply by Scalar  k = 5 

RING ScalarMultiply() k*A = >C  
Start RING ScalarMultiply()  k*A => C       MatrixPrint: 5x5
|  1, 2, 3, 4, 5 |
|  1, 2, 3, 4, 5 |
|  1, 2, 3, 4, 5 |
|  1, 2, 3, 4, 5 |
|  1, 2, 3, 4, 5 |


>>> RING ScalarMultiply()  GOOD 
RESULT RING ScalarMultiply k*A => C      MatrixPrint: 5x5
|  5, 10, 15, 20, 25 |
|  5, 10, 15, 20, 25 |
|  5, 10, 15, 20, 25 |
|  5, 10, 15, 20, 25 |
|  5, 10, 15, 20, 25 |


#================================a========

FastPro FastPro Scalar Matrix A*k => C
FastPro   Scalar Matrix  A*k => C       MatrixPrint: 5x5
|  1, 2, 3, 4, 5 |
|  1, 2, 3, 4, 5 |
|  1, 2, 3, 4, 5 |
|  1, 2, 3, 4, 5 |
|  1, 2, 3, 4, 5 |


>>> FastPro Scalar Matrix  BAD
RESULT FastPro Scalar Matrix A*k => C       MatrixPrint: 5x5
|  1, 2, 3, 4, 5 |
|  1, 2, 3, 4, 5 |
|  1, 2, 3, 4, 5 |
|  1, 2, 3, 4, 5 |
|  1, 2, 3, 4, 5 |

Finished Testing
=======================

SPEED TESTING  Array: 500x500 x 9
RING ScalarMultiply  Time: 137
FastPro Scalar Matrix  Time: 28

///////////////////////////////////////////////

SCALAR-DIVIDE =  GOOD 

Divide by Scalar k = 3

aListA       MatrixPrint: 5x5
|  1, 2, 3, 4, 5 |
|  2, 3, 4, 5, 6 |
|  3, 4, 5, 6, 7 |
|  4, 5, 6, 7, 8 |
|  5, 6, 7, 8, 9 |

Ring DivByNum       MatrixPrint: 5x5
|  0.33, 0.67, 1, 1.33, 1.67 |
|  0.67, 1, 1.33, 1.67, 2 |
|  1, 1.33, 1.67, 2, 2.33 |
|  1.33, 1.67, 2, 2.33, 2.67 |
|  1.67, 2, 2.33, 2.67, 3 |

FastPro ScalarDiv       MatrixPrint: 5x5
|  0.33, 0.67, 1, 1.33, 1.67 |
|  0.67, 1, 1.33, 1.67, 2 |
|  1, 1.33, 1.67, 2, 2.33 |
|  1.33, 1.67, 2, 2.33, 2.67 |
|  1.67, 2, 2.33, 2.67, 3 |

FastPro DivByNum 500x500 Time 7 millisecs
RING DivByNum 500x500 Time 238 millisecs

FINISHED

[Azzeddine Remmal]

Hello Bert
My results are correct. 

========================================================================

Loading Library

RING ScalarMultiply() k*A = >C

Start RING ScalarMultiply() k*A => C MatrixPrint: 5x5

| 1, 2, 3, 4, 5 |

| 1, 2, 3, 4, 5 |

| 1, 2, 3, 4, 5 |

| 1, 2, 3, 4, 5 |

| 1, 2, 3, 4, 5 |

>>> RING ScalarMultiply() >>>>>>>>>>>>>>>>

RESULT RING ScalarMultiply k*A => C MatrixPrint: 5x5

| 5, 10, 15, 20, 25 |

| 5, 10, 15, 20, 25 |

| 5, 10, 15, 20, 25 |

| 5, 10, 15, 20, 25 |

| 5, 10, 15, 20, 25 |

#================================a========

FastPro FastPro Scalar Matrix A*k => C

FastPro Scalar Matrix A*k => C MatrixPrint: 5x5

| 1, 2, 3, 4, 5 |

| 1, 2, 3, 4, 5 |

| 1, 2, 3, 4, 5 |

| 1, 2, 3, 4, 5 |

| 1, 2, 3, 4, 5 |

>>> FastPro Scalar Matrix >>>>>>>>>>>>>>>>

RESULT FastPro Scalar Matrix A*k => C MatrixPrint: 5x5

| 5, 10, 15, 20, 25 |

| 5, 10, 15, 20, 25 |

| 5, 10, 15, 20, 25 |

| 5, 10, 15, 20, 25 |

| 5, 10, 15, 20, 25 |

Finished Testing

=======================

SPEED TESTING Array: 500x500 x 9

RING ScalarMultiply Time: 721

FastPro Scalar Matrix Time: 148

=====================================================================

Best regards.

[Bert Mariani]

Hi Azzeddine 

===========================

Ran the Script again --

Found the Script: Line 48:   was missing the parm #4    "k"    (k =5)  so it "defaulted to 1

      aListC = updateList(aListA, :scalar,: matrix, k) 

Now Works.

#================================a========

FastPro FastPro Scalar Matrix A*k => C
FastPro   Scalar Matrix  A*k => C       MatrixPrint: 5x5
|  1, 2, 3, 4, 5 |
|  1, 2, 3, 4, 5 |
|  1, 2, 3, 4, 5 |
|  1, 2, 3, 4, 5 |
|  1, 2, 3, 4, 5 |


>>> FastPro Scalar Matrix >>>>>>>>>>>>>>>>
RESULT FastPro Scalar Matrix A*k => C       MatrixPrint: 5x5
|  5, 10, 15, 20, 25 |
|  5, 10, 15, 20, 25 |
|  5, 10, 15, 20, 25 |
|  5, 10, 15, 20, 25 |
|  5, 10, 15, 20, 25 |


Finished Testing
=======================

[Mahmoud Fayed]

Hello Bert, Azzeddine

Thank you very much for testing & updating the sample

Applied in this commit:  Update samples/UsingFastPro/MatrixScalar.ring - Revised by Bert Mariani · ring-lang/ring@fd90d6d

Greetings,

Mahmoud