C Library Functions  - curvx (3)

NAME
curvx(3f) - [M_calcomp:scientific] plots a function of X over a given range (LICENSE:PD)

CONTENTS

Synopsis
Description
Options
Examples
License

SYNOPSIS
subroutine curvx(xo,xf,coeff1,exp1,coeff2,exp2,coeff3,exp3,coeff4,exp4)

DESCRIPTION

CURVX is a FORTRAN subroutine which plots a function of X over a given range.

OPTIONS

XO,XF are the starting and ending values of X. (These are assumed to be inches.)
COEFF1,COEFF2,COEFF3,COEFF4
  are the coefficients of the polynomial that defines the function to be plotted.
EXP1,EXP2,EXP3,EPX4
  are the exponents of the polynomial that defines the function to be plotted.

    COMMENTS

The polynomial that defines the function to be plotted is: 

       Y=COEFF1*X**EXP1+COEFF2*X**EXP2+COEFF3*X**EXP3+COEFF4*X**EXP4
for values of X from XO to XF, where deltaX=0.01. Since values of X are assumed to be inches, any scaling required must be performed before calling this subroutine. Errors may be generated if X is zero or negative.

EXAMPLES
Sample program 

   program demo_curvx
   use M_calcomp
   implicit none
   ! based on concepts of CALIFORNIA COMPUTER PRODUCTS, 1968
   character(len=50) :: ibcd
   integer           :: inteq
   ! INITIALIZE GRAPHICS
      call plots(0.0,10.0,0.0,10.0)
   ! DRAW FRAME
      call plot(7.0,0.0,2)
      call plot(7.0,9.0,2)
      call plot(0.0,9.0,2)
      call plot(0.0,0.0,2)
   ! COMMENTS ARE INSERTED
      ibcd=’SAMPLE OF SCIENTIFIC SUBROUTINES PACKAGE’
      call symbol(0.7,8.5,0.14,ibcd,inteq,0.0,40)
      ibcd=’USING CURVY SUBROUTINE’
      call symbol(0.7,4.25,0.14,ibcd,inteq,0.0,23)
      ibcd=’USING CURVX SUBROUTINE’
      call symbol(0.7,8.25,0.14,ibcd,inteq,0.0,23)
   ! TWO PAIRS OF AXES ARE DRAWN
      ibcd=’’
      call axis(1.0,4.75,ibcd,-1,5.0,0.0,0.0,1.0)
      call axis(1.0,4.75,ibcd, 1,3.0,90.0,0.0,1.0)
      call axis(1.0,0.75,ibcd,-1,5.0,0.0,0.0,1.0)
      call axis(1.0,0.75,ibcd, 1,3.0,90.0,0.0,1.0)
   ! CURVX IS DRAWN
      call plot(1.0,4.75,-3)
      call curvx(0.1,5.0,2.40,0.0,0.75,2.0,-0.525,3.0,0.075,4.0)
      call plot(-1.0,-4.75,-3)
   ! CURVY IS DRAWN
      call plot(1.0,0.75,-3)
      call curvy(0.1,3.0,9.0,1.26,-6.0,2.52,1.0,3.78,0.0,0.0)
      call plot(-1.0,-0.75,-3)
   ! EQUATIONS ARE DRAWN
      ibcd=’Y=0.075X**4-0.525X**3+0.75X**2+2.40’
      call symbol(3.0,7.75,0.09,ibcd,inteq,0.0,35)
      ibcd=’X=Y**3.78-6Y**2.52+9Y**1.26’
      call symbol(3.0,3.90,0.09,ibcd,inteq,0.0,27)
      call nframe()
   !  CLOSE GRAPHICS
      call plot(11.0,0.0,999)
   end program demo_curvx

LICENSE
Public Domain

Nemo Release 3.1 curvx (3) February 23, 2025
Generated by manServer 1.08 from aa3b9567-804e-409e-95f3-cc364e82322a using man macros.