13.0.001_Plot_Subroutine 13.0.001 Plot Subroutine

Disclaimer

Although

this

program

was

tested

by

its

author

prior

to

submission,

no

warranty,

express

or

implied,

is

made

by

the

author,

1620 USERS

Group,

or

IB]\/f

as

to the

accuracy

and

functioning of the

program

and

material

and

no

responsibility

is

assumed

by the

• •

o

author,

1620 USERS Group,

or

IBM

in

connection

therewith.

0

o

0

1620 USERS GROUP PROGRAM REVIEW

AND

EVALUATION

(fill

out

in

typewriter

or

pencil,

do

not

use

ink)

Program

No.

_______

_

Da~

____________

__

Program

Name:

________________________________________________________

___

1. Does the

abstract

adequately

describe

what the proqram

is

and

what

it

does?

Comment

"----------------------------------------------

2.

Does

the

program

do

what

the

abstract

says?

Comment

3.

Is

the

Description

clear,

understandable,

and

adequate?

Comment

4.

"

Are

the

Operating

Instructions

Wlderstandable and

in

sufficient

detail?

Comment

Are

the Sense Switch options adequately

described

(if

applicable)?

Are the mnemonic

labels

identified

or

sufficiently

understandable?

Comment

50

Does

the

source

program

compile

satisfactorily

(if

applicable)?

Comment

6.

Does the

object

program

run

satisfactorily?

Comment

7.

Number

of

test

cases

run

•

Are

any

restrictions

as

to

data,

size,

range,

etc.

covered

adequately

in

description?

Comment

8. Does the

Program

Meet

the

minimal

standards

of

the

1620

Users

Group?

.

Comment

~--------------------------------------------

9. Were

all

necessary

parts

of the

program

received?

Comment

----------------------------------------------

Yes_

No

-

Yes_

No

-

Yes_

No

-

Yes_

No

-

Yes

No

--

Yes

No

--

Yes

-

No_

Yes_

No

-

Yes_No_

10.

Please

list

on

the

back

any

suggestions

to

improve

the

usefulness

of

the

program.

These

will

be

passed

onto the

author

for

his

consideration.

Please

return

to:

Your

Name

Mr.

Richard

L.

Pratt

Company

Data

Corporation

7500 Old Xenia

Pike

Address

.

Dayton, Ohio 45432

User

Group Code

___

"

___________

_

• THIS REVIEW FORM

IS

PART

OF THE 1620 USER GROUP ORGANIZATION'S PROGRAM

REVIEW

AND

EVALUATION PROCEDURE. NONMEMBERS ARE CORDIALLY INVITED

TO

PARTICIPATE

IN"

THIS EVALUATION. ,

I 11/09/64

o

-

I

•

PLOT

SUBROUTINE

FOR

THE

IBM

1620

FORMAT

FORTRAN

PROCESSOR

Jesse

H.

Poore,

Jr.

Computing

Center

University

of

Kentucky

Lexington,

Kentucky

March,

1962

Library

Code

3,43

Modifications

or

revisions

to

this

program,

as

they

occur,

will

be announced

in

the

appropriate

Catalog of

Programs

for

IBM

Data

Processing

Systems.

When

such

an

announce-

ment

occurs,

users

should

order

a complete new

program

from

the

Program

Information

Department.

, ,

/1

\

o o

TABLE

OF

CONTENTS

Page

Description

of

Subroutine

• • • • • •

•••••••••••

Output

•••••••••••••••••••••••••••

Flow

Chart

•••••

• 3

Sample

Problem

••

. 4

Program

Listing

• • • • • • • • • • • • • • • • • • • • • 17

I , ,

III

PLOT

SUBROUTINE

FOR

FORMAT

FORTRAN

Purpose:

This

subroutine

plots

up

to

9

curves

simultaneously.

Form

of

Statement:

where:

v =

PLOT

(FLT)

V

is

a

dummy

variable

name,

which

will

be

given

the

value

FLT

PLOT

is

the

call

name

of

the

functional

subroutine

FLT

is

a

floating

point

number

which

is

the

argument

of

the

subroutine

