Ask Your Question

Revision history [back]

click to hide/show revision 1
initial version

asked 2014-02-21 10:09:39 -0500

SC gravatar image

How to compile an ipl file in the IPLAN compiler?

In my case, I only have used a given and compiled .irf to realize customize output for automatic running. I tried to compile the example given by IPLAN pdf document (see B.7 Sample Graphic Program in page B-19) with IPLAN33.exe. Somehow, the error shows the file can't even find!

The ipl file from the example, I called it TEST1.ipl and put it the folder where IPLAN33.exe is. So according to page 4-1 of the pdf, "Enter filename and options :" TEST1.ipl -RUN . And an error appears "File not found. TEST1.ipl -RUN (CPLRUN/OPNPTI)". Please see the screen capture C:\fakepath\IPLAN33.jpg, any suggestion?

How to compile an ipl file in the IPLAN compiler?

In my case, I only have used a given and compiled .irf to realize customize output for automatic running. I tried to compile the example given by IPLAN pdf document (see B.7 Sample Graphic Program in page B-19) with IPLAN33.exe. Somehow, the error shows the file can't even find!

The ipl file from the example, I called it TEST1.ipl (shown as below) and put it the folder where IPLAN33.exe is. So according to page 4-1 of the pdf, "Enter filename and options :" TEST1.ipl -RUN . And an error appears "File not found. TEST1.ipl -RUN (CPLRUN/OPNPTI)". Please see the screen capture C:\fakepath\IPLAN33.jpg, any suggestion?

PROGRAM TEST1
/*************************************************************************/
/* THIS PROGRAM DEMONSTRATES THE GRAPHICS SUBROUTINES OF IPLAN 6.0. */
/* IT PROVIDES EXAMPLES OF: SCALING FUNCTION VALUES TO A PLOTTING */
/* RANGE; CREATING BORDERS; GENERATING AND PLOTTING A SERIES OF */
/* POINTS; AND THE USE OF SEVERAL COMMON ACTIVITIES. */
/*************************************************************************/
INTEGER IER         ! ERROR CODE RETURNED BY GRAPHICS CALLS
INTEGER PLOTR       ! PLOTTING DEVICE NUMBER
INTEGER B       ! DUMMY INTEGER VALUE
INTEGER NDEC        ! NUMBER OF DECIMAL PLACES ON AXIS TIC-MARKS
REAL XBIG,XSML      ! LIMITS OF PLOTTER--RIGHT, LEFT EDGES
REAL YBIG,YSML      ! LIMITS OF PLOTTER--TOP, BOTTOM EDGES
REAL XMAX,XMIN      ! LARGEST, SMALLEST X-VALUES TO BE PLOTTED
REAL YMAX,YMIN      ! LARGEST, SMALLEST Y-VALUES TO BE PLOTTED
REAL MLEFT,MRIGHT       ! PLOT DEVICE SPACE ALLOWED FOR MARGINS
REAL TOP, BOT           ! PLOT DEVICE SPACE ALLOWED FOR MARGINS
REAL XBGN,XEND          ! STARTING, ENDING POSITIONS OF X-AXIS
REAL YBGN,YEND          ! STARTING, ENDING POSITIONS OF Y-AXIS
REAL XS,YS              ! LENGTHS OF X, Y-AXES
REAL XTIC,YTIC          ! CHANGE IN VALUES BETWEEN AXES’ TICK-MARKS
REAL XPT,YPT            ! SCALED PLOTTER POSITION-REPRESENTS (XVAL,YVAL)
REAL XVAL,YVAL          ! FUNCTION VALUES
STRING XTTL,YTTL,FX     ! X-AXIS, Y-AXIS, MAIN TITLES
B = PROMTC
SET END ’PTEXT END OF PROGRAM’
SET STOP ’TEXT END OF PROGRAM’

CALL SELECT(PLOTR,IER) ! SELECT PLOTTING DEVICE
  IF (IER <> 0) THEN
    PRINT ’ERROR IN SELECT ’
    STOP
  ENDIF

XMAX = 10.          ! MAXIMUM, MINIMUM NUMERICAL (FUNCTION)
XMIN = 0.           ! VALUES TO BE PLOTTED
YMAX = 100.
YMIN =-100.

