b'\n_START_ARTICLE_\nMATH-MATIC\n_START_SECTION_\nCaracter\xc3\xadsticas not\xc3\xa1veis\n_START_PARAGRAPH_\nAs express\xc3\xb5es em MATH-MATIC poderiam conter expoentes num\xc3\xa9ricos, incluindo decimais e fra\xc3\xa7\xc3\xb5es, por meio de uma m\xc3\xa1quina de escrever personalizada._NEWLINE_Os programas em MATH-MATIC poderiam incluir se\xc3\xa7\xc3\xb5es de inline assembler de c\xc3\xb3digo ARITH-MATIC e c\xc3\xb3digo de m\xc3\xa1quina do UNIVAC._NEWLINE_O UNIVAC I tinha somente 1000 palavras de mem\xc3\xb3ria, e o sucessor UNIVAC II t\xc3\xa3o pouco quanto 2000. O MATH-MATIC permitia programas maiores, gerando automaticamente o c\xc3\xb3digo para ler segmentos de sobreposi\xc3\xa7\xc3\xa3o de fitas UNISERVO como requerido. O computador tentava evitar loops divididos entre os segmentos.\n_START_SECTION_\nInflu\xc3\xaancia\n_START_PARAGRAPH_\nAo propor a colabora\xc3\xa7\xc3\xa3o com a ACM que levou ao ALGOL 58, o Gesellschaft f\xc3\xbcr Angewandte Mathematik und Mechanik escreveu que considerava a MATH-MATIC a linguagem mais pr\xc3\xb3xima dispon\xc3\xadvel da sua pr\xc3\xb3pria proposta._NEWLINE_Em contraste com o FORTRAN de Backus a MATH-MATIC n\xc3\xa3o enfatiza a velocidade de execu\xc3\xa7\xc3\xa3o dos programas compilados. As m\xc3\xa1quinas UNIVAC n\xc3\xa3o tem hardware para ponto flutuante, e a MATH-MATIC foi traduzida via c\xc3\xb3digo pseudo-assembler da A-3 (ARITH-MATIC) ao inv\xc3\xa9s de diretamente para c\xc3\xb3digo de m\xc3\xa1quina da UNIVAC, limitando sua utilidade.\n_START_SECTION_\nPrograma simples em MATH-MATIC\n_START_PARAGRAPH_\nUm programa simples em MATH-MATIC program:_NEWLINE_(2) \xc2\xa0TYPE-IN ALPHA ._NEWLINE__NEWLINE_(2A)\xc2\xa0READ A B C SERVO 4 STORAGE A IF SENTINEL JUMP TO SENTENCE 8 ._NEWLINE__NEWLINE_(3) \xc2\xa0READ D F SERVO 5 ._NEWLINE__NEWLINE_(4) \xc2\xa0VARY Y 1 (0.1) 3 SENTENCE 5 THRU 6 ._NEWLINE__NEWLINE_(5) \xc2\xa0X1 = (7*10\xc2\xb3*Y*A*SIN ALPHA)\xc2\xb3 / (B POW D+C POW E) ._NEWLINE__NEWLINE_(6) \xc2\xa0WRITE AND EDIT A Y D E X1 SERVO 6 ._NEWLINE__NEWLINE_(7) \xc2\xa0JUMP TO SENTENCE 2A ._NEWLINE__NEWLINE_(8) \xc2\xa0CLOSE-INPUT AND REWIND SENTENCE 3 ._NEWLINE__NEWLINE_(9) \xc2\xa0CLOSE-OUTPUT SENTENCE 6 ._NEWLINE__NEWLINE_(10)\xc2\xa0READ F G H N SERVO 4 STORAGE A IF SENTINEL JUMP TO SENTENCE 20 ._NEWLINE__NEWLINE_(11)\xc2\xa0EXECUTE SENTENCE 3 ._NEWLINE__NEWLINE_(12)\xc2\xa0X2 = (3 ROOT (E-G)+LOG (D+N)) / (F2.6*EXP H) ._NEWLINE__NEWLINE_(13)\xc2\xa0WRITE EDIT F D F X2 SERVO 6 ._NEWLINE__NEWLINE_(16)\xc2\xa0JUMP TO SENTENCE 10 ._NEWLINE__NEWLINE_(20)\xc2\xa0STOP .'