FLT

must

be

scaled

such

that

1.

<

FLT

<

80.

Description

of

Subroutine:

Only

the

integral

part

of

FLT

will

be

considered

by

this

subroutine.

The

first

time

PLOT

is

entered,

the

digit"

1"

will

be

stored

for

punching

in

column

FLT

of

the

card

(integral

part

of

FLT).

The

second

time

PLOT

is

entered

the

digit

"2"

will

be

stored

in

column

FLT

of

the

card.

If

the

argument

of

PLOT

should

happen

to

be

the

same

for

two

different

curves,

the

digit

representing

the

latter.

curve

will

be

plotted.

This

procedure

is

repeated

until:

1)

FLT

is

zero,

in

which

case

the

card

will

be

punched

as

arranged

by

the

A

zero

argument

will

clear

the

punch

area

to

blanks

and

ready

the

subroutine

for

the

of

points.

A

zero

argument

may

be

the

tenth

entry,

and

is

the

only

exception

to

the

following

paragraph.

2) A

tenth

entry,

which

is

forbidden

except

for

zero

argument

is

attempted.

In

this

event

the

message

"PLOT"

is

typed

to

signal

the

operator

that

an

attempt

at

plotting

10

curves

has

been

fruitlessly

attempted.

The

subroutine

initializes

and

as

a

consequence

of

violating

the

restrictions,

the

first

nine

curves

are

lost.

If

the

argument

(FLT)

is

out

of

range,

i.

e.

if

FLT

<

1.

or

if

FLT

>

80.,

the

argument

is

typed,

the

typewriter

spaces

once,

and

the

entrance

attempt

number

is

typed,

which

identifies

the

curve.

The

sequence

of

plots

is

not

disrupted

by

such

an

occurrence.

The

output

of

the

sample

problems

included

herein

was

listed

on

an

IBM

407

with

an

80-80

control

panel.

-1-

o o

In

the

listing

of

the

source

·program,

the

statement

labeled

Ll

and

the

three

following

statements

must

be

adjusted

to

agree

with

the

sub-

routine

number

for

various

compiler

decks.

Storage

Requirement:

550

digits

Reminder:

A

functional

subroutine

must

be

preceded

by

some

arithmetic

statement

before

it

is

called.

--

-2-

()

• r

F"LOvV

C

f.-I

A-

r<-

T

! .

~

clear

PtA

r1G

h

arl

-to

b

J:z..,.

1<5

I

Set

d..

te>

13v

fl

V\c...~i

1;D