TOP = 3.0       ! TOP MARGIN, IN SCREEN SPACES
BOT = 1.0       ! BOTTOM MARGIN
MRIGHT= 1.0         ! RIGHT MARGIN
MLEFT =1.0          ! LEFT MARGIN
XBIG = 20.0         ! CALL LAST DEVICE X-LOCATION 20.0, FIRST 0.0
XSML = 0.0      ! (PAGE IS DIVIED UP INTO A FIXED NUMBER OF
YBIG = 20.0         ! LOCATIONS WHICH VARIES WITH THE DEVICE.
YSML = 0.0      ! FRACTIONAL VALUES ARE ALLOWED.)
XBGN = XSML+MLEFT   ! STARTING PLOTS > .7 GIVES GOOD BORDER
YBGN = YSML+BOT
XEND = XBIG-MRIGHT
YEND = YBIG-TOP     ! TOP MARGIN IS BIGGER BECAUSE OF PLOT’S TITLE
NDEC = 2

CALL STARTPLT(PLOTR,XSML,XBIG,YSML,YBIG,10.0,IER)   ! DEFINE THE
IF (IER <> 0) THEN                  ! NUMBERING OF
 PRINT ’ERROR IN STRTPLOT’              ! DEVICE DIVISONS
 STOP                   ! # OF DIVISIONS~ DEVICE RESOLUTION
ENDIF

XTTL = ’TIME’ ! AXES’ TITLES
YTTL = ’MAGNITUDE’

XS = (XEND-XBGN) ! AXES LENGTHS IN PLOTTER DEVICE DIVISIONS
YS = (YEND-YBGN)
XTIC = (XMAX-XMIN)/(XS) ! NOTE: LOGIC ASSUMES XMAX > XMIN
YTIC = (YMAX-YMIN)/(YS) ! IN CALCULATION OF TIC-MARK DELTA

CALL AXISPRM(1.0,NDEC,IER)  ! SETS DEFAULT AXIS PARAMS
CALL THICK(2,IER)       ! SELECTS PEN THICKNESS (WIDTH)

CALL AXIS(XBGN,YBGN,XTTL,FALSE,XS,0.0,XMIN,XTIC,IER) ! DRAW AXES
CALL AXIS(XBGN,YBGN,YTTL,TRUE,YS,90.0,YMIN,YTIC,IER)

CALL MOVE(XEND,YBGN,IER)    ! DRAW A BORDER AROUND PLOTTING AREA...
CALL DRAW(XEND,YEND,IER)
CALL DRAW(XBGN,YEND,IER)

CALL AREA(3,TRUE,IER)       ! TEST SHADING FUNCTION...
CALL MOVE(XEND,YEND,IER)
CALL DRAW(XEND-2.0,YEND,IER)
CALL DRAW(XEND-2.0,YEND-2.0,IER)
CALL DRAW(XEND,YEND-2.0,IER)
CALL DRAW(XEND,YEND,IER)
CALL AREA(0,TRUE,IER)

/* CREATE A SAMPLE FUNCTION */

YVAL = 0.0
XVAL = 0.0
YPT = YBGN+((YVAL-YMIN)/(YMAX-YMIN))*(YS)
XPT = XBGN+((XVAL-XMIN)/(XMAX-XMIN))*(XS)
CALL MOVE(XPT,YPT,IER)      ! MOVE TO ORIGIN

XVAL = 0.0001           ! AVOID INFINITE VALUES
LOOP WHILE (XVAL<=XMAX)

    YVAL = 100.0*SIN(2.0*XVAL)*EXP(-XVAL/3.14)     ! EXAMPLE FUNCTION
    FX =’100.0*SIN(2.0*XVAL)*EXP(-XVAL/3.14)’      ! EXAMPLE FUNCTION STRNG

    YPT=YBGN+((YVAL-YMIN)/(YMAX-YMIN))*(YS) ! SCALE VALUE
    XPT=XBGN+((XVAL-XMIN)/(XMAX-XMIN))*(XS) ! TO A SCREEN (DEVICE) LOCATION
    CALL PLOT(XPT,YPT,2,IER) ! PLOT AT LOCATION
    XVAL=XVAL++0.015
ENDLOOP
/* LAY A TITLE IN THE TOP MARGIN */
CALL TEXT(XBGN,YEND+(TOP/2.0),0.60,’GRAPHICS EXAMPLE’,16,0.0,IER)
CALL PRINTTEXT(XBGN,YEND+(TOP/2.0)-.5,1.0,FX,100,1.0,IER)

CALL THICK(1,IER)
CALL LOGO (0.0,0.0,0.5,0.0,IER) ! PTI LOGO IN LOWER LEFT

CALL DASH(5,IER) ! FLOP DOWN A GRID
CALL GRID(XBGN,XEND,1.0,NINT(XS),0,YBGN,YEND,1.0,NINT(YS),0)

CALL NEXTPAGE(B,0,IER)  ! SHUT DOWN PLOTTING-USING NEXTPAGE IS RECOMMENDED
            ! FOR GRAPHICS DISPLAYS--KEEPS PLOT ON SCREEN
