Law of cosines - triples: Difference between revisions

Line 378:

This REXX version used some optimization.

Instead of coding a general purpose subroutine (or function) to solve all of the

task's requirements,   it was decided

task's requirements,   it was decided to

to write three very-similar   '''do'''   loops (triple nested) to provide the

write three very similar   '''do'''   loops (triple nested) to provide the

answers for the three requirements.

Three arguments   (from the command line)   can be specified which indicates the

maximum ~~number~~ of triangle sides

maximum length of the triangle sides

(the default is   '''13''',   as per the task's requirement)   for each of the

three types of angles   ('''60º''', '''90º''', and '''120º''')   for

the triangles.   If the ~~number~~ of ~~sides~~ is ~~positive,   it indicates that the~~

the triangles.   If the maximum length of the triangle's number of

~~triangle~~ sides ~~are~~ ~~displayed~~,   as ~~well~~ as a ~~total~~

sides is positive,   it indicates that the triangle sides are

number of triangles found.

displayed,   as well as a total number of triangles found.

~~If the number of sides is negative,   only~~ the   ''number''   of triangles are

displayed   (using the ~~absolute value of the~~

negative number).

If the maximum length of the triangle sides is negative,   only

the   ''number''   of triangles are

displayed   (using the

absolute value of the negative number).

<lang rexx>/*REXX pgm finds integer sided triangles that satisfy Law of cosines for 60º, 90º, 120º.*/

parse arg s1 s2 s3 . /*obtain optional arguments from the CL*/