#!/bin/sh

# Test MS routines
#
# $Id: tMSroutines 1.12 1998/07/06 libtsp-v3r0 $

echo ""
echo "========== tMScoefMC"
tMScoefMC 1.1 2.2 3.3 4.4 -2.3 1.5
tMScoefMC 1 0.5 0 0 .25 .75
tMScoefMC 1 0.5 0 0 .5 .5

echo ""
echo "========== tMSdNint"
tMSconvCof 1 1 // 1 1 1 1
tMSconvCof 1 1 1 1 // 1 1 1 1
tMSconvCof 1 1 1 1 // 1 1

echo ""
echo "========== tMSdNint"
tMSdNint 0.0
tMSdNint -0.2
tMSdNint 0.2
tMSdNint -0.5
tMSdNint 0.5
tMSdNint -0.6
tMSdNint 0.6
tMSdNint -15.6
tMSdNint 15.6

echo ""
echo "========== tMSiXXX"
tMSiXXX 32 1
tMSiXXX -32 -1
tMSiXXX 0 1
tMSiXXX -4 3
tMSiXXX -3 3
tMSiXXX -2 3
tMSiXXX -1 3
tMSiXXX 0 3
tMSiXXX 1 3
tMSiXXX 2 3
tMSiXXX 3 3
tMSiXXX 4 3
tMSiXXX -4 -3
tMSiXXX -3 -3
tMSiXXX -2 -3
tMSiXXX -1 -3
tMSiXXX 0 -3
tMSiXXX 1 -3
tMSiXXX 2 -3
tMSiXXX 3 -3
tMSiXXX 4 -3

echo ""
echo "========== tMSiPower"
tMSiPower 0 3
tMSiPower 0 0
#tMSiPower 0 -3			2>&1

tMSiPower -3 0
tMSiPower 3 0

tMSiPower -3 1
tMSiPower 0 1
tMSiPower 3 1

tMSiPower 2 7
tMSiPower 2 8
tMSiPower 3 3

tMSiPower -1 -2
tMSiPower -1 -3
tMSiPower -3 -3

echo ""
echo "========== tMSintXxx"
tMSintXxx C 1 2 // 1
tMSintXxx L 1 2 // 1
tMSintXxx C 1 2 // 0.9		2>&1
tMSintXxx L 1 2 // 0.9		2>&1
tMSintXxx C 1 2 // 1.1		2>&1
tMSintXxx L 1 2 // 1.1		2>&1
tMSintXxx C 0 10  5 10   8 10  9 10.5  11 15  12 50  14 60  15 85 // \
             0  6 9  10 13.5 14.5 15
tMSintXxx L 0 10  5 10   8 10  9 10.5  11 15  12 50  14 60  15 85 // \
             0  6 9  10 13.5 14.5 15
tMSintXxx C 0 10  5 10   8 10  9 10.5  11 15  12 50  14 60  15 85 // \
             -0.1		2>&1
tMSintXxx L 0 10  5 10   8 10  9 10.5  11 15  12 50  14 60  15 85 // \
             -0.1		2>&1
tMSintXxx C 0 10  5 10   8 10  9 10.5  11 15  12 50  14 60  15 85 // \
             15.1		2>&1
tMSintXxx L 0 10  5 10   8 10  9 10.5  11 15  12 50  14 60  15 85 // \
             15.1		2>&1

echo ""
echo "========== tMSfxxxRand"
tMSfxxxRand U -1 10000
tMSfxxxRand U 333 10000
tMSfxxxRand G 333 10000
tMSfxxxRand U 0 10000

echo ""
echo "========== tMSratio"
tMSratio 3.14159265358979323846 0 1000 1000	# 355/113
tMSratio 3.14159265358979323846 0 1000 100	# 311/99 secondary convergent
tMSratio -3.14159265358979323846 0 1000 1000	# negative value
tMSratio 1/3.14159265358979323846 0 1000 1000	# 113/355
tMSratio 1/3.14159265358979323846 0 100 1000	# 99/311 secondary convergent
tMSratio 3.14159265358979323846 5E-7 100000 100000	# tol sets value

tMSratio 8001/8000 0 1000000 1000000
tMSratio 8000/8001 0 1000000 1000000