CALL CLOSEPLT(IER)

END

How to compile an ipl file in the IPLAN compiler?

In my case, I only have used a given and compiled .irf to realize customize output for automatic running. I tried to compile the example given by IPLAN pdf document (see B.7 Sample Graphic Program in page B-19) with IPLAN33.exe. Somehow, the error shows the file can't even find!

The ipl file from the example, I called it TEST1.ipl (shown as below) and put it the folder where IPLAN33.exe is. So according to page 4-1 of the pdf, "Enter filename and options :" TEST1.ipl -RUN . And an error appears "File not found. TEST1.ipl -RUN (CPLRUN/OPNPTI)". Please see the screen capture C:\fakepath\IPLAN33.jpg, any suggestion?.

After using the suggestions from EBahr and JConto, I changed work directory and also added double quatation marks to"TEST1.ipl" -RUN. And jump out an error image description

Allocation for inegers (707406378) failed (error code = 41) Unable to load program.

which I think the simulator is working, the code in TEST1.ipl is not working properly. How do you think?

PROGRAM TEST1
/*************************************************************************/
/* THIS PROGRAM DEMONSTRATES THE GRAPHICS SUBROUTINES OF IPLAN 6.0. */
/* IT PROVIDES EXAMPLES OF: SCALING FUNCTION VALUES TO A PLOTTING */
/* RANGE; CREATING BORDERS; GENERATING AND PLOTTING A SERIES OF */
/* POINTS; AND THE USE OF SEVERAL COMMON ACTIVITIES. */
/*************************************************************************/
INTEGER IER         ! ERROR CODE RETURNED BY GRAPHICS CALLS
INTEGER PLOTR       ! PLOTTING DEVICE NUMBER
INTEGER B       ! DUMMY INTEGER VALUE
INTEGER NDEC        ! NUMBER OF DECIMAL PLACES ON AXIS TIC-MARKS
REAL XBIG,XSML      ! LIMITS OF PLOTTER--RIGHT, LEFT EDGES
REAL YBIG,YSML      ! LIMITS OF PLOTTER--TOP, BOTTOM EDGES
REAL XMAX,XMIN      ! LARGEST, SMALLEST X-VALUES TO BE PLOTTED
REAL YMAX,YMIN      ! LARGEST, SMALLEST Y-VALUES TO BE PLOTTED
REAL MLEFT,MRIGHT       ! PLOT DEVICE SPACE ALLOWED FOR MARGINS
REAL TOP, BOT           ! PLOT DEVICE SPACE ALLOWED FOR MARGINS
REAL XBGN,XEND          ! STARTING, ENDING POSITIONS OF X-AXIS
REAL YBGN,YEND          ! STARTING, ENDING POSITIONS OF Y-AXIS
REAL XS,YS              ! LENGTHS OF X, Y-AXES
REAL XTIC,YTIC          ! CHANGE IN VALUES BETWEEN AXES’ TICK-MARKS
REAL XPT,YPT            ! SCALED PLOTTER POSITION-REPRESENTS (XVAL,YVAL)
REAL XVAL,YVAL          ! FUNCTION VALUES
STRING XTTL,YTTL,FX     ! X-AXIS, Y-AXIS, MAIN TITLES
B = PROMTC
SET END ’PTEXT END OF PROGRAM’
SET STOP ’TEXT END OF PROGRAM’

CALL SELECT(PLOTR,IER) ! SELECT PLOTTING DEVICE
  IF (IER <> 0) THEN
    PRINT ’ERROR IN SELECT ’
    STOP
  ENDIF

XMAX = 10.          ! MAXIMUM, MINIMUM NUMERICAL (FUNCTION)
XMIN = 0.           ! VALUES TO BE PLOTTED
YMAX = 100.
YMIN =-100.

TOP = 3.0       ! TOP MARGIN, IN SCREEN SPACES
BOT = 1.0       ! BOTTOM MARGIN
MRIGHT= 1.0         ! RIGHT MARGIN
MLEFT =1.0          ! LEFT MARGIN
XBIG = 20.0         ! CALL LAST DEVICE X-LOCATION 20.0, FIRST 0.0
XSML = 0.0      ! (PAGE IS DIVIED UP INTO A FIXED NUMBER OF
YBIG = 20.0         ! LOCATIONS WHICH VARIES WITH THE DEVICE.
YSML = 0.0      ! FRACTIONAL VALUES ARE ALLOWED.)
XBGN = XSML+MLEFT   ! STARTING PLOTS > .7 GIVES GOOD BORDER
YBGN = YSML+BOT
XEND = XBIG-MRIGHT
YEND = YBIG-TOP     ! TOP MARGIN IS BIGGER BECAUSE OF PLOT’S TITLE
NDEC = 2

