Question: Logical Subscripting

How to implement the following operation in Maple, as in MATLAB:

A(~isprime(A)) = 0

A =      0     3     2    13 
           5     0    11     0     
           0     0     7     0     
           0     0     0     0

Gracias

Please Wait...