## $%MTXSUB## M[UMPS] by Example |

2-Jul–96, 6:54:35 Routine Save for Matrix Mathematics Library function $%MTXSUB^MATH ; ; Unless otherwise noted, the code below ; was approved in document X11/96–26 ; ; If corrections have been applied, ; first the original line appears, ; with three semicolons at the beginning of the line. ; ; Then the source of the correction is acknowledged, ; then the corrected line appears, followed by a ; line containing three semicolons. ; MTXSUB(A,B,R,ROWS,COLS) ; ; Subtract B[ROWS,COLS] from A[ROWS,COLS], ; result goes to R[ROWS,COLS] IF $DATA(A)<10 QUIT 0 IF $DATA(B)<10 QUIT 0 IF $GET(ROWS)<1 QUIT 0 IF $GET(COLS)<1 QUIT 0 ; NEW ROW,COL,ANY FOR ROW=1:1:ROWS FOR COL=1:1:COLS DO . KVALUE R(ROW,COL) SET ANY=0 . SET:$DATA(A(ROW,COL))#2 ANY=1 . SET:$DATA(B(ROW,COL))#2 ANY=1 . ; . ;;; SET:ANY R(ROW,COL)=$GET(A(ROW,COL)-$GET(B(ROW,COL)) . ; Eli Reidler (28 June 1996) . SET:ANY R(ROW,COL)=$GET(A(ROW,COL))-$GET(B(ROW,COL)) . ;;; . ; . QUIT QUIT 1 ;=== ; ; ;

Copyright © Standard Documents; 1977-2018 MUMPS Development Committee;

Copyright © Examples: 1995-2018 Ed de Moel;

Copyright © Annotations: 2003-2008 Jacquard Systems Research

Copyright © Annotations: 2008-2018 Ed de Moel.

*The information in this page is
NOT authoritative and subject to be modified
at any moment.Please consult the
appropriate (draft) language standard for an
authoritative definition.*

*Some specifications are "approved
for inclusion in a future standard". Note
that the MUMPS Development Committee cannot
guarantee that such future standards will
indeed be published.*

This page most recently updated on 30-Nov-2011, 20:06:23 .

For comments, contact Ed de Moel (demoel@jacquardsystems.com)