62b27c73bb
* contrib/hbct/tests/addascii.prg
* contrib/hbct/tests/afteratn.prg
* contrib/hbct/tests/asciisum.prg
* contrib/hbct/tests/ascpos.prg
* contrib/hbct/tests/atadjust.prg
* contrib/hbct/tests/atnum.prg
* contrib/hbct/tests/atrepl.prg
* contrib/hbct/tests/attoken.prg
* contrib/hbct/tests/beforatn.prg
* contrib/hbct/tests/charadd.prg
* contrib/hbct/tests/charand.prg
* contrib/hbct/tests/chareven.prg
* contrib/hbct/tests/charhist.prg
* contrib/hbct/tests/charlist.prg
* contrib/hbct/tests/charmirr.prg
* contrib/hbct/tests/charmix.prg
* contrib/hbct/tests/charnlst.prg
* contrib/hbct/tests/charnot.prg
* contrib/hbct/tests/charodd.prg
* contrib/hbct/tests/charone.prg
* contrib/hbct/tests/charonly.prg
* contrib/hbct/tests/charor.prg
* contrib/hbct/tests/charrem.prg
* contrib/hbct/tests/charrepl.prg
* contrib/hbct/tests/charrll.prg
* contrib/hbct/tests/charrlr.prg
* contrib/hbct/tests/charshl.prg
* contrib/hbct/tests/charshr.prg
* contrib/hbct/tests/charslst.prg
* contrib/hbct/tests/charsort.prg
* contrib/hbct/tests/charsub.prg
* contrib/hbct/tests/charswap.prg
* contrib/hbct/tests/charxor.prg
* contrib/hbct/tests/csetarge.prg
* contrib/hbct/tests/csetatmu.prg
* contrib/hbct/tests/csetref.prg
* contrib/hbct/tests/ctwtest.prg
* contrib/hbct/tests/datetime.prg
* contrib/hbct/tests/expomant.prg
* contrib/hbct/tests/finan.prg
* contrib/hbct/tests/math.prg
* contrib/hbct/tests/num1.prg
* contrib/hbct/tests/numtoken.prg
* contrib/hbct/tests/rangerem.prg
* contrib/hbct/tests/rangerep.prg
* contrib/hbct/tests/setatlik.prg
* contrib/hbct/tests/strdiff.prg
* contrib/hbct/tests/tab.prg
* contrib/hbct/tests/token.prg
* contrib/hbct/tests/token2.prg
* contrib/hbct/tests/tokenlow.prg
* contrib/hbct/tests/tokensep.prg
* contrib/hbct/tests/tokenupp.prg
* contrib/hbct/tests/trig.prg
* contrib/hbct/tests/valpos.prg
* contrib/hbct/tests/wordone.prg
* contrib/hbct/tests/wordonly.prg
* contrib/hbct/tests/wordrem.prg
* contrib/hbct/tests/wordrepl.prg
* contrib/hbct/tests/wordswap.prg
* tests/stripem.prg
* tests/testbrw.prg
* formatting
! deleted relative directory in #include directive
265 lines
8.0 KiB
Plaintext
265 lines
8.0 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
* Test CT3 TRIGONOMETRIC functions - PART 1
|
|
* - PI
|
|
* - SIN
|
|
* - COS
|
|
* - TAN
|
|
* - COT
|
|
* - ASIN
|
|
* - ACOS
|
|
* - ATAN
|
|
* - ATN2
|
|
* - SINH
|
|
* - COSH
|
|
* - TANH
|
|
* Copyright 2001 Alejandro de garate <alex_degarate@hotmail.com>
|
|
* www - http://harbour-project.org
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2, or (at your option)
|
|
* any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this software; see the file COPYING. If not, write to
|
|
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
|
|
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
|
|
*
|
|
* As a special exception, the Harbour Project gives permission for
|
|
* additional uses of the text contained in its release of Harbour.
|
|
*
|
|
* The exception is that, if you link the Harbour libraries with other
|
|
* files to produce an executable, this does not by itself cause the
|
|
* resulting executable to be covered by the GNU General Public License.
|
|
* Your use of that executable is in no way restricted on account of
|
|
* linking the Harbour library code into it.
|
|
*
|
|
* This exception does not however invalidate any other reasons why
|
|
* the executable file might be covered by the GNU General Public License.
|
|
*
|
|
* This exception applies only to the code released by the Harbour
|
|
* Project under the name Harbour. If you copy code from other
|
|
* Harbour Project or Free Software Foundation releases into a copy of
|
|
* Harbour, as the General Public License permits, the exception does
|
|
* not apply to the code that you add in this way. To avoid misleading
|
|
* anyone as to the status of such modified files, you must delete
|
|
* this exception notice from them.
|
|
*
|
|
* If you write modifications of your own for Harbour, it is your choice
|
|
* whether to permit this exception to apply to your modifications.
|
|
* If you do not wish that, delete this exception notice.
|
|
*
|
|
*/
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL X, Y
|
|
|
|
CTINIT()
|
|
|
|
SET DECIMAL TO 14
|
|
CLS
|
|
? "Begin test of Trigonometric functions... "
|
|
?
|
|
? "PI = " + Str( PI(), 18, 15 )
|
|
|
|
? "STR( SIN( PI() /4 ), 18, 15 ) = 0.707106781186548 // CT3"
|
|
? Space( 32 ) + Str( SIN( PI() /4 ), 18, 15 ) + " <-- CT for Harbour"
|
|
?
|
|
|
|
? "STR( SIN( PI() /2 ), 18, 15 ) = 1.000000000000000 // CT3"
|
|
? Space( 32 ) + Str( SIN( PI() /2 ), 18, 15 ) + " <-- CT for Harbour"
|
|
?
|
|
|
|
? "STR( SIN( PI() *99.5 ), 18, 15 ) = -1.000000000000000 // CT3"
|
|
? Space( 35 ) + Str( SIN( PI() * 99.5 ), 18, 15 ) + " <-- CT for Harbour"
|
|
?
|
|
|
|
? "STR( SIN( PI() /9 ), 18, 15 ) = 0.342020143325669 // CT3"
|
|
? Space( 32 ) + Str( SIN( PI() / 9 ), 18, 15 ) + " <-- CT for Harbour"
|
|
|
|
WAIT4()
|
|
|
|
|
|
? "STR( COS( 0 ), 18, 15 ) = 1.000000000000000 // CT3"
|
|
? Space( 26 ) + Str( COS( 0 ), 18, 15 ) + " <-- CT for Harbour"
|
|
?
|
|
|
|
? "STR( COS( PI() /4 ), 18, 15 ) = 0.707106781186548 // CT3"
|
|
? Space( 32 ) + Str( COS( PI() /4 ), 18, 15 ) + " <-- CT for Harbour"
|
|
?
|
|
|
|
? "STR( COS( PI() /2 ), 18, 15 ) = 0.000000000000000 // CT3"
|
|
? Space( 32 ) + Str( COS( PI() /2 ), 18, 15 ) + " <-- CT for Harbour"
|
|
?
|
|
|
|
? "STR( COS( PI() *99.5 ), 18, 15 ) = 0.000000000000000 // CT3"
|
|
? Space( 34 ) + Str( COS( PI() * 99.5 ), 18, 15 ) + " <-- CT for Harbour"
|
|
?
|
|
|
|
? "STR( COS( PI() /9 ), 18, 15 ) = 0.939692620785908 // CT3"
|
|
? Space( 32 ) + Str( COS( PI() / 9 ), 18, 15 ) + " <-- CT for Harbour"
|
|
?
|
|
|
|
|
|
WAIT4()
|
|
|
|
|
|
? "STR( TAN( 0 ), 18, 15 ) = 1.000000000000000 // CT3 wrong ! "
|
|
? Space( 26 ) + Str( TAN( 0 ), 18, 15 ) + " <-- CT for Harbour"
|
|
?
|
|
|
|
? "STR( TAN( PI() /4 ), 18, 15 ) = 1.000000000000000 // CT3"
|
|
? Space( 32 ) + Str( TAN( PI() /4 ), 18, 15 ) + " <-- CT for Harbour"
|
|
?
|
|
|
|
? "STR( TAN( PI() /9 ), 18, 15 ) = 0.363970234266202 // CT3"
|
|
? Space( 32 ) + Str( TAN( PI() / 9 ), 18, 15 ) + " <-- CT for Harbour"
|
|
?
|
|
?
|
|
?
|
|
|
|
? "STR( ASIN( 0.5 ), 18, 15 ) = 0.523598775598299 // CT3"
|
|
? Space( 29 ) + Str( ASIN( 0.5 ), 18, 15 ) + " <-- CT for Harbour"
|
|
?
|
|
|
|
? "STR( ACOS( 0.7 ), 18, 15 ) = 0.795398830184144 // CT3"
|
|
? Space( 29 ) + Str( ACOS( 0.7 ), 18, 15 ) + " <-- CT for Harbour"
|
|
?
|
|
|
|
? "STR( ATAN( PI() /4 ), 18, 15 ) = 0.665773750028354 // CT3"
|
|
? Space( 33 ) + Str( ATAN( PI() /4 ), 18, 15 ) + " <-- CT for Harbour"
|
|
?
|
|
|
|
WAIT4()
|
|
|
|
|
|
? "STR( COT( PI() /4 ), 18, 15 ) = 1.000000000000000 // CT3"
|
|
? Space( 32 ) + Str( COT( PI() /4 ), 18, 15 ) + " <-- CT for Harbour"
|
|
?
|
|
|
|
? "STR( COT( PI() /2 ), 18, 15 ) = 0.000000000000000 // CT3"
|
|
? Space( 32 ) + Str( COT( PI() /2 ), 18, 15 ) + " <-- CT for Harbour"
|
|
?
|
|
|
|
? "STR( COT( PI() /9 ), 18, 15 ) = 2.747477419454622 // CT3"
|
|
? Space( 32 ) + Str( COT( PI() / 9 ), 18, 15 ) + " <-- CT for Harbour"
|
|
?
|
|
|
|
WAIT4()
|
|
|
|
?? "Testing Hiperbolic Sine..."
|
|
?
|
|
? "STR( SINH( PI() /2 ), 18, 15 ) = 2.301298902307295 // CT3"
|
|
? Space( 33 ) + Str( SINH( PI() /2 ), 18, 15 ) + " <-- CT for Harbour"
|
|
?
|
|
|
|
? "STR( SINH( PI() /4 ), 18, 15 ) = 0.868670961486010 // CT3"
|
|
? Space( 33 ) + Str( SINH( PI() /4 ), 18, 15 ) + " <-- CT for Harbour"
|
|
?
|
|
|
|
? "Testing Hiperbolic Cosine..."
|
|
?
|
|
? "STR( COSH( PI() /2 ), 18, 15 ) = 2.509178478658057 // CT3"
|
|
? Space( 33 ) + Str( COSH( PI() /2 ), 18, 15 ) + " <-- CT for Harbour"
|
|
?
|
|
|
|
? "STR( COSH( PI() /4 ), 18, 15 ) = 1.324609089252006 // CT3"
|
|
? Space( 33 ) + Str( COSH( PI() /4 ), 18, 15 ) + " <-- CT for Harbour"
|
|
?
|
|
|
|
? "Testing Hiperbolic Tangent..."
|
|
?
|
|
? "STR( TANH( PI() /2 ), 18, 15 ) = 0.917152335667274 // CT3"
|
|
? Space( 33 ) + Str( TANH( PI() /2 ), 18, 15 ) + " <-- CT for Harbour"
|
|
?
|
|
? "STR( TANH( PI() /4 ), 18, 15 ) = 0.655794202632672 // CT3"
|
|
? Space( 33 ) + Str( TANH( PI() /4 ), 18, 15 ) + " <-- CT for Harbour"
|
|
?
|
|
|
|
WAIT4()
|
|
|
|
? "Testing Degree TO Radian..."
|
|
?
|
|
? "STR( DTOR( 360), 18, 15 ) = 6.283185307179588 // CT3"
|
|
? Space( 27 ) + Str( DTOR( 360 ), 18, 15 ), " <-- CT for Harbour "
|
|
?
|
|
|
|
? "STR( DTOR( 180), 18, 15 ) = 3.141592653589794 // CT3"
|
|
? Space( 27 ) + Str( DTOR( 180 ), 18, 15 ), " <-- CT for Harbour "
|
|
?
|
|
|
|
? "STR( DTOR( 180.5), 18, 15 ) = 3.150319299849766 // CT3"
|
|
? Space( 29 ) + Str( DTOR( 180.5 ), 18, 15 ), " <-- CT for Harbour "
|
|
?
|
|
|
|
? "STR( DTOR( 720), 18, 15 ) = 12.566370614359180 // CT3"
|
|
? Space( 28 ) + Str( DTOR( 720 ), 18, 15 ), " <-- CT for Harbour "
|
|
?
|
|
|
|
? "STR( DTOR( -180), 18, 15 ) = -3.141592653589794 // CT3"
|
|
? Space( 29 ) + Str( DTOR( - 180 ), 18, 15 ), " <-- CT for Harbour "
|
|
|
|
WAIT4()
|
|
|
|
|
|
? "Testing Radian TO Degree..."
|
|
?
|
|
? "RTOD( PI() ) = 180 // CT3 "
|
|
? Space( 7 ), RTOD( PI() ), " <-- CT for Harbour "
|
|
|
|
? "RTOD( 2 * PI()) = 360 // CT3 "
|
|
? Space( 10 ), RTOD( 2 * PI() ), " <-- CT for Harbour "
|
|
|
|
? "RTOD( 4 * PI()) = 720 // CT3 "
|
|
? Space( 10 ), RTOD( 4 * PI() ), " <-- CT for Harbour "
|
|
|
|
? "RTOD( -PI() ) = -180 // CT3"
|
|
? Space( 9 ), RTOD( - PI() ), " <-- CT for Harbour "
|
|
?
|
|
|
|
WAIT4()
|
|
|
|
|
|
/* NOTE: ATN2( x, y) have the parameters inverted, when
|
|
comparing with the standard C languaje ATAN2( y, x)
|
|
*/
|
|
|
|
|
|
? "Testing ATN2( x, y )... where:"
|
|
|
|
x := SIN( DTOR( 30 ) )
|
|
y := COS( DTOR( 30 ) )
|
|
? "x = SIN( DTOR( 30 ) ) =", x
|
|
? "y = COS( DTOR( 30 ) ) =", y
|
|
?
|
|
? "STR( ATN2( x, y ), 18, 15 ) = 0.523598775598299 // CT3"
|
|
? Space( 31 ) + Str( ATN2( x, y ), 18, 15 ) + " <-- CT for Harbour"
|
|
?
|
|
? "RTOD( ATN2( x, y)) =" + Str( RTOD( ATN2( x,y ) ), 18, 4 ) + " <-- CT for Harbour"
|
|
?
|
|
|
|
WAIT4()
|
|
|
|
CTEXIT()
|
|
|
|
RETURN
|
|
|
|
PROCEDURE WAIT4
|
|
|
|
? " PRESS ANY KEY"
|
|
Inkey( 0 )
|
|
CLS
|
|
|
|
RETURN
|