(b

TYPE

~

~v..llve

,.v&.(.M~

,1

~

Z=

1.

W=.05

X=O.

Y=PLOT(SIN(Xl*39.+40.l

Y=PLOT(COS(Xl*39.+40.l

Y=PLOT(SIN(Xl/COS(Xl+l.

l

Y=PLOT(LOG(Wl+4.l

Y=PLOT(EXP(Xl)

Y=PLOTCZ)

Y=PLOT«EXP(Xl-EXP(-X»/2.+1.)

Y=PLOT(Z**(6./5.)l

Y=PLOT(13.+.301*X+.99876*X*X+.0076899*X*X*X)

Y=PLOT(O.Ol

8

8 4

78

4

768

4

784

7

684

7

68

X=X+.03491

Z=Z+.5

W=W+l.

GO

TO

1

STOP

END

9

7

648

9

7

68

9

7

648

9

7 6 8 9

7

46

8 9

7

46

8 9

7 4 6

89

7 4 6 9

7 4 6

98

7 4 6 q 8

7 4 6 9 8

75

4 6 9

75

4 6 9

75

4

69

75

4

69

75

4 9

75

4

69

7 4 9

7 4

96

7 4

96

7 4 9 6

75

4 9

75

4 9

75

4 9

75

4 9

753

4 9

1

1 1

1

8 8

B

8 8 8 8 8 8 8 8 8

6 8

c[

6 8

o~

2

1 2

2

1 2

2

1 2

12

21

2 1

2

2 1

2

753

4

75

3 4

75

3 4

7 5

34

7 5

43

9

6 8 2

75

4 3

75

4

75

4

75

4

6

6 6 3

3

8 2

2

8 2

82

2 8

8

75

4

754

3

9

6 2 8

8

7 5

43

7

534

735

4

754

6 2

7

54

6 2

26

2 6

3 7

54

3 7

54

3

754

3 7

54

3 7

54

3 7

54

9

9 2 6

7

54

7 5

7

45

9 2

92

9

29

7

45

2 9

7

45

2 9

74529

7 4

529

7 4

52

9

745

9

7 4

25

9

7

42

5

74

5

74

5

274

5

274

5

2 7

2

47

2

47

2

47

247

5

5 5

5

9

5 9

59

9

2 4 7

247

347

3 4

7

95

9 5

3 4

32

4

32

4

32

4

7

9

91

9

5

6

51

15

5

6

1

7

19

5

6

.:3

2 4

324

7 9 5

o

6

1

6

6 6

6

's

61

6

6 6

6

8

8.

6

8

6

8

---------

---

8

1

8

8 8

8 1

8

1 8

1

8

.1

8

1 8

1

8

1

8

1.

1 1

8

324

3 2 4

'324

324

3

24

3 4

3

42

3 4 2 1

3 4

21

3 4

12

3 4 1 2

3 4

3

41

3 4

3

14

3 4

31

4

31

4

3 4

3

3 4

4

4 3

4

3 4

1 3

13

4

3

o

4

1 4

4

14

4

41

4 1

4

3

1

2

3

7 1 9

719

7 9

1 7 9

5

179

1 7 9

2

7 9

79

9

97

9 7

297

2 9 7

2 9

29

92

3

92

5

7

9 2

1

3 9 2

b

9

5

7

2

9

9 9

9

5

7

2

9

2 2

9

7

2

9

2

9

5

7

6

5

6

5 6

6.

7

2

7

2

7

2

7

2 2

65

6 5

7

2

6 5

6 6

6

7

2

6

6 6

6

7

2 2

6

7

5

6

5

6

6 6

7 6

5

7

6 7

2

2-

2

6 7

6

2

6

6 6

6

2

o

5

7

6

• ~

0-

4 9 2 3 4 2

4 9 2 4 2

4 9 2 4 2 1

4 9 2 4 2

3 4 9 2 4 2

3 4 9 2

42

1

3 4 1 9 2

42

1

3 4 1 9 2 4

3 4 9 2

24

3 4 9 2 2 4 1

3 4 9 2

3 4 1 9

2"

3 4 1 9 2

3 4 9 2

3 4 1 9 2

3 4 9 2

3 4'

19

2

3 4

19

2

3 4 9 2

3 4

92

3 4

29

3 4 2

91

3 4 2 9

3 4 2

91

3 4 2

91

3 4 2 9 1

3 4 2

91

3 4 2

91

3 4 2

91

34

2 9

43

2 9

4 3 2

19

4 3 2 1 9

4 2 1 9

4 3 2

34

2

3 4 2

~

3 4 2

3 4 2 7

3 4 2

~

2

0 2

2 2

1 2 2

2 2

2

2 2

2 1 2 1

2 1

21

2 1

12

2 1 2

2 2

2 1 2

2 2

1 2 2

2 2

1 2 2

12

2

21

1 2

2 1 2

2 2

2

/9-

2

11

2

2 2

2

COMPUTER

2

TECHNOLOGY

2

2 2

2

2 2

2

2 2

2

2 2

2

o

2

1 2

12

2

21

2 1

1

2 2

('J

o

2

2 2

Ii

2

2 1

21

2

12

2 2

2

2 2

2

2 2

2

2 2

2

2 2

2

0

2

2 2

2

0

2

1 2

I'

2

/ 2

{~

2

~

JIe

2

1 2

12

2

~

2

~''''':'''''':'''':~·_·····-_·····~·';'·L;:;';;':''''';';~';;'·'-;';·'':'';;~~·~~·

.

'.lIf.oII._

..

'U",'_

"

.....

"""

•...

-~~

.....

-.~~

.......

,-.-

..

~

~"~----.--~--"

..

,

.....

-~.

J'

..

1

.....

9 ...

~~

;\

fORTRAN

PLOT

SUi3ROUT

I

~JE

JORG

05000 05000

START

NOP

L 1 ,

,0

05000

41

05096

OOOOG

0

TF~1

L3+6~OUTPUT+l,017

'05012

1'6

050L~2

o545b

L2

TFH

";'\"+9,80,01

0

0502

L

l-

16

05033

OJoEo

L3

TDH

QUTPUT+l,,02 05036

15

051~-58

OOJOJ

J:.JJ 1

.....

J5··)l;.]

~)JOJ

1 (j)

, "

AM

L3+6,1,010

050J~8

11

05042

00001

Siv1

L2+:9,1,010 05060

12

05033

00001

3:~~

~3,

,0

05072

~7

05036 01200

·(Ui·l START+l,9,O 05084

15

05001

00009

Ll

TF

60,19809,11 05096

26

00060 19809

SM

19809 2,.10 05108

12

19809

OOJOL

TF

58,19809,11 05120

26

00058

1)809

A>1

1

:)

,J09

, 2 , 1 0 05132

11

l;)aO;J 00002

3D

DIGIT,51,,0 05144

43

05194

00051

't/NCD

QUTPUT+l"O

05156

38

05458 00400

L5

TFI':1

PLOT,,010 05168

16

05202 00000

TDt·1

START+l,l,O 05180 15 05001

OO:JJ

1

83

05192

1~2

O.JJJJ

00000

DORG

..

'~

9

0519L~

" -

UIGIT

AH

PLOT,1,010 05194

11

05202 00801

Ct

v1

PLOT,10~010

05206 14 05202 00010

BE

PL

T ,

,0

05218

1+6

05434 01200

L6

TF;

\ i

1·

c

),'TPU"

'017

05230

16

05'376

05427

L.

·~+o

, '

..

iJ

• I

,I.

C!"1

60,1,10

05

:~L~2

14

00060

(lOOOl

3£

);~£JI~"J

Jr-..,

5

I,

r.

...

J53'-h~)

J12

)0

-

;>

l.

','

+J

··f

.:~u~

i1::j~:

~

, J J5266

"47

0538l~

01300

,~)

..

C;··'l

60,2,10

0527B

1l~

00060

00002

0

G:l

i{.~\NG

E ,

,0

05':90 46 05384 01100

CH

52,00,10

05302

14

00052

000'80

8:·\

RAI-lGE,

,0

05314

"46

05384 01100

A '4+'( 5' a 05326

21

05376 00052

L. 0 J

t.

~

;

..

~

L4, ,

()

05338

1+9

05370 00000

u

DORG

''(-3 05346

ONEOIG

TD

;1--+23,51,0

053

1

+6

25

05369

OOO~l

SI"1

L4+6, ,010 05358 12 05376 00000

L4

TO

~PLOT,l

05370

25

00000 05202

BS

053HZ

42

00000

00.000

DORG

"':--9

0538L~

RANGE

TD

61.

,401 05384

25

00061

00401

\'INTY

51

05396

38

00051

00100

SPTY

05400

3L~

00000

00101

VJNTY

PLOT"O 05420

',38

05202 00100

BS

05L~32

42

00000 00000

GORG

-1:--9

05L

:·34

PLT

V/ATY

PL

TX,

~

0 05434

39

0553:) 00100

8 L5

~

,0

054L

l-6

49 05168 00000

PUTOUT

DS

80

05537 00080

OUTPUT

PS

1,PUTOUT-80

05457

aqool

PLOT

OS

2,DIGIT+8 05202 00002

DC

1,@,DIGIT+9 05203

00001

*

PLTX

DAC

5,PLOT

05539

00005X2

PLOT

DEND

00000 0

END

OF

PASSII

11

.~--.-.~.~

.•..

-

......

"

..

13.0.001_Plot_Subroutine 13.0.001 Plot Subroutine

13.0.001_Plot_Subroutine 13.0.001_Plot_Subroutine

Navigation menu

Versions of this User Manual:

Views

Navigation