CALL STARTPLT(PLOTR,XSML,XBIG,YSML,YBIG,10.0,IER)   ! DEFINE THE
IF (IER <> 0) THEN                  ! NUMBERING OF
 PRINT ’ERROR IN STRTPLOT’              ! DEVICE DIVISONS
 STOP                   ! # OF DIVISIONS~ DEVICE RESOLUTION
ENDIF

XTTL = ’TIME’ ! AXES’ TITLES
YTTL = ’MAGNITUDE’

XS = (XEND-XBGN) ! AXES LENGTHS IN PLOTTER DEVICE DIVISIONS
YS = (YEND-YBGN)
XTIC = (XMAX-XMIN)/(XS) ! NOTE: LOGIC ASSUMES XMAX > XMIN
YTIC = (YMAX-YMIN)/(YS) ! IN CALCULATION OF TIC-MARK DELTA

CALL AXISPRM(1.0,NDEC,IER)  ! SETS DEFAULT AXIS PARAMS
CALL THICK(2,IER)       ! SELECTS PEN THICKNESS (WIDTH)

CALL AXIS(XBGN,YBGN,XTTL,FALSE,XS,0.0,XMIN,XTIC,IER) ! DRAW AXES
CALL AXIS(XBGN,YBGN,YTTL,TRUE,YS,90.0,YMIN,YTIC,IER)

CALL MOVE(XEND,YBGN,IER)    ! DRAW A BORDER AROUND PLOTTING AREA...
CALL DRAW(XEND,YEND,IER)
CALL DRAW(XBGN,YEND,IER)

CALL AREA(3,TRUE,IER)       ! TEST SHADING FUNCTION...
CALL MOVE(XEND,YEND,IER)
CALL DRAW(XEND-2.0,YEND,IER)
CALL DRAW(XEND-2.0,YEND-2.0,IER)
CALL DRAW(XEND,YEND-2.0,IER)
CALL DRAW(XEND,YEND,IER)
CALL AREA(0,TRUE,IER)

/* CREATE A SAMPLE FUNCTION */

YVAL = 0.0
XVAL = 0.0
YPT = YBGN+((YVAL-YMIN)/(YMAX-YMIN))*(YS)
XPT = XBGN+((XVAL-XMIN)/(XMAX-XMIN))*(XS)
CALL MOVE(XPT,YPT,IER)      ! MOVE TO ORIGIN

XVAL = 0.0001           ! AVOID INFINITE VALUES
LOOP WHILE (XVAL<=XMAX)

    YVAL = 100.0*SIN(2.0*XVAL)*EXP(-XVAL/3.14)     ! EXAMPLE FUNCTION
    FX =’100.0*SIN(2.0*XVAL)*EXP(-XVAL/3.14)’      ! EXAMPLE FUNCTION STRNG

    YPT=YBGN+((YVAL-YMIN)/(YMAX-YMIN))*(YS) ! SCALE VALUE
    XPT=XBGN+((XVAL-XMIN)/(XMAX-XMIN))*(XS) ! TO A SCREEN (DEVICE) LOCATION
    CALL PLOT(XPT,YPT,2,IER) ! PLOT AT LOCATION
    XVAL=XVAL++0.015
ENDLOOP
/* LAY A TITLE IN THE TOP MARGIN */
CALL TEXT(XBGN,YEND+(TOP/2.0),0.60,’GRAPHICS EXAMPLE’,16,0.0,IER)
CALL PRINTTEXT(XBGN,YEND+(TOP/2.0)-.5,1.0,FX,100,1.0,IER)

CALL THICK(1,IER)
CALL LOGO (0.0,0.0,0.5,0.0,IER) ! PTI LOGO IN LOWER LEFT

CALL DASH(5,IER) ! FLOP DOWN A GRID
CALL GRID(XBGN,XEND,1.0,NINT(XS),0,YBGN,YEND,1.0,NINT(YS),0)

CALL NEXTPAGE(B,0,IER)  ! SHUT DOWN PLOTTING-USING NEXTPAGE IS RECOMMENDED
            ! FOR GRAPHICS DISPLAYS--KEEPS PLOT ON SCREEN
CALL CLOSEPLT(IER)

END
whit loves you.   Content on this site is licensed under a Creative Commons Attribution Share Alike 3.0 license.
about | faq | help | privacy policy | terms of service
Powered by Askbot version 0.7.55