SML FUNCTION LIST

戻り値

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

numeric a,b;
a = -6;
b = abs(2 * a); # b = 12
print(b);

acos
Trigonometric arccosine

acos(x)

場所:

パラメータ:

詳細と仮定

戻り値

acosd
Trigonometric arccosine (degree version)

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

numeric b;
b = acos(0.5);
print(b);
# b = 1.0471975511965979

acosd(x)

場所:

パラメータ:

詳細と仮定

戻り値

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# no sample necessary

acosh
Hyperbolic arccosine

acosh(x)

場所:

パラメータ:

戻り値

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

numeric b;
b = acosh(0.5);
print(b);
# b = NULL

acoth
Hyperbolic arccotangent

acoth(x)

場所:

パラメータ:

詳細と仮定

戻り値

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

numeric b;
b = acoth(0);
print(b);
# b = NULL

acsch
Hyperbolic arccosecant

acsch(x)

場所:

パラメータ:

詳細と仮定

戻り値

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

numeric b;
b = acsch(0);
print(b);
# b = Infinity

asech
Hyperbolic arcsecant

asech(x)

場所:

パラメータ:

戻り値

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

numeric b;
b = asech(1);
print(b); # b = 0

asin
Trigonometric arcsine

asin(x)

場所:

パラメータ:

詳細と仮定

戻り値

asind
Trigonometric arcsine (degree version)

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

numeric a, b;
a = sqrt(3) / 2;
b = deg * asin(a);
print(b);
# b = 59.99999999999999

asind(x)

場所:

パラメータ:

詳細と仮定

戻り値

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# no sample necessary

asinh
Hyperbolic arcsine

asinh(x)

場所:

パラメータ:

戻り値

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

numeric a, b;
a = (exp(0) - exp(-0)) / 2;
b = asinh(a);
print(b); # b = 0

atan
Trigonometric arctangent

atan(x)

場所:

パラメータ:

戻り値

Any expression evaluating to a number corresponding
to the non-hypotenuse side of a right triangle
opposite the angle of interest

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

numeric a, b;
a = 1;
b = deg * atan(a);
print(b); # b = 45

atan2
Trigonometric arctangent

atan2(y, x)

場所:

パラメータ:

numeric y

Any expression evaluating to a number corresponding
to the non-hypotenuse side of a right triangle
adjacent to the angle of interest

戻り値

atand
Trigonometric arctangent (degree version)

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

numeric a, b, c;
a = sqrt(3) / 2;
b = -.5;
c = deg * atan2(a, b);
print(c); # c = 120

atand(x)

場所:

パラメータ:

戻り値

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# no sample necessary

atanh
Hyperbolic arctangent

atanh(x)

場所:

パラメータ:

戻り値

Bound
Force a value into given range.

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

numeric a, b, c;
a = exp(0) - exp(-0);
b = exp(0) + exp(-0);
c = atanh(a/b);
print(c); # c = 0

Bound(val, min, max)

場所:

パラメータ:

numeric val

The value to bound

numeric min

Minimum value to bound to

numeric max

Maximum value to bound to

戻り値

val if val<=max and val>=min

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

print(Bound(15, 0, 10));
print(Bound(-5, 0, 10));
print(Bound(5, 0, 10));

ceil
Round decimal up to integer

ceil(x)

場所:

パラメータ:

戻り値

ConvertPolartoXY
Converts polar coordinates to rectangular (radians).

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

numeric a, b, c, d;
a = ceil(7.499); # a = 8
b = ceil(7.001); # b = 8
c = ceil(-7.01); # c = -7
d = ceil(-7.99); # d = -7
print(a, b, c, d);

ConvertPolartoXY(Theta, R, X, Y)

場所:

パラメータ:

戻り値

ConvertPolartoXYd
Converts polar coordinates to rectangular (degrees).

作成日時: 16-Jun-1999
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# no sample necessary

ConvertPolartoXYd(Theta, R, X, Y)

場所:

パラメータ:

戻り値

ConvertSphericaltoXYZ
Converts polar coordinates to rectangular (radians).

作成日時: 16-Jun-1999
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# no sample necessary

ConvertSphericaltoXYZ(Rho, Theta, Phi, X, Y, Z)

場所:

パラメータ:

Phi

The z coordinate of the point

numeric variable Z

戻り値

ConvertSphericaltoXYZd
Converts polar coordinates to rectangular (degrees).

作成日時: 17-Jun-1999
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# no sample necessary

ConvertSphericaltoXYZd(Rho, Theta, Phi, X, Y, Z)

場所:

パラメータ:

Phi

The z coordinate of the point

numeric variable Z

戻り値

ConvertXYtoPolar
Converts rectangular coordinates to polar (radians).

作成日時: 17-Jun-1999
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# no sample necessary

ConvertXYtoPolar(X, Y, Theta, R)

場所:

パラメータ:

numeric variable R

戻り値

ConvertXYtoPolard
Converts rectangular coordinates to polar (degrees).

作成日時: 16-Jun-1999
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# no sample necessary

ConvertXYtoPolard(X, Y, Theta, R)

場所:

パラメータ:

numeric variable R

戻り値

ConvertXYZtoSpherical
Converts rectangular coordinates to spherical (radians).

作成日時: 16-Jun-1999
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# no sample necessary

ConvertXYZtoSpherical(X, Y, Z, Rho, Theta, Phi)

場所:

パラメータ:

numeric Z

Z coordinate

numeric variable Rho

numeric variable Phi

Phi value

戻り値

ConvertXYZtoSphericald
Converts rectangular coordinates to spherical (degrees).

作成日時: 17-Jun-1999
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# no sample necessary

ConvertXYZtoSphericald(X, Y, Z, Rho, Theta, Phi)

場所:

パラメータ:

numeric Z

Z coordinate

numeric variable Rho

numeric variable Phi

Phi value

戻り値

CopyArrayElements
Copies a given range of elements form one array into another.

作成日時: 17-Jun-1999
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# no sample necessary

CopyArrayElements(dest, source, dest_start, dest_end, source_start, source_end)

場所:

パラメータ:

array dest

Array that you want values copied into

array source

Array that you want values copied from

numeric dest_start

Destination start position

numeric dest_end

Destination end position

numeric source_start

Source start position

numeric source_end

Source end position

詳細と仮定

戻り値

作成日時: 22-Jul-1999
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
array numeric a1[10];
array numeric a2[10];
numeric x;
for x=1 to 10{
       a1[x]=20+x;
       a2[x]=x;
       }
CopyArrayElements(a2,a1,3,6,5,8);
for x=1 to 10{
       print(a2[x]);
       }

cos
Trigonometric cosine

cos(x)

場所:

パラメータ:

詳細と仮定

戻り値

cosd
Trigonometric cosine (degree version)

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
print(cos(60 / deg)); # prints .500000000000001

cosd(x)

場所:

パラメータ:

詳細と仮定

戻り値

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

Unable to locate sample script "smlsamples/StandAlone/CAD.sml" for this function.
Please download latest collection of reference scripts from www.microimages.com and try again.

cosh
Hyperbolic cosine

cosh(x)

場所:

パラメータ:

戻り値

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
print(cosh(0)); # prints 1

csc
Trigonometric cosecant

csc(x)

場所:

パラメータ:

詳細と仮定

戻り値

cscd
Trigonometric cosecant (degree version)

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
print(csc(30 / deg)); # prints 2

cscd(x)

場所:

パラメータ:

詳細と仮定

戻り値

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# no sample necessary

ctn
Trigonometric cotangent

ctn(x)

場所:

パラメータ:

詳細と仮定

戻り値

ctnd
Trigonometric cotangent (degree version)

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
print(ctn(0 / deg)); # prints Infinity

ctnd(x)

場所:

パラメータ:

詳細と仮定

戻り値

Displacement3D
Calculate the distance, azimuth, and elevation from the first point to the second (radians).

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# no sample necessary

Displacement3D(X1, Y1, Z1, X2, Y2, Z2, Distance, Azimuth, Elevation)

場所:

パラメータ:

numeric X1

The x coordinate of the first point

numeric Y1

The y coordinate of the first point

numeric Z1

First z coordinate

numeric X2

Second x coordinate

numeric Y2

Second y coordinate

numeric Z2

Second z coordinate

numeric variable Distance

Distance value

numeric variable Azimuth

Azimuth value

numeric variable Elevation

Elevation value

戻り値

Displacement3Dd
Calculate the distance, azimuth, and elevation from the first point to the second (degrees).

作成日時: 17-Jun-1999
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
class POINT3D pt1, pt2;
pt1.x = 500;
pt1.y = 500;
pt1.z = 0;
pt2.x = 1000;
pt2.y = 1000;
pt2.z = sqrt(500000); # sqrt(500^2 + 500^2)
numeric distance, azimuth, elevation;
# in radians
Displacement3D(pt1.x, pt1.y, pt1.z, pt2.x, pt2.y, pt2.z, distance, azimuth, elevation);
print(distance, azimuth, elevation);
# in degrees
Displacement3Dd(pt1.x, pt1.y, pt1.z, pt2.x, pt2.y, pt2.z, distance, azimuth, elevation);
print(distance, azimuth, elevation);

Displacement3Dd(X1, Y1, Z1, X2, Y2, Z2, Distance, Azimuth, Elevation)

場所:

パラメータ:

numeric X1

The x coordinate of the first point

numeric Y1

The y coordinate of the first point

numeric Z1

First z coordinate

numeric X2

Second x coordinate

numeric Y2

Second y coordinate

numeric Z2

Second z coordinate

numeric variable Distance

Distance value

numeric variable Azimuth

Azimuth value

numeric variable Elevation

Elevation value

戻り値

exp
Exponential (e to the power of x)

作成日時: 17-Jun-1999
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
class POINT3D pt1, pt2;
pt1.x = 500;
pt1.y = 500;
pt1.z = 0;
pt2.x = 1000;
pt2.y = 1000;
pt2.z = sqrt(500000); # sqrt(500^2 + 500^2)
numeric distance, azimuth, elevation;
# in radians
Displacement3D(pt1.x, pt1.y, pt1.z, pt2.x, pt2.y, pt2.z, distance, azimuth, elevation);
print(distance, azimuth, elevation);
# in degrees
Displacement3Dd(pt1.x, pt1.y, pt1.z, pt2.x, pt2.y, pt2.z, distance, azimuth, elevation);
print(distance, azimuth, elevation);

exp(x)

場所:

パラメータ:

戻り値

exp10
Exponential (10 to the power of x)

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
print(exp(-1/0)); # prints 0

exp10(x)

場所:

パラメータ:

戻り値

floor
Round decimal down to integer

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
print(exp10(3)); # prints 1000

floor(x)

場所:

パラメータ:

戻り値

GetUnitConvAngle
Get scale factor for angle unit conversions.

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
print(floor(7.5)); # prints 7
print(floor(-7.5)); # prints -8

GetUnitConvAngle(from$, to$)

場所:

パラメータ:

詳細と仮定

戻り値

GetUnitConvArea
Get scale factor for area unit conversions.

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# no sample necessary

GetUnitConvArea(from$, to$)

場所:

パラメータ:

詳細と仮定

戻り値

GetUnitConvDist
Get scale factor for distance unit conversions.

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

Unable to locate sample script "smlsamples/Dialog/areacalc.sml" for this function.
Please download latest collection of reference scripts from www.microimages.com and try again.

GetUnitConvDist(from$, to$)

場所:

パラメータ:

詳細と仮定

戻り値

GetUnitConvVolume
Get scale factor for volume unit.

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

Unable to locate sample script "smlsamples/MacroScript/ZOOMTO.sml" for this function.
Please download latest collection of reference scripts from www.microimages.com and try again.

GetUnitConvVolume(from$, to$)

場所:

パラメータ:

詳細と仮定

戻り値

hypot
Find hypotenuse of right triangle

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# no sample necessary

hypot(dx, dy)

場所:

パラメータ:

numeric dx

A number representing the horizontal component of the right triangle

numeric dy

A number representing the vertical component of the right triangle

戻り値

int
Integer portion of argument (truncate)

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
numeric dx, dy;
dx = 3;
dy = 4;
print(hypot(dx, dy)); # 5

int(x)

場所:

パラメータ:

A decimal number

戻り値

IsNull
Does the argument have the value NULL?

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
numeric a;
a = int(7.7); # a = 7
a = int(-7.7); # a = -8

IsNull(x)

場所:

パラメータ:

list of numbers x

A number(or infinity or NULL)

詳細と仮定

戻り値

LinearRegression
Calculate the linear regression coeficients for a group of points.

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
print(IsNull(null));

LinearRegression(x, y, num, slope, intercept, omit)

場所:

パラメータ:

array x

The x coordinates of the points

array y

The y coordinates of the points

numeric num

The number of points

numeric variable slope

numeric variable intercept

Slope returned

Use to create "jack-knife" slope

戻り値

作成日時: 17-Jun-1999
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# no sample necessary

log
Natural logarithm of argument

log(x)

場所:

パラメータ:

詳細と仮定

戻り値

log10
Base 10 logarithm of argument

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
print("Enter a number.");
numeric x=input();
numeric a=log(x);
print("log(x)=", a);

log10(x)

場所:

パラメータ:

詳細と仮定

戻り値

PolynomialCurveFit
Computes an equation of given power that best fits the given points.

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
print("Enter a number.");
numeric x=input();
numeric a=log10(x);
print("log10(x)=", a);

PolynomialCurveFit(x, y, num, power, carray, R)

場所:

パラメータ:

array x

Array of the x coordinates

array y

Array of the y coordinates

numeric num

Number of points

numeric power

The polynomial order. The power to which the polynomial should be

array carray

Array to store the coeffecients of the polynomial

numeric variable R

The multiple correlation coefficient, basically how well the polynomial fits the points. A value between 0 and 1 with 1 being a perfect fit and 0 being absolutely no correlation.

詳細と仮定

戻り値

作成日時: 22-Jun-1999
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
array numeric xpoints[4];
array numeric ypoints[4];
array numeric carray[3];
numeric r;
xpoints[1]=-1;
xpoints[2]=0;
xpoints[3]=1;
xpoints[4]=2;
ypoints[1]=4;
ypoints[2]=10;
ypoints[3]=20;
ypoints[4]=34;
string string$=PolynomialCurveFit(xpoints,ypoints,4,2,carray,r);
printf("%s\n",string$);
printf("%f %f %f\n",carray[1],carray[2],carray[3]);
printf("r = %f\n",r);

pow
Return x to the power of y

pow(x, y)

場所:

パラメータ:

numeric y

戻り値

rand
Returns random value between zero (0) and x

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
print(pow(2, 3)); # 8

rand(x)

場所:

パラメータ:

A number, positive or negative

戻り値

RandomGaussian
Computes a pair of random numbers based on a normal distibution.

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

print(rand(1));

RandomGaussian(mu, sigma, x1, x2)

場所:

パラメータ:

numeric mu

Mu value (the value you want your random numbers around)

numeric sigma

Standard deviation

numeric variable x1

First number in the pair of numbers returned

numeric variable x2

Second number

戻り値

ResizeArrayClear
Resize a one dimensional array ( a[col] ), or two dimensional array ( a[row, col] )

作成日時: 21-Jun-1999
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# no sample necessary

ResizeArrayClear(array, index1Size, index2Size)

場所:

パラメータ:

array array

The array to resize

numeric index1Size

New index size (column for one dimensional array, row for dimensional dim array)

numeric index2Size

New column size (two dimensional array only)

詳細と仮定

戻り値

ResizeArrayPreserve
Resize a one dimensional array ( a[col] ), or two dimensional array ( a[row, col] )

作成日時: 08-Oct-1998
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

array numeric a[3];
array numeric a2[3, 4];
ResizeArrayClear(a, 5); # increase size of one dimensional array
ResizeArrayClear(a, 2); # decrease size of one dimensional array
ResizeArrayClear(a2, 5, 6); # increase size of two dimensional array
ResizeArrayClear(a2, 2, 3); # decrease size of two dimensional array

ResizeArrayPreserve(array, index1Size, index2Size)

場所:

パラメータ:

array array

The array to resize

numeric index1Size

New index size (column for one dimensional array, row for two dimensional array)

numeric index2Size

New column size (two dimensional array only)

詳細と仮定

戻り値

作成日時: 08-Oct-1998
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

array numeric a[3];
array numeric a2[3, 4];
ResizeArrayPreserve(a, 5); # increase size of one dimensional array
ResizeArrayPreserve(a, 2); # decrease size of one dimensional array
ResizeArrayPreserve(a2, 5, 6); # increase size of two dimensional array
ResizeArrayPreserve(a2, 2, 3); # decrease size of two dimensional array

round
Round x to nearest integer

round(x)

場所:

パラメータ:

詳細と仮定

戻り値

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

print(round(10.5)); # 11
print(round(-10.5)); #-10

sec
Trigonometric secant

sec(x)

場所:

パラメータ:

詳細と仮定

戻り値

secd
Trigonometric secant (degree version)

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

print(sec(60/deg));

secd(x)

場所:

パラメータ:

詳細と仮定

戻り値

Sign
Return -, 0 or 1 depending on sign of argument

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# no sample necessary

Sign(x)

場所:

パラメータ:

The numreric argument

戻り値

作成日時: 20-Jun-2000
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

print(Sign(-10));      # -1
print(Sign(0));       # 0
print(Sign(10));       # 1

sin
Trigonometric sine

sin(x)

場所:

パラメータ:

詳細と仮定

戻り値

sind
Trigonometric sine (degree version)

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
print(sin(30/deg)); #.5

sind(x)

場所:

パラメータ:

詳細と仮定

戻り値

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

Unable to locate sample script "smlsamples/StandAlone/CAD.sml" for this function.
Please download latest collection of reference scripts from www.microimages.com and try again.

sinh
Hyperbolic sine

sinh(x)

場所:

パラメータ:

詳細と仮定

戻り値

Solve
Gaussian elimination solution of system of linear equations

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
print(sinh(0)); # 0

Solve(CoefArray, ConstArray, Result)

場所:

パラメータ:

array CoefArray

M by n array of coefficients

array ConstArray

M by n array of values

array Result

N x 1 array of unknowns

詳細と仮定

戻り値

sqr
Return the square of the argument

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
array numeric a[2, 2];
array numeric b[2];
array numeric x[2];
a[1,1]=1; a[1,2]=0; a[2,1]=1; a[2,2]=1;
b[1]=1; b[2]=1;
Solve(a, b, x);
print(x[1], x[2]);

sqr(x)

場所:

パラメータ:

戻り値

sqrt
Returns the (positive) square root of the argument

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
print(sqr(-3)); # 9

sqrt(x)

場所:

パラメータ:

詳細と仮定

戻り値

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
print(sqrt(9)); # 3
print(sqrt(-9)); # 0

tan
Trigonometric tangent

tan(x)

場所:

パラメータ:

詳細と仮定

戻り値

tand
Trigonometric tangent (degree version)

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
print(tan(90/deg)); # -2147483648 (roundoff error)

tand(x)

場所:

パラメータ:

詳細と仮定

戻り値

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# no sample necessary

tanh
Hyperbolic tangent

tanh(x)

場所:

パラメータ:

戻り値

Date
Returns the current date in YYYYMMDD format

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
print(tanh(0)); # 0

Date functions (6)

Date()

日付

パラメータ:

詳細と仮定

戻り値

DateDiff
Returns number of days between two dates

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
numeric d;
d=Date();
print(d);

DateDiff(yyyymmdd1, yyyymmdd2)

場所:

パラメータ:

numeric yyyymmdd1

A number in YYYYMMDD format

numeric yyyymmdd2

A number in YYYYMMDD format

戻り値

DateToJulian
Converts YYYYMMDD format to Julian date

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
numeric d=DateDiff(19960101, 19970101);
print(d); # 365

DateToJulian(yyyymmdd)

場所:

パラメータ:

numeric yyyymmdd

A number in YYYYMMDD format

詳細と仮定

戻り値

DateToString
Convert a number date to a string.

作成日時: 17-Jun-1999
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
numeric d=DateToJulian(19960101);
print(d);
print(JulianToDate(d));

DateToString(yyyymmdd, format$)

場所:

パラメータ:

numeric yyyymmdd

The date to convert

string format$

The desired date format

詳細と仮定

戻り値

JulianDate
Returns the current Julian date

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

print(DateToString(20031208)); # 12/08/03

JulianDate()

場所:

パラメータ:

戻り値

JulianToDate
Converts Julian date to YYYYMMDD format

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
numeric d=JulianDate();
print(d);

JulianToDate(julian)

場所:

パラメータ:

numeric julian

詳細と仮定

戻り値

SetMajority
Most frequently occurring value among arguments

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
numeric d=DateToJulian(19960101);
print(d);
print(JulianToDate(d));

Set functions (11)

SetMajority(x1, x2, ...)

パラメータ:

詳細と仮定

戻り値

SetMax
Returns the largest of argument values

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
print(SetMajority(1, 3, 3, 4, 4, 5)); # prints 4

SetMax(x1, x2, ...)

場所:

パラメータ:

戻り値

SetMean
Returns average of argument values

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
print(SetMax(1, 3, 3, 4, 4, 5)); # prints 5

SetMean(x1, x2, ...)

場所:

パラメータ:

戻り値

SetMedian
Returns the median of argument values

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
print(SetMean(1, 2, 2, 5, 5)); # prints 3 (15/5)

SetMedian(x1, x2, ...)

場所:

パラメータ:

戻り値

SetMin
Returns minimum value among arguments

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
print(SetMedian(1, 3, 7)); # prints 3

SetMin(x1, x2, ...)

場所:

パラメータ:

戻り値

SetMinority
Least frequently occurring value among arguments

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
print(SetMin(1, 3, 5)); # prints 1

SetMinority(x1, x2, ...)

場所:

パラメータ:

詳細と仮定

戻り値

SetNum
Returns the total number of elements

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
print(SetMinority(1, 3, 3, 4, 4, 5)); # prints 1

SetNum(x1, x2, ...)

場所:

パラメータ:

戻り値

SetSD
Returns standard deviation of argument values

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
print(SetNum(2, 1, 3, 4, 99)); # returns 5

SetSD(x1, x2, ...)

場所:

パラメータ:

戻り値

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
print(SetSD(2, 1, 3, 4, 99));

SetSum
Returns sum of arguments

SetSum(x1, x2, ...)

場所:

パラメータ:

戻り値

SetVariance
Returns statistical variance of argument values

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
print(SetSum(2, 1, 3, 4, 99)); # prints 109

SetVariance(x1, x2, ...)

場所:

パラメータ:

戻り値

SetVariety
Returns number of different values among arguments

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
print(SetVariance(2, 1, 3, 4, 99));

SetVariety(x1, x2, ...)

場所:

パラメータ:

戻り値

DegToStr
Convert degrees to a string, in degrees, minutes, seconds format

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
print(SetVariety(2, 1, 3, 4, 99));

String functions (16)

パラメータ:

The number to convert

戻り値

FileNameGetExt
Returns file extension portion of path qualified filename

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
print(DegToStr(94.345));

FileNameGetExt(filename$)

場所:

パラメータ:

The path qualified filename

戻り値

FileNameGetName
Returns filename portion of path qualified filename

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
string f$ = GetInputFileName("", "Select a file","");
print(FileNameGetExt(f$));

FileNameGetName(filename$)

場所:

パラメータ:

The path qualified filename

戻り値

FileNameGetPath
Returns path portion of path qualified filename

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
string f$ = GetInputFileName("", "Select a file","");
print(FileNameGetName(f$));

FileNameGetPath(filename$)

場所:

パラメータ:

The path qualified filename

戻り値

GetToken
Get the nth token from a string

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
string f$ = GetInputFileName("", "Select a file","");
print(FileNameGetPath(f$));

GetToken(string$, delimiters$, tokenNumber, compress)

場所:

パラメータ:

The string to get the token from

string delimiters$

The characters that delimit tokens

numeric tokenNumber

The token number to get

numeric compress

1 (default) to treat multiple consecutive tokens as one, 0 to accept each one

詳細と仮定

戻り値

left$
Return leftmost n characters of string

作成日時: 25-Sep-1998
修正日時: 05-Jun-2001
TNTsml for Windows で使用可能: はい

例:

clear();
string token$;
string str$ = "a  b c,d";
string delimit$ = " ,";
numeric n = NumberTokens(str$, delimit$);
numeric i;
for i = 1 to n {
       token$ = GetToken(str$, delimit$, i);
       print(i, token$);
       }

left$(str$, length)

場所:

パラメータ:

numeric length

詳細と仮定

戻り値

mid$
Return n characters of string$ starting at m

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
print("Enter a sentence.");
       string a$=input$();
print("Enter # of chars to get.");
       numeric n=input();
print(left$(a$, n));

mid$(str$, start, length)

場所:

パラメータ:

numeric start

numeric length

詳細と仮定

戻り値

NumberTokens
Returns number of tokens in a string - used to loop through them

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# mid$
clear();
print("Enter a sentence.");
       string a$=input$();
print("Enter start position.");
       numeric m=input();
print("Enter # of chars to get.");
       numeric n=input();
print(mid$ (a$, m, n));

NumberTokens(string$, delimiters$)

場所:

パラメータ:

The string to find tokens in

string delimiters$

The characters that delimit tokens

戻り値

NumToStr
Convert a number to a string

作成日時: 25-Sep-1998
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
string token$;
string str$ = "a  b c,d";
string delimit$ = " ,";
numeric n = NumberTokens(str$, delimit$);
numeric i;
for i = 1 to n {
       token$ = GetToken(str$, delimit$, i);
       print(i, token$);
       }

NumToStr(num)

場所:

パラメータ:

numeric num

Number to convert

詳細と仮定

戻り値

right$
Return right-most n characters of string$

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

print("Enter a number.");
numeric n=input();
string nstr$ = NumToStr(n);
# one can now do any string operations desired on nstr$
print(nstr$);

right$(str$, length)

場所:

パラメータ:

numeric length

詳細と仮定

戻り値

sprintf
Assign formatted text to a string variable

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
print("Enter a sentence.");
       string a$=input$();
print("Enter # of chars to get from the end of the string.");
       numeric n=input();
print(right$(a$, n));

sprintf(format$, value, ...)

場所:

パラメータ:

string format$

Printf-style format string.
The format string is scanned for format specification fields, which all start with
a percent sign (%). Each format specification is replaced by the value of the next
parameter passed after the format string. There should be a value passed for each
format specification field.
Format Specification fields have the following form (parts in square brackets are
optional)
%[flags][width][.precision]type
flags
Optional characters to control justification and sign display
- : Left align the result within the field
+ : Prefix numeric value with a sign (+ or -), even if positive
0 : If with is prefixed with a zero, the number will have leading zeros
width
Optional number that specifies the minimum number of characters output
precision
Optional number that specifies the maximum number of digits after the
decimal place for floating point numbers
type
Required character specifying the type of parameter to output
s : String
d : Signed decimal integer
u : Unsigned decimal integer
o : Unsigned octal integer
x : Unsigned hexadecimal integer, using "abcdef"
X : Unsigned hexadecimal integer, using "ABCDEF"
c : A single character, specified the ASCII value.
e : Floating point value in scientific notation (e.g.: 1e6 for 1,000,000)
f : Floating point value, not in scientific notation
g : Floating point value in e or f format, whichever is more compact

any value value

Etc. one or more numbers or strings

any value ...

Optional additional strings or numbers

詳細と仮定

戻り値

strlen
Returns number of characters in string variable

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
string format$="%s%d%s\n%s";
string str1$="This is line ";
string str2$=" you see.";
string str3$="This is line 2";
string s4$=sprintf(format$, str1$, 1, str2$, str3$);
print(s4$);

strlen(str$)

場所:

パラメータ:

戻り値

StrToDeg
Convert string in degrees, minutes, seconds format to decimal degrees

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
string a$;
print("Enter a string. ");
       a$=input$();
print(strlen(a$));

StrToDeg(str$)

場所:

パラメータ:

The string to convert

詳細と仮定

戻り値

StrToNum
Return numerical value of string with number in it

作成日時: 16-Nov-2004
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
print(StrToDeg("S 24 30 00"));

StrToNum(str$)

場所:

パラメータ:

詳細と仮定

戻り値

tolower$
Convert string to lower case

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
string a$;
print("Enter a number. "); # would be better to just input as numeric
       a$=input$();
numeric b=StrToNum(a$);
print(b/10);

tolower$(string$)

場所:

パラメータ:

Input string

戻り値

toupper$
Convert string to upper case

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

print(tolower$("MiXeD CaSe")); # mixed case;

toupper$(string$)

場所:

パラメータ:

Input string

戻り値

CloseDatabase
Close an open database instance

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

print(toupper$("MiXeD CaSe")); # MIXED CASE;

Database functions (45)

CloseDatabase(db)

データベース

パラメータ:

AreaCorrelatePoint
Adjust point position of Raster to match known position in refererence Raster

DATABASE db

The database to close

戻り値

なし

作成日時: 21-Sep-2004
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# no sample necessary

DatabaseCreate
Create a 'standalone' database object

DatabaseCreate(filename$, name$, description$)

場所:

パラメータ:

string filename$

The rvc file to create the database object in

string name$

The database object name

string description$

The database object description

戻り値

numeric

作成日時: 02-Jun-2004
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

string file$ = "C:/test.rvc";
numeric err = DatabaseCreate(file$, "name", "desc");
if (err < 0) print("error occurred creating database");
else
{
       # open database and add table to database
}

DatabaseGetTableInfo
Get database table information

DatabaseGetTableInfo(database, name)

場所:

パラメータ:

class DATABASE database

The database

any value name

Name of the table (if a string) or table number (if numeric)

詳細と仮定

戻り値

class DBTABLEINFO

作成日時: 29-May-1998
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

Unable to locate sample script "smlsamples/StandAlone/cumul.sml" for this function.
Please download latest collection of reference scripts from www.microimages.com and try again.

FieldGetInfoByName
Returns a field class given the field name.

FieldGetInfoByName(table, name$)

場所:

パラメータ:

class DBTABLEINFO table

The table to query

string name$

The field name

戻り値

class DBFIELDINFO

作成日時: 06-Apr-1998
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

Unable to locate sample script "smlsamples/StandAlone/create.sml" for this function.
Please download latest collection of reference scripts from www.microimages.com and try again.

FieldGetInfoByNumber
Returns a field class given the field number.

FieldGetInfoByNumber(table, number)

場所:

パラメータ:

class DBTABLEINFO table

The table to query

numeric number

Number of the field

戻り値

class DBFIELDINFO

作成日時: 06-Apr-1998
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

class DATABASE db;
class DBTABLEINFO table, table2;
class DBFIELDINFO field, fieldcopy;
vector V;
numeric tablenum=1;
GetInputVector(V);     # used cb_soils
db = OpenVectorPolyDatabase(V);
if(TableExists(db, tablenum))
{
       table = DatabaseGetTableInfo(db, tablenum);
       field = FieldGetInfoByNumber(table, 1);       # get the first field
       fieldcopy = field;
       table2 = TableCreate(db, "NewTable", "Desc");
       TableAddField(table2, field);                # copy it to a second table
       print(field.Name,"added.");
}
else print("No table found");

NumRecords
Returns number of records in database table

NumRecords(table)

場所:

パラメータ:

class DBTABLEINFO table

A database table from a Raster of Vector object

詳細と仮定

戻り値

numeric

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
vector V;
GetInputVector(V);
# assume you know the table name, here we used the
# Crow Butte Soils Vector object.  Note that 'YIELD'
# is the correct field name,not 'yield'.
numeric n=NumRecords(V.poly.YIELD);
print("Record count:", n);

OpenCADDatabase
Open the database subobject of a CAD object

OpenCADDatabase(CADVar)

場所:

パラメータ:

CAD CADVar

The CAD object to open the database of

戻り値

class DATABASE

作成日時: 20-Jun-2000
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

cad C;
GetOutputCAD(C);
class DATABASE db;
class DBTABLEINFO table;
# write a point
numeric xin = 100, yin = 200;
CADWritePoint(C, 1, xin, yin);
CADWritePoint(C, 1, xin+yin, yin);
CADWritePoint(C, 1, xin-yin, yin);
CADWritePoint(C, 1, xin, yin+xin);
# now create a table
db = OpenCADDatabase(C);
table = TableCreate(db, "MyTable", "Newly Created Table");
TableAddFieldInteger(table, "NewField");
# write some important info to the db table
TableWriteRecord(table, 0, 55);
TableWriteRecord(table, 0, 45);
# attach the records to elements
CADAttachDBRecord(C, 1, 1, table, 1);
CADUnattachDBRecord(C, 1, 1, table, 1);
CADAttachDBRecord(C, 1, 1, table, 2);
CADAttachDBRecord(C, 1, 2, table, 1);
CADAttachDBRecord(C, 1, 3, table, 2);
CADAttachDBRecord(C, 1, 4, table, 1);

OpenDatabase
Open a main level database

OpenDatabase(filename$, objectname$)

場所:

パラメータ:

string filename$

RVC filename

string objectname$

Object name

戻り値

class DATABASE

作成日時: 11-Sep-1998
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

Unable to locate sample script "smlsamples/StandAlone/doqq7.sml" for this function.
Please download latest collection of reference scripts from www.microimages.com and try again.

OpenRasterDatabase
Returns a database class for functions that need one.

OpenRasterDatabase(Rast)

場所:

パラメータ:

Raster Rast

Raster object

戻り値

class DATABASE

作成日時: 06-Apr-1998
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

Unable to locate sample script "smlsamples/StandAlone/classifyRaster.sml" for this function.
Please download latest collection of reference scripts from www.microimages.com and try again.

OpenTINDatabase
Open the database subobject of a TIN object

OpenTINDatabase(TINVar)

場所:

パラメータ:

TIN TINVar

The TIN object to open the database of

戻り値

class DATABASE

作成日時: 20-Jun-2000
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

tin T;
class DATABASE db;
class DBTABLEINFO table;
GetInputTIN(T);
db = OpenTINDatabase(T);
table = TableCreate(db, "MyTINTable", "Newly create tin db table");
TableAddFieldInteger(table, "IntField");
# write some important info to the db table
TableWriteRecord(table, 0, 55);
TableWriteRecord(table, 0, 45);
# one could then set up attachment or relation as desired

OpenVectorLineDatabase
Returns a database class for functions that need one.

OpenVectorLineDatabase(Vect)

場所:

パラメータ:

Vector Vect

Vector object

詳細と仮定

戻り値

class DATABASE

作成日時: 06-Apr-1998
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

Unable to locate sample script "smlsamples/StandAlone/tiger.sml" for this function.
Please download latest collection of reference scripts from www.microimages.com and try again.

OpenVectorNodeDatabase
Opens the Node database of the specified vector

OpenVectorNodeDatabase(Vect)

場所:

パラメータ:

Vector Vect

The vector object

戻り値

class DATABASE

作成日時: 06-Apr-1998
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

Unable to locate sample script "smlsamples/StandAlone/NETWORK1.sml" for this function.
Please download latest collection of reference scripts from www.microimages.com and try again.

OpenVectorPointDatabase
Open a Vector point database

OpenVectorPointDatabase(Vect)

場所:

パラメータ:

Vector Vect

The Vector

詳細と仮定

戻り値

class DATABASE

作成日時: 06-Apr-1998
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

Unable to locate sample script "smlsamples/StandAlone/attach.sml" for this function.
Please download latest collection of reference scripts from www.microimages.com and try again.

OpenVectorPolyDatabase
Returns a database class for functions that need one.

OpenVectorPolyDatabase(Vect)

場所:

パラメータ:

Vector Vect

Vector object

詳細と仮定

戻り値

class DATABASE

作成日時: 06-Apr-1998
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

Unable to locate sample script "smlsamples/StandAlone/tiger.sml" for this function.
Please download latest collection of reference scripts from www.microimages.com and try again.

RecordDelete
Delete one or more records.

RecordDelete(table, recordnum1, recordnum2, ...)

場所:

パラメータ:

class DBTABLEINFO table

The table to delete from

list of numbers recordnum1

The record list to delete

list of numbers recordnum2

(オプション)

Optional record list to delete

list of numbers ...

(オプション)

Optional record list to delete

戻り値

なし

作成日時: 06-Apr-1998
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

Unable to locate sample script "smlsamples/StandAlone/tiger.sml" for this function.
Please download latest collection of reference scripts from www.microimages.com and try again.

TableAddField
Append a field to a table

TableAddField(table, field)

場所:

パラメータ:

class DBTABLEINFO table

Table to add the field to

class DBFIELDINFO field

Information about the field to add

戻り値

class DBFIELDINFO

作成日時: 08-Jun-2001
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

class DATABASE db;
class DBTABLEINFO table, table2;
class DBFIELDINFO field, fieldcopy;
vector V;
numeric tablenum=1;
GetInputVector(V);     # used cb_soils
db = OpenVectorPolyDatabase(V);
if(TableExists(db, tablenum))
{
       table = DatabaseGetTableInfo(db, tablenum);
       field = FieldGetInfoByNumber(table, 1);       # get the first field
       fieldcopy = field;
       table2 = TableCreate(db, "NewTable", "Desc");
       TableAddField(table2, field);                # copy it to a second table
       print(field.Name,"added.");
}
else print("No table found");

TableAddFieldFloat
Add a new field of type float.

TableAddFieldFloat(table, name$, dispwidth, places)

場所:

パラメータ:

class DBTABLEINFO table

The table to insert into

string name$

The field name

numeric dispwidth

(オプション)

Number of digits to display

numeric places

(オプション)

Number of decimal places to display

戻り値

class DBFIELDINFO

作成日時: 06-Apr-1998
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

Unable to locate sample script "smlsamples/Misc/CreateTable.sml" for this function.
Please download latest collection of reference scripts from www.microimages.com and try again.

TableAddFieldInteger
Add a new field of type Integer.

TableAddFieldInteger(table, name$, dispwidth)

場所:

パラメータ:

class DBTABLEINFO table

The table to insert into

string name$

The field name

numeric dispwidth

(オプション)

Number of digits to display

戻り値

class DBFIELDINFO

作成日時: 06-Apr-1998
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

Unable to locate sample script "smlsamples/StandAlone/DB2.sml" for this function.
Please download latest collection of reference scripts from www.microimages.com and try again.

TableAddFieldString
Add a new field of type string.

TableAddFieldString(table, name$, maxlength, dispwidth)

場所:

パラメータ:

class DBTABLEINFO table

The table to insert into

string name$

The field name

numeric maxlength

Maximum length of string field

numeric dispwidth

(オプション)

Number of characters to display

戻り値

class DBFIELDINFO

作成日時: 06-Apr-1998
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

Unable to locate sample script "smlsamples/StandAlone/DB2.sml" for this function.
Please download latest collection of reference scripts from www.microimages.com and try again.

TableCopy
Copy a database table from one object's database to another

TableCopy(databaseSrc, table, databaseDest)

場所:

パラメータ:

class DATABASE databaseSrc

The source database

class DBTABLEINFO table

The table to be copied

class DATABASE databaseDest

The destination database

戻り値

numeric

作成日時: 08-Mar-2004
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

vector V1, V2;
GetInputVector(V1);
GetInputVector(V2);
class DATABASE db1, db2;
class DBTABLEINFO t1;
db1 = OpenVectorPolyDatabase(V1);
db2 = OpenVectorPolyDatabase(V2);
string table$;
PopupSelectTable(db1, table$);
t1 = DatabaseGetTableInfo(db1, table$);
numeric num = TableCopy(db1, t1, db2);
print(num);

TableCopyToDBASE
Copy a database table to a DBASE file

TableCopyToDBASE(table, filename$)

場所:

パラメータ:

class DBTABLEINFO table

The table

string filename$

DBASE file name

戻り値

なし

作成日時: 11-Sep-1998
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
vector V;
class DATABASE db;
class DBTABLEINFO table;
string tablename$, dbffile$;
GetInputVector(V);
if (V.$Info.NumPolys>0)
{
       # open the db and table
       db = OpenVectorPolyDatabase(V);
       PopupSelectTable(db, tablename$);
       print("You selected:", tablename$);
       # save the table to dbase
       dbffile$ = GetOutputFileName(tablename$, "Where would you like to save the table?", "dbf");
       table = DatabaseGetTableInfo(db, tablename$);
       TableCopyToDBASE(table, dbffile$);
       # for demonstration purposes, let's create a link to that dbase file
       TableLinkDBASE(db, dbffile$, tablename$+"Link", "Table linked from dbase");
}
else print("Cannot open polygon database");

TableCreate
Creates an empty table. Use TableAddField???() functions to add fields to it.

TableCreate(database, name$, description$)

場所:

パラメータ:

class DATABASE database

The database to add the table to

string name$

The table name

string description$

(オプション)

The table description

戻り値

class DBTABLEINFO

作成日時: 06-Apr-1998
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

Unable to locate sample script "smlsamples/StandAlone/DB2.sml" for this function.
Please download latest collection of reference scripts from www.microimages.com and try again.

TableDelete
Drops a table from its database

TableDelete(table)

場所:

パラメータ:

class DBTABLEINFO table

The table to delete

戻り値

numeric

作成日時: 24-Mar-2004
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
vector V;
class DATABASE db;
class DBTABLEINFO table;
string tablename$;
GetInputVector(V);
if (V.$Info.NumPolys>0)
{
              numeric err = 0;
              db = OpenVectorPolyDatabase(V);
              PopupSelectTable(db, tablename$);
              print("You selected:", tablename$);
              table = DatabaseGetTableInfo(db, tablename$);
              err = TableDelete(table);
              if (err<0) print("An error occurred");
              else print("Table deleted successfully.");
}

TableExists
Returns 1 if table exists, 0 if table doesn't exist

TableExists(database, name)

場所:

パラメータ:

class DATABASE database

Open database handle

any value name

Table Name or number

詳細と仮定

戻り値

numeric

作成日時: 27-Nov-2000
修正日時: 16-Jul-2003
TNTsml for Windows で使用可能: はい

例:

Unable to locate sample script "smlsamples/StandAlone/attach.sml" for this function.
Please download latest collection of reference scripts from www.microimages.com and try again.

TableGetInfo
Returns a table class.

TableGetInfo(table)

場所:

パラメータ:

table table

The table to get info about

戻り値

class DBTABLEINFO

作成日時: 06-Apr-1998
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

vector Vect;
class DBTABLEINFO table;
table = TableGetInfo(Vect.poly.YIELD);
# Another example:
string tablename$ = "YIELD";
table = TableGetInfo(Vect.poly.(tablename$));

TableGetRecordElementList
Get list of elements with a given record attached or related

TableGetRecordElementList(table, recordNum, elements, element_type$)

場所:

パラメータ:

class DBTABLEINFO table

The table to read from

numeric recordNum

The record number to check

array elements

The element numbers returned

string element_type$

(オプション)

Filter for the desired element type

"node"

"point"

"line"

"polygon"

"CAD"

"rastercell"

戻り値

numeric

作成日時: 24-Mar-2004
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# no sample necessary

TableGetRecordListElementList
Get list of elements to which a given list of records are attached or related

TableGetRecordListElementList(table, records, num_records, elements, element_type$)

場所:

パラメータ:

class DBTABLEINFO table

The table to read from

array records

The list of record numbers to check

numeric num_records

The number of records in the list

array elements

The element numbers returned

string element_type$

(オプション)

Filter for the desired element type

"node"

"point"

"line"

"polygon"

"CAD"

"rastercell"

戻り値

numeric

作成日時: 24-Mar-2004
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# no sample necessary

TableInsertFieldFloat
Add a new field of type float but inserts it before field "before".

TableInsertFieldFloat(table, name$, before, dispwidth, places)

場所:

パラメータ:

class DBTABLEINFO table

The table to insert into

string name$

The new field name

class DBFIELDINFO before

The field to insert before

numeric dispwidth

(オプション)

Number of digits display

numeric places

(オプション)

Number of decimal places to display

戻り値

class DBFIELDINFO

作成日時: 06-Apr-1998
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
class DATABASE db;
class DBTABLEINFO table;
class DBFIELDINFO field;
vector V;
string table$, field$;
# let the user select the desired Vect.Table.Field
# the script will insert fields prior to the one selected
GetInputVector(V);
db = OpenVectorPolyDatabase(V);
PopupSelectTableField(db, table$, field$);
table = DatabaseGetTableInfo(db, table$);
field = FieldGetInfoByName(table, field$);
numeric dispwidth=10, places=2;
TableInsertFieldFloat(table, "FloatField", field, dispwidth, places);
TableInsertFieldInteger(table, "IntegerField", field, dispwidth);
TableInsertFieldString(table, "StringField", field, dispwidth*2);
print(table$ + "." + field$);

TableInsertFieldInteger
Add a new field of type integer but inserts it before field "before".

TableInsertFieldInteger(table, name$, before, dispwidth)

場所:

パラメータ:

class DBTABLEINFO table

The table to insert into

string name$

The new field name

class DBFIELDINFO before

The field to insert before

numeric dispwidth

(オプション)

Number of digits to display

戻り値

class DBFIELDINFO

作成日時: 06-Apr-1998
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
class DATABASE db;
class DBTABLEINFO table;
class DBFIELDINFO field;
vector V;
string table$, field$;
# let the user select the desired Vect.Table.Field
# the script will insert fields prior to the one selected
GetInputVector(V);
db = OpenVectorPolyDatabase(V);
PopupSelectTableField(db, table$, field$);
table = DatabaseGetTableInfo(db, table$);
field = FieldGetInfoByName(table, field$);
numeric dispwidth=10, places=2;
TableInsertFieldFloat(table, "FloatField", field, dispwidth, places);
TableInsertFieldInteger(table, "IntegerField", field, dispwidth);
TableInsertFieldString(table, "StringField", field, dispwidth*2);
print(table$ + "." + field$);

TableInsertFieldString
Add a new field of type string but inserts it before field "before".

TableInsertFieldString(table, name$, before, maxlength, dispwidth)

場所:

パラメータ:

class DBTABLEINFO table

The table to insert into

string name$

The new field name

class DBFIELDINFO before

The field to insert before

numeric maxlength

Maximum length of string field

numeric dispwidth

(オプション)

Number of characters to display

戻り値

class DBFIELDINFO

作成日時: 06-Apr-1998
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
class DATABASE db;
class DBTABLEINFO table;
class DBFIELDINFO field;
vector V;
string table$, field$;
# let the user select the desired Vect.Table.Field
# the script will insert fields prior to the one selected
GetInputVector(V);
db = OpenVectorPolyDatabase(V);
PopupSelectTableField(db, table$, field$);
table = DatabaseGetTableInfo(db, table$);
field = FieldGetInfoByName(table, field$);
numeric dispwidth=10, places=2;
TableInsertFieldFloat(table, "FloatField", field, dispwidth, places);
TableInsertFieldInteger(table, "IntegerField", field, dispwidth);
TableInsertFieldString(table, "StringField", field, dispwidth*2);
print(table$ + "." + field$);

TableKeyFieldLookup
Find the first record in a table that matches a given value

TableKeyFieldLookup(table, fieldName$, fieldValue1, comparison_type$)

場所:

パラメータ:

class DBTABLEINFO table

The table

any value fieldName$

Can pass field name or field number

any value fieldValue1

The field value to match. Should be numeric or string, depending on the type of the
field you're doing the lookup on.

string comparison_type$

(オプション)

The strictness setting for comparison checking.

"Equals"

"StartsWith"

詳細と仮定

戻り値

numeric

作成日時: 13-Jul-1998
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
class DATABASE db;
class DBTABLEINFO table;
vector V;
string table$, field$;
numeric value = 5;     # the value to search for
numeric found=0;
# have user select vector, table, and field
GetInputVector(V);
db = OpenVectorPolyDatabase(V);
PopupSelectTableField(db, table$, field$);
print(table$+"."+field$);
# get the table
table = DatabaseGetTableInfo(db, table$);
found = TableKeyFieldLookup(table, field$, value);
print(found);
if (found>0)
{
       print(table$ + "." + field$ + " record number", found, "is the first match.");
}
else print("No match found.");

TableKeyFieldLookupList
Find the set of record in a table that matches a given value

TableKeyFieldLookupList(table, fieldName$, fieldValue1, record_list, comparison_type$)

場所:

パラメータ:

class DBTABLEINFO table

The table

any value fieldName$

Can pass field name or field number

any value fieldValue1

The field value to match. Should be numeric or string, depending on the type of the field you're doing the lookup on.

array record_list

The list of records that match the set criterion

string comparison_type$

(オプション)

The strictness setting for comparison checking.

"Equals"

"StartsWith"

戻り値

numeric

作成日時: 24-Mar-2004
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# no sample necessary

TableLinkDBASE
Makes a link to a dBase file.

TableLinkDBASE(database, filename$, name$, description$)

場所:

パラメータ:

class DATABASE database

The database

string filename$

The dBase file to link to

string name$

The table name

string description$

(オプション)

The table 'object description'

戻り値

class DBTABLEINFO

作成日時: 06-Apr-1998
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
vector V;
class DATABASE db;
class DBTABLEINFO table;
string tablename$, dbffile$;
GetInputVector(V);
if (V.$Info.NumPolys>0)
{
       # open the db and table
       db = OpenVectorPolyDatabase(V);
       PopupSelectTable(db, tablename$);
       print("You selected:", tablename$);
       # save the table to dbase
       dbffile$ = GetOutputFileName(tablename$, "Where would you like to save the table?", "dbf");
       table = DatabaseGetTableInfo(db, tablename$);
       TableCopyToDBASE(table, dbffile$);
       # for demonstration purposes, let's create a link to that dbase file
       TableLinkDBASE(db, dbffile$, tablename$+"Link", "Table linked from dbase");
}
else print("Cannot open polygon database");

TableNewRecord
Add new record to a database

TableNewRecord(table, fieldValue1, fieldValue2, ...)

場所:

パラメータ:

class DBTABLEINFO table

The database

any value fieldValue1

(オプション)

Record to add

any value fieldValue2

(オプション)

Optional record to add

any value ...

(オプション)

Optional record to add

戻り値

numeric

作成日時: 29-May-1998
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

Unable to locate sample script "smlsamples/StandAlone/tiger.sml" for this function.
Please download latest collection of reference scripts from www.microimages.com and try again.

TableOpen
Open a database table

TableOpen(database, tablename$)

場所:

パラメータ:

class DATABASE database

The database

string tablename$

The table name

戻り値

class DBTABLEVAR

作成日時: 26-May-1998
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

Unable to locate sample script "smlsamples/StandAlone/tiger.sml" for this function.
Please download latest collection of reference scripts from www.microimages.com and try again.

TableReadAttachment
Returns records that are attached to or related to a given element in a object

TableReadAttachment(table, element_number, records, element_type$)

場所:

パラメータ:

class DBTABLEINFO table

The table to get attachments for

numeric element_number

Number of element

array records

The array returned containing the attached record numbers

string element_type$

(オプション)

The type of element to read attachment from

"node"

"point"

"line"

"polygon"

"CAD"

"rastercell"

詳細と仮定

戻り値

numeric

作成日時: 14-Nov-2000
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

Unable to locate sample script "smlsamples/StandAlone/attach.sml" for this function.
Please download latest collection of reference scripts from www.microimages.com and try again.

TableReadFieldNum
Read a number from a table (using DBTABLEINFO)

TableReadFieldNum(table, fieldName$, recordNum)

場所:

パラメータ:

class DBTABLEINFO table

The table

any value fieldName$

Can pass field name or field number

numeric recordNum

Record number

戻り値

numeric

作成日時: 12-Jun-1998
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

Unable to locate sample script "smlsamples/StandAlone/attach.sml" for this function.
Please download latest collection of reference scripts from www.microimages.com and try again.

TableReadFieldStr
Read a string from a table (using DBTABLEINFO)

TableReadFieldStr(table, fieldName$, recordNum)

場所:

パラメータ:

class DBTABLEINFO table

The table

any value fieldName$

Can pass field name or field number

numeric recordNum

Record number

戻り値

string

作成日時: 12-Jun-1998
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

Unable to locate sample script "smlsamples/StandAlone/tiger.sml" for this function.
Please download latest collection of reference scripts from www.microimages.com and try again.

TableRemoveAttachment
Detaches records from an element in a object

TableRemoveAttachment(table, element_number, records, num_records, element_type$)

場所:

パラメータ:

class DBTABLEINFO table

The table to perform the operation on

numeric element_number

Number of element to detach from

array records

Array holding records to detach

numeric num_records

Number of records

string element_type$

(オプション)

The type of element to write attachment to

"node"

"point"

"line"

"polygon"

"CAD"

"rastercell"

戻り値

numeric

作成日時: 14-Nov-2000
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# CAUTION: This script will attempt to remove some attachments
# between elements and their db records.  For example purposes only!
clear();
vector V;
class DATABASE db;
class DBTABLEINFO table;
string tablename$;
GetInputVector(V);
if (V.$Info.NumPolys>0)
{
       db = OpenVectorPolyDatabase(V);
       PopupSelectTable(db, tablename$);
       
       print("You have sealed the fate of table:",tablename$);
       table = DatabaseGetTableInfo(db, tablename$);
       
       # mark all records for their ensuing detachment
       array numeric records[table.NumRecords];
       numeric numrecords=0;
       numeric i;
       for i=1 to NumVectorPolys(V) step 2    # deattach every other element
       {
              numrecords = TableReadAttachment(table, i, records);
              TableRemoveAttachment(table, i, records, numrecords);
       }
}

TableRemoveDuplicateRecords
Deletes duplicate records from the table

TableRemoveDuplicateRecords(table)

場所:

パラメータ:

class DBTABLEINFO table

The table to perform the operation on

戻り値

numeric

作成日時: 23-Mar-2004
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
vector V;
class DATABASE db;
class DBTABLEINFO table;
string tablename$;
GetInputVector(V);
if (V.$Info.NumPolys>0)
{
       numeric err = 0;
       db = OpenVectorPolyDatabase(V);
       PopupSelectTable(db, tablename$);
       print("You selected:", tablename$);
       table = DatabaseGetTableInfo(db, tablename$);
       err = TableRemoveDuplicateRecords(table);
       if (err<0) print("An error occurred");
       else print(err,  "duplicate records removed");
}

TableRemoveUnattachedRecords
Deletes unattached records from the table

TableRemoveUnattachedRecords(table)

場所:

パラメータ:

class DBTABLEINFO table

The table to perform the operation on

戻り値

numeric

作成日時: 23-Mar-2004
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
vector V;
class DATABASE db;
class DBTABLEINFO table;
string tablename$;
GetInputVector(V);
if (V.$Info.NumPolys>0)
{
       numeric err = 0;
       db = OpenVectorPolyDatabase(V);
       PopupSelectTable(db, tablename$);
       print("You selected:", tablename$);
       table = DatabaseGetTableInfo(db, tablename$);
       err = TableRemoveUnattachedRecords(table);
       if (err<0) print("An error occurred.");
       else print("All unattached records have been removed.");
}

TableTriggerRecordChangedCallback
Mark an externally altered record/table as changed

TableTriggerRecordChangedCallback(table, recordNum)

場所:

パラメータ:

class DBTABLEINFO table

The table that has been changed

numeric recordNum

(オプション)

The record changed

戻り値

numeric

作成日時: 12-May-2003
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

Unable to locate sample script "smlsamples/VisualBasic/ParcelToolModeless.sml" for this function.
Please download latest collection of reference scripts from www.microimages.com and try again.

TableWriteAttachment
Attaches records in a table to an element in a object

TableWriteAttachment(table, element_number, records, num_records, element_type$)

場所:

パラメータ:

class DBTABLEINFO table

The table to attach to

numeric element_number

Number of element to attach to

array records

Array holding the list of record numbers to attach

numeric num_records

Number of records listed in the records array

string element_type$

(オプション)

The type of element to write attachment to

"node"

"point"

"line"

"polygon"

"CAD"

"rastercell"

詳細と仮定

戻り値

numeric

作成日時: 14-Nov-2000
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# Example:
# Have the user select a vector object.
# attach records 5 and 7 to polygon number 12.
VECTOR Vect;
class DBTABLEINFO table;
array numeric records[2];
GetInputVector(Vect);
table = TableGetInfo(Vect.poly.YIELD);
records[1] = 5;
records[2] = 7;
TableWriteAttachment(table, 12, records, 2, "polygon");

TableWriteField
Write the value of an given field to an existing database record

TableWriteField(table, recordNum, fieldName$, fieldValue)

場所:

パラメータ:

class DBTABLEINFO table

The table to write to

numeric recordNum

The record number to write

string fieldName$

The field that will be changed

any value fieldValue

The new value to write to the given field

戻り値

numeric

作成日時: 08-Nov-2004
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

class DATABASE database;
vector V;
string tablename$, field$;
GetInputVector(V);
database = OpenVectorPolyDatabase(V);
PopupSelectTableField(database, tablename$, field$);
print(tablename$ + "." + field$);
class DBTABLEINFO table;
table = DatabaseGetTableInfo(database, tablename$);
# Write the value 999 to the selected field in record 3
numeric err = TableWriteField(table, 3, field$, 999);
PopupError(err);

TableWriteRecord
Write values to an existing database record

TableWriteRecord(table, recordNum, fieldValue1, fieldValue2, ...)

場所:

パラメータ:

class DBTABLEINFO table

The table

numeric recordNum

Record number to write. 0 for new record

any value fieldValue1

(オプション)

Value to write

any value fieldValue2

(オプション)

Value to write

any value ...

(オプション)

Value to write

戻り値

numeric

作成日時: 15-Jun-1998
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

vector V;
GetInputVector(V);# cbsoils_lite used
class DBTABLEINFO table;
table = TableGetInfo(V.poly.CLASS);
numeric recordNum = TableWriteRecord(table, 0, "AAAAA");
print(recordNum);

Raster functions (57)

AreaCorrelatePoint(RasterSource, xSource, ySource, RasterDestination, xDestination, yDestination, sourceSize, targetSize)

Raster RasterDestination

ラスタ

パラメータ:

Raster RasterSource

Source Raster

numeric xSource

X position in source

numeric ySource

Y position in source

Destination Raster

numeric variable xDestination

X position in destination (passed/returned)

numeric variable yDestination

Y position in destination (passed/returned)

numeric sourceSize

Size of the correlation window ( > 3)

numeric targetSize

Size of the area in target to search around

戻り値

Binarization
Calculates a raster binarization on an 8 or 4 bit raster

作成日時: 20-Jul-1998
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
raster Rs, Rd;
numeric xS, yS, xD, yD;
GetInputRaster(Rs);
GetInputRaster(Rd);
xS = 55;
yS = 60;
xD = 50;
yD = 63;
numeric sourceSize = 21;
numeric targetSize = 50;
numeric cor = AreaCorrelatePoint(Rs, xS, yS, Rd, xD, yD, sourceSize, targetSize);
print(xS, yS, xD, yD, cor);

Binarization(Raster, filename$, objname$, Array, BinaryValue)

場所:

パラメータ:

Raster variable to run binarization on.

RVC project.

Object name of binary raster to be created.

array Array

Array of raster values you want changed.

numeric BinaryValue

Value to change the raster values in the above array to (0 or 1).

戻り値

作成日時: 15-Jul-1999
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
class DISP handle;
raster Rvar, Rout;
array numeric myarray[15];
numeric x;
for x=1 to 15{
       myarray[x]=80+x;
       }
OpenRaster(Rvar, "c:/tnt/testdata.rvc", "GREEN");
Binarization(Rvar, "c:/tnt/testdata.rvc", "binaryout", myarray, 1);
OpenRaster(Rout, "c:/tnt/testdata.rvc", "binaryout");
handle=DispOpen(750,550);
DispQuickAddRasterVar(handle, Rout);
DispRedraw(handle);
CloseRaster(Rvar);
CloseRaster(Rout);

CloseRaster
Close an open raster

CloseRaster(Raster)

場所:

パラメータ:

Any valid raster variable

詳細と仮定

戻り値

ColScale
Get horizontal size of raster cell

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

raster Rvar;
clear();
GetInputRaster(Rvar);
Rvar[1, 1] = 42;
print(Rvar[1, 1]);
CloseRaster(Rvar);

ColScale(Raster)

場所:

パラメータ:

Any expression evaluating to a Raster (capitalized name)

戻り値

ComputeMeanRaster
The output raster contains the mean value (at each cell) of all of the inputs.

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

raster R;
GetInputRaster(R);
print(ColScale(R));

ComputeMeanRaster(OutputRaster, Raster1, Raster2, ...)

場所:

パラメータ:

Raster OutputRaster

The resultant raster

Any additional input rasters

詳細と仮定

戻り値

ComputeRasterProperties
Compute Raster attribute tables from a Vector object

作成日時: 25-Mar-2004
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

raster R1, R2, R3, Rout;
GetInputRaster(R1);
GetInputRaster(R2);
GetInputRaster(R3);
IgnoreNull(R1);
IgnoreNull(R2);
IgnoreNull(R3);
GetOutputRaster(Rout, NumLins(R1), NumCols(R1), RastType(R1));
ComputeMeanRaster(Rout, R1, R2, R3);
CloseRaster(Rout);
CloseRaster(R1);
CloseRaster(R2);
CloseRaster(R3);

ComputeRasterProperties(Raster, Vector, tableName$, tableDescription$, flag1$, flag2$, ...)

場所:

パラメータ:

Name of database table for Raster properties

string tableDescription$

Description of database table for Raster properties

string flag1$

How to process boundary cells

Compute histogram and include island flags

"NULL"

More Raster objects

戻り値

ComputeReliefShading
Compute relief shading of the input raster

作成日時: 11-Aug-1998
修正日時: 08-Jul-1999
TNTsml for Windows で使用可能: はい

例:

raster R;
vector V;
GetInputRaster(R);
GetInputVector(V);
ComputeRasterProperties(R, V, "TableName", "Description", "IncludeAll", "ComputeHistogram");

ComputeReliefShading(InputRast, OutputRast, sunElevationAngle, sunDirection, elevationScale)

場所:

パラメータ:

Raster InputRast

The input raster object

Raster OutputRast

The output raster object

numeric sunElevationAngle

Sun elevation in degrees - 0 -> 90

numeric sunDirection

Direction of sun in degrees - 0 -> 360

numeric elevationScale

Elevation scale (default = 1.0)

戻り値

ComputeSlopeAspectShading
Compute slope/aspect/shading from elevation Raster

作成日時: 09-Apr-2002
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

raster R;
raster Rshade;
GetInputRaster(R);
GetOutputRaster(Rshade, NumLins(R), NumCols(R), RastType(R));
numeric sunAngle=45, sunDir=180, elevScale=3;
ComputeReliefShading(R, Rshade, sunAngle, sunDir, elevScale);

ComputeSlopeAspectShading(inputRVCFile$, InputRaster$, outputRVCFile$, rescaleSlope, numberSlopeCells$, slopeTypeDegrees$, rescaleAspect, horizontalScale, verticalScale, elevationScale, sunElevationAngle, sunDirection, slopeObjectName$, slopeDescription$, slopeDataType$, aspectObjectName$, aspectDescription$, aspectDataType$, shadingObjectName$, shadingDescription$, shadingDataType$)

場所:

パラメータ:

string inputRVCFile$

The input RVC file name

string InputRaster$

The input Raster name

string outputRVCFile$

The output RVC file name

numeric rescaleSlope

Boolean - rescale slope range to 0 -> 255

string numberSlopeCells$

4 or 8 - default to 4

"4 neighbor"

"8 neighbor"

string slopeTypeDegrees$

1 for degrees, else percent - defaults to degrees

"Degrees"

"Percent"

numeric rescaleAspect

Boolean - rescale aspect range to 0 -> 240

numeric horizontalScale

Horizontal cell size - if 0 use inputs

numeric verticalScale

Vertical cell size - if 0 use inputs

numeric elevationScale

Elevation scale - if 0 use inputs

numeric sunElevationAngle

Sun elevation in degrees - 0 -> 90

numeric sunDirection

Direction of sun in degrees - 0 -> 360

string slopeObjectName$

string slopeDescription$

Default - Slope

Default - Computed from slopeFileName

string slopeDataType$

string aspectObjectName$

Default - 8-bit unsigned

string aspectDescription$

Default - Aspect

Default - Computed from aspectFileName

string aspectDataType$

string shadingObjectName$

Default - 8-bit unsigned

string shadingDescription$

Default - Shading

Default - Computed from shadingFileName

string shadingDataType$

Default - 8-bit unsigned

戻り値

ComputeStdDevRaster
The standard deviation (at each cell) of all of the inputs is assigned to the output raster.

作成日時: 22-Dec-1998
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

string inputFile$ = "c:/cb_tm.rvc";
string inputRaster$ = "ELEVATION";
string outputFile$ = "c:/SAS.rvc";
numeric rescaleSlope = 1;
string numberSlopeCells$ = "4 neighbor";
string slopeTypeDegrees$ = "Degrees";
numeric rescaleAspect = 1;
numeric horizontalScale = 30.0;
numeric verticalScale = 30.0;
numeric elevationScale = 1.0;
numeric sunElevationAngle = 50.0;
numeric sunDirection = 45.0;
ComputeSlopeAspectShading(inputFile$, inputRaster$, outputFile$,
rescaleSlope, numberSlopeCells$, slopeTypeDegrees$,
rescaleAspect, horizontalScale, verticalScale,
elevationScale, sunElevationAngle, sunDirection);

ComputeStdDevRaster(OutputRaster, Raster1, Raster2, ...)

場所:

パラメータ:

Raster OutputRaster

The resultant raster

Any additional input rasters

詳細と仮定

戻り値

ConvertCompToComp
Converts the color depth of a raster to another color depth.

作成日時: 25-Mar-2004
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

raster R1, R2, R3, Rout;
GetInputRaster(R1);
GetInputRaster(R2);
GetInputRaster(R3);
IgnoreNull(R1);
IgnoreNull(R2);
IgnoreNull(R3);
GetOutputRaster(Rout, NumLins(R1), NumCols(R1), RastType(R1));
ComputeStdDevRaster(Rout, R1, R2, R3);
CloseRaster(Rout);
CloseRaster(R1);
CloseRaster(R2);
CloseRaster(R3);

ConvertCompToComp(InputRaster, FileName$, ObjName$, ColorDepth)

場所:

パラメータ:

Raster InputRaster

Raster object to convert color of.

string FileName$

Name of RVC file to make new raster in.

string ObjName$

Object name of the new raster.

numeric ColorDepth

New images color depth (24, 16, 8, and 4 are valid values).

戻り値

ConvertRGBToComposite
Converts and RGB raster to an 8 or 4 bit composite

作成日時: 06-Aug-1999
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
class DISP handle;
raster Rvar, Ovar;
OpenRaster(Rvar, "c:/tnt/samp.rvc", "COMP24");
ConvertCompToComp(Rvar, "c:/tnt/samp.rvc", "conv8", 8);
OpenRaster(Ovar, "c:/tnt/samp.rvc", "conv8");
handle=DispOpen(750,550);
DispQuickAddRasterVar(handle, Ovar);
DispRedraw(handle);
CloseRaster(Rvar);
CloseRaster(Ovar);

ConvertRGBToComposite(RedRaster, GreenRaster, BlueRaster, FileName$, ObjName$, NumColors, BitDepth, SamplingRate, NullValue)

場所:

パラメータ:

Raster RedRaster

Red raster variable.

Raster GreenRaster

Green raster variable.

Raster BlueRaster

Blue raster variable.

string FileName$

Name of the RVC file to output to.

string ObjName$

Name of the output raster.

numeric NumColors

Number of colors to be used in output raster.

numeric BitDepth

Color depth in the output raster (8 or 4).

numeric SamplingRate

詳細と仮定

戻り値

CreateHistogram
Create a histogram for a Raster

作成日時: 28-Jul-1999
修正日時: 19-Mar-2004
TNTsml for Windows で使用可能: はい

例:

clear();
class DISP handle;
raster Rvar, Gvar, Bvar, Ovar;
OpenRaster(Rvar, "c:/tnt/samp.rvc", "RED");
OpenRaster(Gvar, "c:/tnt/samp.rvc", "GREEN");
OpenRaster(Bvar, "c:/tnt/samp.rvc", "BLUE");
ConvertRGBToComposite(Rvar, Gvar, Bvar, "c:/tnt/samp.rvc", "composite", 16, 8, 2);
OpenRaster(Ovar, "c:/tnt/samp.rvc", "composite");
handle=DispOpen(750,550);
DispQuickAddRasterVar(handle, Ovar);
DispRedraw(handle);
CloseRaster(Rvar);
CloseRaster(Gvar);
CloseRaster(Bvar);
CloseRaster(Ovar);

CreateHistogram(Raster, sampled)

場所:

パラメータ:

Any valid raster variable

numeric sampled

If true (1, which is the default if not specified), the histogram will be created from a sampled pymarid tier. If false (0), the histogram will be created for the full unsampled raster.

戻り値

CreatePyramid
Create a pyramid for the given raster object

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

raster R;
GetInputRaster(R);
CreateHistogram(R);
CloseRaster(R);

CreatePyramid(Raster, average)

場所:

パラメータ:

Any valid raster variable

numeric average

If non-zero, each output cell will be the average of the cells it represents

戻り値

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

raster R;
GetInputRaster(R);
CreatePyramid(R);
CloseRaster(R);

CreateRaster
Create a new raster

CreateRaster(Raster, filename$, objname$, desc$, lins, cols, datatype$)

場所:

パラメータ:

Any valid, as-yet-unused raster variable

A string containing the complete path name for
the new raster

A string containing the name to use for the
raster object in the rvc file (DOS filename
format assumed - case sensitive)

string desc$

A string containing the description of the
raster object used in the rvc file
(64 character maximum)

numeric lins

An integer holding the number of lines in the
raster being created

numeric cols

An integer holding the number of columns in
the raster being created

string datatype$

A string holding the data type used for each raster cell (see below)
"binary"
"4-bit unsigned"
"8-bit unsigned"
"8-bit signed"
"16-bit unsigned"
"16-bit signed"
"16-bit color RGB"
"16-bit color BGR"
"24-bit color RGB"
"24-bit color BGR"
"32-bit unsigned"
"32-bit signed"
"32-bit float"
"64-bit float"

戻り値

CreateRasterBinaryMask
Crete a binary mask raster

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
raster Rvar;
string file$="c:/temp.rvc";
string obj$="TempRast";
string description$="temporary raster for test";
numeric lin = 1024, col = 512;
string type$="8-bit unsigned";
CreateRaster(Rvar, file$, obj$, description$, lin, col, type$);
print(NumLins(Rvar), NumCols(Rvar));
# do some things to Rvar
CloseRaster(Rvar);

CreateRasterBinaryMask(Raster, filename$, objname$, MaskValue)

場所:

パラメータ:

Input raster

Output raster filename

Output raster object name

numeric MaskValue

Value to mask

詳細と仮定

戻り値

CreateRasterFromObject
Create a Raster to match a given Object.

作成日時: 23-Jul-1999
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

Unable to locate sample script "smlsamples/MacroScript/printsep.sml" for this function.
Please download latest collection of reference scripts from www.microimages.com and try again.

CreateRasterFromObject(Object, Raster, filename$, objname$, description$, horizontalScale, verticalScale, datatype$, georef)

場所:

パラメータ:

Raster, Vector or CAD Object

The Object to match

The Raster to create

Raster RVC filename

Horizontal cell size - in meters

Raster object name

string description$

Raster description

numeric horizontalScale

numeric verticalScale

Vertical cell size - in meters

string datatype$

Georef georef

Georeference of Vector

戻り値

なし

作成日時: 29-Apr-1998
修正日時: 29-Apr-1998
TNTsml for Windows で使用可能: はい

例:

raster R;
vector V;
class Georef georef;
GetInputVector(V);
georef = GetLastUsedGeorefObject(V);
CreateRasterFromObject(V, R, "c:/tnt/win32/projects/vtor/RasOut.rvc",
"VtoR", "Raster from Vector", 30, 30, "8-bit unsigned", georef);
R = 0; # zero out the Raster
CloseRaster(R);
CloseVector(V);
print("done");

CreateRasterMask
Crete a mask raster (for use as a transparancy mask)

CreateRasterMask(Raster, filename$, objname$, MaskValue)

場所:

パラメータ:

Raster Raster

Input raster

string filename$

Output filename

string objname$

Output raster object name

numeric MaskValue

Value to put in output raster

詳細と仮定

戻り値

なし

作成日時: 23-Jul-1999
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

Raster R;
GetInputRaster(R);
numeric percent = 50;
CreateRasterMask(R, R.$Info.Filename, R.$Info.Name+"Mask",percent*255/100);

CreateTempRaster
Create a raster in RAM

CreateTempRaster(Raster, lins, cols, datatype$, noDeleteOnClose)

場所:

パラメータ:

Raster Raster

Any valid, as-yet-unused raster variable

numeric lins

An integer holding the number of lines in the
raster being created

numeric cols

An integer holding the number of columns in the
raster being created

string datatype$

numeric noDeleteOnClose

(オプション)

If non-zero, the raster won't be automatically deleted when it is closed. It will be deleted when the SML script exits.

戻り値

なし

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
raster Rvar;
numeric lin = 1024, col = 512;
string type$="8-bit unsigned";
CreateTempRaster(Rvar, lin, col, type$);
print(NumLins(Rvar), NumCols(Rvar));
# do some things to Rvar
CloseRaster(Rvar);

DeleteContrast
Delete contrast subobjects of the given raster object

DeleteContrast(Raster)

場所:

パラメータ:

Raster Raster

Any valid raster variable

戻り値

なし

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

raster Rvar;
GetInputRaster(Rvar);
DeleteContrast(Rvar);

DeleteHistogram
Delete histogram subobject of the given raster object

DeleteHistogram(Raster)

場所:

パラメータ:

Raster Raster

Any valid raster variable

戻り値

なし

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

raster Rvar;
GetInputRaster(Rvar);
DeleteHistogram(Rvar);

DeletePyramid
Delete pyramid subobject of the given raster object

DeletePyramid(Raster)

場所:

パラメータ:

Raster Raster

Any valid raster variable

戻り値

なし

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

raster Rvar;
GetInputRaster(Rvar);
DeletePyramid(Rvar);

DeleteTempRaster
Delete a raster that has been created with CreateTempRaster()

DeleteTempRaster(Raster)

場所:

パラメータ:

Raster Raster

Any valid raster variable that was created with
CreateTempRaster()

詳細と仮定

戻り値

なし

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
raster rTemp;
numeric lin = 1024, col = 512;
string type$="8-bit unsigned";
CreateTempRaster(rTemp, lin, col, type$);
# do something with rTemp
DeleteTempRaster(rTemp);

GetInputRaster
Use a File/Object selection dialog to select an input Raster

GetInputRaster(Raster, lins, cols, datatype$)

場所:

パラメータ:

Raster Raster

A valid Raster object name

numeric lins

(オプション)

Optional - the number of lines allowed in the
raster to be chosen

numeric cols

(オプション)

Optional - the number of lines allowed in the
raster to be chosen

string datatype$

(オプション)

詳細と仮定

戻り値

なし

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

raster R;
numeric lines=488, columns=361; # Crow Butte TM raster dimensions
string type$="8-bit unsigned";
# allow only specific raster size and type
GetInputRaster(R, lines, columns, type$);
CloseRaster(R);
# allow any size, but only a specific type
GetInputRaster(R, 0, 0, type$);
CloseRaster(R);

GetInputRasters
Get more than one raster.

GetInputRasters(Raster, ...)

場所:

パラメータ:

Raster Raster

First Raster object

Raster ...

(オプション)

Additional Raster objects

戻り値

なし

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

raster Red, Green, Blue;
GetInputRasters(Red, Green, Blue);

GetMaxPossibleValue
Get the maximum possible data value in the raster

GetMaxPossibleValue(Raster)

場所:

パラメータ:

Raster Raster

The raster object to check

戻り値

numeric

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# no sample necessary

GetMinPossibleValue
Get the minimum possible data value in the raster

GetMinPossibleValue(Raster)

場所:

パラメータ:

Raster Raster

The raster object to check

戻り値

numeric

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# no sample necessary

GetOutputRaster
Use a File/Object selection dialog to select an output Raster

GetOutputRaster(Raster, lins, cols, datatype$)

場所:

パラメータ:

Raster Raster

Any valid raster variable

numeric lins

(オプション)

Optional - a number, use to force number of
lines in output raster

numeric cols

(オプション)

Optional - a number, use to force number of
columns in output raster

string datatype$

(オプション)

詳細と仮定

戻り値

なし

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

raster R, R2;
GetInputRaster(R);
numeric lin = 1024, col = 512;
string type$="8-bit unsigned";
# allow selection or creation of a raster identical
# in size and type to R.
GetOutputRaster(R2, lin, col, type$);
CloseRaster(R);
CloseRaster(R2);

HasNull
Does a raster object have an assigned NULL value?

HasNull(Raster)

場所:

パラメータ:

Raster Raster

A valid raster object

戻り値

numeric

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
raster R;
GetInputRaster(R);
if (HasNull(R)) then
       print("R has a NULL value.");
else
       print("R does not have a NULL value.");
# The last line is always executed - it's not part of the 'else' statement.
CloseRaster(R);

IgnoreNull
Do not report NULLs in raster object

IgnoreNull(Raster)

場所:

パラメータ:

Raster Raster

A valid raster object

詳細と仮定

戻り値

なし

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
raster R;
GetInputRaster(R);
if (HasNull(R)) then begin
       print("R has a NULL value.");
       print("\nIt is now ignored.");
       IgnoreNull(R);
       end
else begin
       print("R has no NULL value.");
       print("That's all, folks.");
       end
# The last line is always executed - it's not in the loop.
CloseRaster(R);

LinScale
Vertical size of raster cell

LinScale(Raster)

場所:

パラメータ:

Raster Raster

A valid raster

戻り値

numeric

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
raster R;
GetInputRaster(R);
numeric a=LinScale(R);
print("Line scale is:", a);
CloseRaster(R);

MultiRegression
Computes coefficients of multilinear regression equations on a set of rasters

MultiRegression(resultMat, Raster1, Raster2, ...)

場所:

パラメータ:

class MATRIX resultMat

The coefficients are returned via resultMat

Raster Raster1

Raster to compute regression for

Raster Raster2

Raster to compute regression for

Raster ...

(オプション)

Optional additional rasters

詳細と仮定

戻り値

なし

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
class MATRIX h1;
raster Rr, Rg, Rb;
h1 = CreateMatrix(3, 4); # holds the results
# get three input rasters to do multiregression on
GetInputRaster(Rr); # get red input raster
GetInputRaster(Rg); # get green input raster
GetInputRaster(Rb); # get blue input raster
# do the multi-regression - result in h1
MultiRegression(h1, Rr, Rg, Rb);
numeric r, c, a;
print("Multi-Regression Output");
for r = 0 to 2 {
              for c = 0 to 3 {
              a = GetMatrixItem(h1, r, c);
              printf("%8.4f ", a);
              }
       print();
       }
CloseRaster(Rr); # do clean up
CloseRaster(Rg);
CloseRaster(Rb);
DestroyMatrix(h1);

NullValue
Value (if any) assigned as NULL for a raster object

NullValue(Raster)

場所:

パラメータ:

Raster Raster

A valid raster variable

戻り値

numeric

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
raster R;
GetInputRaster(R);
numeric n=NullValue(R);
print("Null value is",n);
CloseRaster(R);

NumCols
Number of columns in a raster object

NumCols(Raster)

場所:

パラメータ:

Raster Raster

A valid raster object

戻り値

numeric

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
raster R;
GetInputRaster(R);
numeric columns=NumCols(R);
print("Number of columns:", columns);
CloseRaster(R);

NumLins
Number of lines (rows) in a raster object

NumLins(Raster)

場所:

パラメータ:

Raster Raster

A valid raster object

戻り値

numeric

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
raster R;
GetInputRaster(R);
numeric lines=NumLins(R);
print("Number of lines:", lines);
CloseRaster(R);

OpenRaster
Open an existing raster file, putting it in Raster

OpenRaster(Raster, filename$, objname$)

場所:

パラメータ:

Raster Raster

A valid raster object

string filename$

A string holding the RVC file in which the
raster object is found - file$ includes the
full path name.

string objname$

A string holding the name of the raster
object in the RVC file

詳細と仮定

戻り値

なし

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
raster R;
OpenRaster(R, "c:/data/cb_tm.rvc", "blue");
#  or OpenRaster(R, "c:\\data\\cb_tm.rvc", "blue");
print("Line count: ", NumLins(R));

OpenRasterObject
Open a raster given object from SelectInputObject()

OpenRasterObject(Raster, object)

場所:

パラメータ:

Raster Raster

Raster variable (undefined ok)

class OBJECT object

An OBJECT class

戻り値

なし

作成日時: 18-Nov-1998
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# See also OpenRaster(), GetInputRaster()
# as they are more straightforward for raster selection.
raster R;
class OBJECT obj;
obj = SelectInputObject("RASTER", "Select your favorite raster");
OpenRasterObject(R, obj);
print(R.$Info.Filename);
print(R.$Info.Number);
print(R.$Info.Name);
print(R.$Info.Type);

PackRGB
Pack an color into a single number

PackRGB(color, bits, order$)

場所:

パラメータ:

class COLOR color

The color

numeric bits

(オプション)

16-bit or 24-bit (default == 24)

string order$

(オプション)

RGB order (default == RGB)

"RGB"

"BGR"

戻り値

numeric

作成日時: 09-Apr-2002
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# no sample necessary

PrincipleComponents
Computes principal component transformation matrix for a set of rasters

PrincipleComponents(forwardMat, inverseMat, Raster1, Raster2, ...)

場所:

パラメータ:

class MATRIX forwardMat

Matrix used for calculating the
projection of the N-tuple vector
created from the raster values at a
common cell location onto the
principal component basis vectors.

class MATRIX inverseMat

Matrix used for converting back to
origional cell values

Raster Raster1

The first raster to perform principal components analysis on

Raster Raster2

The second raster to perform principal components analysis on

Raster ...

(オプション)

Optional additional rasters

詳細と仮定

戻り値

なし

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear(); # clear the console
# declare raster variables
raster Rr, Rg, Rb;
raster R1, R2, R3;
# declare matrices
class MATRIX forwardMat, inverseMat, inMat, outMat;
# create the transformation matrices
# to send to principal companent function
forwardMat = CreateMatrix(3, 3);
inverseMat = CreateMatrix(3, 3);
# outMat = (forward * inMat)
inMat = CreateMatrix(3, 1);
# use to calculate the transformation
outMat = CreateMatrix(3, 1);
# get three input rasters to do principal components on
# get red input raster
GetInputRaster(Rr);
GetInputRaster(Rg); # get green input raster
GetInputRaster(Rb); # get blue input raster
# create the rasters to hold principal components
# output values will contain negative numbers so
# allways use signed type
GetOutputRaster(R1, NumLins(Rr), NumCols(Rr), "64-bit float");
GetOutputRaster(R2, NumLins(Rr), NumCols(Rr), "64-bit float");
GetOutputRaster(R3, NumLins(Rr), NumCols(Rr), "64-bit float");
# get the tranformation matrices
PrincipleComponents(forwardMat, inverseMat, Rr, Rg, Rb);
# print the forward matrix
print("Forward matrix");
numeric r, c;
for r = 0 to 2 {
              for c = 0 to 2 {
              numeric a = GetMatrixItem(forwardMat, r, c);
              printf("%8.4f ", a);
              }
       print();
       }
# print the inverse matrix
print("Inverse matrix");
for r = 0 to 2 {
              for c = 0 to 2 {
              a = GetMatrixItem(inverseMat, r, c);
              printf("%8.4f ", a);
              }
       print();
       }
# now compute the principal component values
# for each point in raster
numeric numColumns = NumCols(Rr);
numeric numLines = NumLins(Rr);
for r = 1 to NumLins(Rr) {
              for c = 1 to NumCols(Rr) {
              SetMatrixItem(inMat, 0, 0, Rr[r,c]);
              SetMatrixItem(inMat, 1, 0, Rg[r,c]);
              SetMatrixItem(inMat, 2, 0, Rb[r,c]);
              MultiplyMatrix(outMat, forwardMat, inMat);
              R1[r,c] = GetMatrixItem(outMat, 0, 0);
              R2[r,c] = GetMatrixItem(outMat, 1, 0);
              R3[r,c] = GetMatrixItem(outMat, 2, 0);
              }
       }
# copy the georef
CopySubobjects(Rr, R1, "GEOREF");
CopySubobjects(Rr, R2, "GEOREF");
CopySubobjects(Rr, R3, "GEOREF");
# do clean up
CloseRaster(Rr);
CloseRaster(Rg);
CloseRaster(Rb);
CloseRaster(R1);
CloseRaster(R2);
CloseRaster(R3);
DestroyMatrix(forwardMat);
DestroyMatrix(inverseMat);
DestroyMatrix(inMat);
DestroyMatrix(outMat);

PrincipleComponentsExt
Compute principle components and statistics

PrincipleComponentsExt(forward, inverse, stats, Raster1, Raster2, ...)

場所:

パラメータ:

array forward

Forward translation matrix (will be resized as necessary)

array inverse

Inverse translation matrix (will be resized as necessary)

class PRINCOMPSTATS stats

Stastics returned

Raster Raster1

First raster

Raster Raster2

Second raster

Raster ...

(オプション)

(any number of rasters)

戻り値

なし

作成日時: 21-Dec-2000
修正日時: 26-Mar-2004
TNTsml for Windows で使用可能: はい

例:

clear(); # clear the console
# declare raster variables
raster Rr, Rg, Rb;
raster R1, R2, R3;
# declare principal component stats object
class PRINCOMPSTATS stats;
# declare matrices
class MATRIX forwardMat, inverseMat, inMat, outMat;
array numeric forward[3,3], inverse[3,3];
# create the transformation matrices
# to send to principal companent function
forwardMat = CreateMatrix(3, 3);
inverseMat = CreateMatrix(3, 3);
# outMat = (forward * inMat)
inMat = CreateMatrix(3, 1);
# use to calculate the transformation
outMat = CreateMatrix(3, 1);
# get three input rasters to do principal components on
# get red input raster
GetInputRaster(Rr);
GetInputRaster(Rg); # get green input raster
GetInputRaster(Rb); # get blue input raster
# create the rasters to hold principal components
# output values will contain negative numbers so
# allways use signed type
GetOutputRaster(R1, NumLins(Rr), NumCols(Rr), "64-bit float");
GetOutputRaster(R2, NumLins(Rr), NumCols(Rr), "64-bit float");
GetOutputRaster(R3, NumLins(Rr), NumCols(Rr), "64-bit float");
# get the tranformation matrices
PrincipleComponentsExt(forward, inverse, stats, Rr, Rg, Rb);
# print the forward array and dump values into a matrix
print("Forward matrix");
numeric r, c;
for r = 1 to 3 {
              for c = 1 to 3 {
              numeric a = forward[r,c];
              SetMatrixItem(forwardMat, r-1, c-1, a);# matrix is 0-indexed
              printf("%8.4f ", a);
              }
       print();
       }
# print the inverse array and dump values into a matrix
print("Inverse matrix");
for r = 1 to 3 {
              for c = 1 to 3 {
              a = inverse[r,c];
              SetMatrixItem(inverseMat, r-1, c-1, a);# matrix is 0-indexed
              printf("%8.4f ", a);
              }
       print();
       }
# now compute the principal component values
# for each point in raster
numeric numColumns = NumCols(Rr);
numeric numLines = NumLins(Rr);
for r = 1 to NumLins(Rr) {
              for c = 1 to NumCols(Rr) {
              SetMatrixItem(inMat, 0, 0, Rr[r,c]);
              SetMatrixItem(inMat, 1, 0, Rg[r,c]);
              SetMatrixItem(inMat, 2, 0, Rb[r,c]);
              MultiplyMatrix(outMat, forwardMat, inMat);
              R1[r,c] = GetMatrixItem(outMat, 0, 0);
              R2[r,c] = GetMatrixItem(outMat, 1, 0);
              R3[r,c] = GetMatrixItem(outMat, 2, 0);
              }
       }
# print some of the computed stats as a demo report
print();
print("The determinant result is: ", stats.Determinant);
print("The total variance is: ", stats.TotalVariance);
print("The correlation of bands 1,2: ", stats.GetCorrelation(1,2));
print("The correlation of bands 1,3: ", stats.GetCorrelation(1,3));
print("The correlation of bands 2,3: ", stats.GetCorrelation(2,3));
# copy the georef
CopySubobjects(Rr, R1, "GEOREF");
CopySubobjects(Rr, R2, "GEOREF");
CopySubobjects(Rr, R3, "GEOREF");
# do clean up
CloseRaster(Rr);
CloseRaster(Rg);
CloseRaster(Rb);
CloseRaster(R1);
CloseRaster(R2);
CloseRaster(R3);
DestroyMatrix(forwardMat);
DestroyMatrix(inverseMat);
DestroyMatrix(inMat);
DestroyMatrix(outMat);

RasterApplyContrast
Applies a contrast table to a raster. This function is obsolete. Use RasterApplyContrast2() instead.

RasterApplyContrast(InputRaster, FileName$, ObjName$, Flag$)

場所:

パラメータ:

Raster InputRaster

Raster object to change the contrast of.

string FileName$

Name of RVC file to make new raster in.

string ObjName$

Object name of the new raster.

string Flag$

Type of contrast to apply

"Linear"

"Normalize"

"Equalize"

"Logarithmic"

戻り値

なし

作成日時: 11-Aug-1999
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

class DISP handle;
raster Rvar, Ovar;
OpenRaster(Rvar, "c:/tnt/samp.rvc", "RED");
RasterApplyContrast(Rvar, "c:/tnt/samp.rvc", "contsamp", "equalize");
OpenRaster(Ovar, "c:/tnt/samp.rvc", "contsamp");
handle=DispOpen(750,550);
DispQuickAddRasterVar(handle, Ovar);
DispRedraw(handle);
CloseRaster(Rvar);
CloseRaster(Ovar);

RasterApplyContrast2
Applies a contrast table to a raster.

RasterApplyContrast2(InputRaster, OutputRaster, type$, SubobjectName$)

場所:

パラメータ:

Raster InputRaster

Raster object to get the contrast info from.

Raster OutputRaster

Output raster. Must be 8-bit Unsigned and same size as InputRaster.

string type$

Type of contrast to apply

"Linear"

"Normalize"

"Equalize"

"Logarithmic"

"Subobject"

string SubobjectName$

(オプション)

Contrast subobject to use if type$ == "Subobject". If omitted, use the most recently used contrast table.

戻り値

なし

作成日時: 11-Oct-2001
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

raster Rvar, OutRast;
GetInputRaster(Rvar);
GetOutputRaster(OutRast, NumLins(Rvar), NumCols(Rvar), "8-bit unsigned");
RasterApplyContrast2(Rvar, OutRast, "Subobject");

RasterCompress
Copy compressed source raster to the destination raster

RasterCompress(SrcRaster, DestRaster, filename$, objname$, desc$, comptype$, compquality, copySubobjects)

場所:

パラメータ:

Raster SrcRaster

Source raster to copy from

Raster DestRaster

Destination raster object to copy/compress to

string filename$

The output rvc file name

string objname$

The output raster object name

string desc$

The output raster description

string comptype$

The compression algorithm to use

"None"

"RLE"

"JPEG"

"Huffman"

"DPCM"

"JP2"

numeric compquality

(オプション)

The compression quality (jpeg) or ratio (jp2) used for lossy compression

numeric copySubobjects

(オプション)

Set to 1 (default) to copy subobjects, 0 otherwise

詳細と仮定

戻り値

numeric

作成日時: 09-Apr-2004
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

Raster Rin, Rout;
numeric err = 0;
GetInputRaster(Rin);
string file$ = Rin.$INFO.Filename;
string name$ = Rin.$INFO.Name + "_SML";
string desc$ = "Compressed raster";
# Function creates a new raster with 10:1 compression ratio
err=RasterCompress(Rin, Rout, file$, name$, desc$, "JP2", 10);
if (err >=0)
{
       print(Rout.$INFO.Name);
}
else print ("An error occurred during compression");

RasterCopy
Copy all or part of a raster (with optional parameters)

RasterCopy(InputRaster, OutputRaster, srclin, srccol, height, width, destlin, destcol)

場所:

パラメータ:

Raster InputRaster

Source raster to copy from

Raster OutputRaster

Destination raster object to copy to

numeric srclin

(オプション)

The initial source line (default = 1)

numeric srccol

(オプション)

The initial source column (default = 1)

numeric height

(オプション)

The height of the 'extract' portion (# of rows)

numeric width

(オプション)

The width of the 'extract' portion (# of cols)

numeric destlin

(オプション)

The initial destination line (default = 1)

numeric destcol

(オプション)

The initial destination column (default = 1)

詳細と仮定

戻り値

なし

作成日時: 21-Nov-2003
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# extract an interior portion of the input raster and copy to output
raster Rin, Rout;
GetInputRaster(Rin);
numeric lines = NumLins(Rin);
numeric cols = NumCols(Rin);
numeric startLine = int(lines/4);
numeric startColumn = int(cols/4);
numeric numlines = int(lines/2);
numeric numcols = int(cols/2);
print(startLine);
print(startColumn);
print(numlines);
print(numcols);
GetOutputRaster(Rout, numlines, numcols, RastType(Rin));
RasterCopy(Rin, Rout, startLine, startColumn, numlines, numcols);
CloseRaster(Rin);
CloseRaster(Rout);

RasterExists
Determine if a Raster exists. Made obsolete by ObjectExists()

RasterExists(filename$, objectname$)

場所:

パラメータ:

string filename$

RVC filename

string objectname$

Raster object name

詳細と仮定

戻り値

numeric

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# no sample necessary

RasterFloodFill
Does a flood fill at a cell location. This changes all equal adjacent cell values to the one specified.

RasterFloodFill(Raster, lin, col, value)

場所:

パラメータ:

Raster Raster

The raster to do the flood fill on.

numeric lin

The 'seed point' line number (flood source)

numeric col

The 'seed point' column number (flood source)

numeric value

The value to change this and all equal adjacent cells to.

戻り値

numeric

作成日時: 21-Nov-2003
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
#
# reclassify.sml
#
# This script is written to reclassify cell values in the user-entered input raster.
# Reclassification is based on meeting certain criteria for class (value) and area.
# For modification purposes, the variables used for this purpose are "threshold",
# "oldValue", "and newValue".
# Currently it is set to reclassify all areas of <5 acres in class '128' to class '0'.
#
class RASTER Rin;
class RASTER Result;
class STATUSDIALOG statusdialog;
class STATUSCONTEXT statuscontext;
# create the 5 acre threshold
numeric thresholdAcres = 5;
numeric oldValue = 128, newValue = 0;
# Get the input and output rasters.
GetInputRaster(Rin);
IgnoreNull(Rin);
GetOutputRaster(Result, NumLins(Rin), NumCols(Rin), RastType(Rin));
IgnoreNull(Result);
# Copy all cell values
printf("Copying source raster\n");
Result = Rin;
# Get the georeference info
CopySubobjects(Rin, Result);   # get colormap, contrast, georef, etc.
# Convert the threshold from Acres to cells
numeric threshold = thresholdAcres * 4046.85642 / (LinScale(Rin) * ColScale(Rin));
printf("Eliminating solid features less than or equal to %g acres (%d cells)\n", thresholdAcres, threshold);
numeric lin, col, r, up, left, count;
foreach Result[lin, col] {
       r = Result[lin,col];
       if (r == oldValue) {
              up = -1;
              left = -1;
              if (col > 1) left = Result[lin, col-1];
              if (lin > 1) up = Result[lin-1, col];
              #printf("R[%d,%d] = %d,  Cell to the left = %d, Cell above = %d\n", lin, col, r, left, up);
              if (left != oldValue && up != oldValue) {
                     #printf("Checking at %d,%d\n", lin, col);
                     count = RasterGetSolidAreaSize(Result, lin, col, threshold+1);
                     if (count <= threshold) {
                            #printf("Filling at %d,%d - count = %d\n", lin, col, count);
                            RasterFloodFill(Result, lin, col, newValue);
                            }
                     }
              }
       }
CreateHistogram(Result);
CreatePyramid(Result);

RasterGetSolidAreaSize
Finds the total number of contiguous cells sharing the seed point's cell value.

RasterGetSolidAreaSize(Raster, lin, col, maxsize)

場所:

パラメータ:

Raster Raster

The source raster.

numeric lin

The 'seed point' line number

numeric col

The 'seed point' column number

numeric maxsize

(オプション)

A threshold value used if the actual size,
above the specified maximum size, is not
important (this improves performance).

戻り値

numeric

作成日時: 21-Nov-2003
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
#
# reclassify.sml
#
# This script is written to reclassify cell values in the user-entered input raster.
# Reclassification is based on meeting certain criteria for class (value) and area.
# For modification purposes, the variables used for this purpose are "threshold",
# "oldValue", "and newValue".
# Currently it is set to reclassify all areas of <5 acres in class '128' to class '0'.
#
class RASTER Rin;
class RASTER Result;
class STATUSDIALOG statusdialog;
class STATUSCONTEXT statuscontext;
# create the 5 acre threshold
numeric thresholdAcres = 5;
numeric oldValue = 128, newValue = 0;
# Get the input and output rasters.
GetInputRaster(Rin);
IgnoreNull(Rin);
GetOutputRaster(Result, NumLins(Rin), NumCols(Rin), RastType(Rin));
IgnoreNull(Result);
# Copy all cell values
printf("Copying source raster\n");
Result = Rin;
# Get the georeference info
CopySubobjects(Rin, Result);   # get colormap, contrast, georef, etc.
# Convert the threshold from Acres to cells
numeric threshold = thresholdAcres * 4046.85642 / (LinScale(Rin) * ColScale(Rin));
printf("Eliminating solid features less than or equal to %g acres (%d cells)\n", thresholdAcres, threshold);
numeric lin, col, r, up, left, count;
foreach Result[lin, col] {
       r = Result[lin,col];
       if (r == oldValue) {
              up = -1;
              left = -1;
              if (col > 1) left = Result[lin, col-1];
              if (lin > 1) up = Result[lin-1, col];
              #printf("R[%d,%d] = %d,  Cell to the left = %d, Cell above = %d\n", lin, col, r, left, up);
              if (left != oldValue && up != oldValue) {
                     #printf("Checking at %d,%d\n", lin, col);
                     count = RasterGetSolidAreaSize(Result, lin, col, threshold+1);
                     if (count <= threshold) {
                            #printf("Filling at %d,%d - count = %d\n", lin, col, count);
                            RasterFloodFill(Result, lin, col, newValue);
                            }
                     }
              }
       }
CreateHistogram(Result);
CreatePyramid(Result);

RasterLinearCombination
Creates Rasters that are linear combinations of input Rasters

RasterLinearCombination(transformMat, outRVCFilename$, rasterNamePrefix$, rasterDescPrefix$, flags, inRas1, inRas2, ...)

場所:

パラメータ:

class MATRIX transformMat

A matrix used to set the
coefficients for the transform.

string outRVCFilename$

The destination RVC file for the
rasters created

string rasterNamePrefix$

Output raster name prefix

string rasterDescPrefix$

Output raster description prefix

numeric flags

0 no autoscale output Raster objects
1 autoscale output Raster objects

Raster inRas1

Required raster

Raster inRas2

Required raster

Raster ...

(オプション)

Optional additional rasters

詳細と仮定

戻り値

なし

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# creating and filling in the transform matrix
#
# the matrix size is determined by the number
# of input and output rasters:
# number of columns = number of input rasters + 1
# number of rows = number of output rasters
# column 1 hold offset coefficients
# columns 2 to (N + 1) hold the coeffients for the N
# output rasters
# in general if:
# N = number of output rasters, M = number of input rasters
#
# OutRasterN[r,c] =  transformMatrix[N-1,0]
#                    + transformMatrix[N-1,1] *
#                    InRaster1[r,c]
#                    + transformMatrix[N-1,2] *
#                    InRaster2[r,c]
#                    + ...
#                    + transformMatrix[N-1,M] *
#                    InRasterM[r,c]
#
# our matrix will be:
# | 0.0  .213  .715  .072 |  - coeff. for the first raster
# | 0.0  .333  .333  .333 |  - coeff. for the second raster
#
# our output rasters are created using these formulas:
#
# Lcombo1[r,c] = 0.0 + (.213 * Rred[r,c])
#                + (.715 * Rgreen[r,c])
#                + (.072 + Rblue[r,c])
#
# Lcombo2[r,c] = 0.0 + (.333 * Rred[r,c])
#                + (.333 * Rgreen[r,c])
#                + (.333 + Rblue[r,c])
#
# Compute brightness Raster from rgb rasters
# the coefficents are only approximate, correct for NTSC(1953)
# declare variables
class MATRIX transform;
raster Rred, Rgreen, Rblue;
# set up variables to hold values for flags
numeric flagNoAutoscale = 0;
numeric flagAutoscale = 1;
string outRVCFile$ = "c:/tnt/win32/Tntdata/cb_data/cb_tm.rvc";
# get the input rasters
OpenRaster(Rred, outRVCFile$, "RED");
OpenRaster(Rgreen, outRVCFile$, "GREEN");
OpenRaster(Rblue, outRVCFile$, "BLUE");
numeric numInputRasters = 3;
numeric numOutputRasters = 2;
transform = CreateMatrix(numOutputRasters, numInputRasters+1);
# output Raster one
# set matrix items (coefficients) equal to correct
# red, green, and blue contributions to brightness
SetMatrixItem(transform, 0, 0, 0.0); # sets offset to zero
SetMatrixItem(transform, 0, 1, .212); # red
SetMatrixItem(transform, 0, 2, .715); # green
SetMatrixItem(transform, 0, 3, .072); # blue
# output Raster two
# other method to compute brightness - not as good
# set coefficients for average of red, green, and blue
# sets offset to zero
SetMatrixItem(transform, 1, 0, 0.0);
SetMatrixItem(transform, 1, 1, .333); # red
SetMatrixItem(transform, 1, 2, .333); # green
SetMatrixItem(transform, 1, 3, .333); # blue
numeric flags = 0; # no auto scale
RasterLinearCombination(transform, outRVCFile$,"Lcombo",
"Linear Combinations Test :", flags, Rred, Rgreen, Rblue);
DestroyMatrix(transform);
CloseRaster(Rred);
CloseRaster(Rgreen);
CloseRaster(Rblue);

RasterToBinaryViewshed
Computes viewshed from elevation Raster object

RasterToBinaryViewshed(inRaster, OutRaster, nPoints, xMatrix, yMatrix, percent, height, zScale, maxdistance, horizstart, horizend, vertstart, vertend, earth_curv, invert_transp)

場所:

パラメータ:

Raster inRaster

The input Raster object to create viewshed from

Raster OutRaster

The output binary viewshed Raster object created

numeric nPoints

Number of view points

class MATRIX xMatrix

Matrix handle of matrix used to hold X values of view points

class MATRIX yMatrix

Matrix handle of matrix used to hold Y values of view points

numeric percent

(オプション)

Optional (default = 100) - the percentage of
viewpoints that must "see" a point before it is
included in the output Raster object.

numeric height

(オプション)

Optional (default = 0) - the height above or below the viewpoint

numeric zScale

(オプション)

Optional (default = 1) - the scale applied to the input Raster object

numeric maxdistance

(オプション)

The maximum distance for cell to be "visible" from

numeric horizstart

(オプション)

The starting degree for horizontal field of view (0-360)

numeric horizend

(オプション)

The ending degree for horizontal field of view (0-360)

numeric vertstart

(オプション)

The starting degree for vertical field of view (-90 to 90)

numeric vertend

(オプション)

The ending degree for vertical field of view (-90 to 90)

numeric earth_curv

(オプション)

1 to take earth curvature into accound, 0 otherwise

numeric invert_transp

(オプション)

1 to invert transparency for output raster

詳細と仮定

戻り値

なし

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# computes viewshed for all points on all lines
# of a corresponding Vector object
# could use to get viewshed for all points
# on one or more roads
clear(); # clear the console
# declare variables.
class MATRIX matX, matY;
class Georef georefR, georefV;
vector V;
raster Rin, Rout;
array numeric xArray[10]; # use to hold line points - x coord
array numeric yArray[10]; # use to hold line points - y coord
# get the input and output raster and Vector object
GetInputRaster(Rin);
GetInputVector(V);
GetOutputRaster(Rout);
# get georef object id's for raster and vector
georefR = GetLastUsedGeorefObject(Rin);
georefV = GetLastUsedGeorefObject(V);
# first count total number of points in all lines
numeric numLines = NumVectorLines(V);
numeric numberPoints = 0;
numeric thisLine, numPointsInThisLine;
for thisLine = 1 to numLines {
       numPointsInThisLine = GetVectorLinePointList(V, xArray, yArray, thisLine);
       numberPoints += numPointsInThisLine;
       }
# now create matrices large enough to hold points
matX = CreateMatrix(1, numberPoints);
matY = CreateMatrix(1, numberPoints);
# now loop through lines and fill in matrices with points
numeric currentPoint = 0; # this will be our matrix index
for thisLine = 1 to numLines {
       numPointsInThisLine = GetVectorLinePointList(V, xArray, yArray, thisLine);
       numeric i, xVector, yVector, rCol, rLine;
       for i = 1 to numPointsInThisLine {
              # convert vector coordinates to georef
              ObjectToMap(V, xArray[i], yArray[i], georefV, xVector, yVector);
              # convert vector coordinates to raster
              # coordinates
              # note the order of rCol and rLine
              # col = x coord, row = y coord
              MapToObject(georefR, xVector, yVector, Rin, rCol, rLine);
              # force to upper left corner
              rLine = floor(rLine);
              rCol = floor(rCol);
              # want matrix to index from zero to numberPoints
              SetMatrixItem(matX, 0, currentPoint, rCol);
              SetMatrixItem(matY, 0, currentPoint, rLine);
              currentPoint += 1;
              } # end of for I
       } # end of for each line in V
# set default values - want any one view point to make "visible"
numeric percent = 100 / numberPoints, height = 0, zScale=1;
# now create the viewshed Raster object
RasterToBinaryViewshed(Rin, Rout, numberPoints, matX, matY, percent, height, zScale);
# clean up
GeorefFree(georefR); # must free up id's
GeorefFree(georefV);
DestroyMatrix(matX);
DestroyMatrix(matY);
CloseRaster(Rin);
CloseRaster(Rout);

RastType
Returns data type code of a raster object

RastType(Raster)

場所:

パラメータ:

Raster Raster

A valid raster

詳細と仮定

戻り値

string

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
raster R;
GetInputRaster(R);
print(RastType(R));
CloseRaster(R);

ReadHistogram
Read raster's histogram into array

ReadHistogram(Raster, histo)

場所:

パラメータ:

Raster Raster

A valid raster variable

array histo

A valid array variable

詳細と仮定

戻り値

なし

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
raster R;
array numeric histo[256];
GetInputRaster(R, 0, 0, "8-bit unsigned");
ReadHistogram(R, histo);
numeric i;
for i=0 to 255
       print(i, histo[i]);
CloseRaster(R);

ResampleRasterToCellSize
Copies, transforms and resamples cells to new raster

ResampleRasterToCellSize(InRast, OutRast, linscale, colscale, model$, method$, DEM, geoidHeight)

場所:

パラメータ:

Raster InRast

Input raster variable

Raster OutRast

Output raster variable

numeric linscale

Line scale, in meters

numeric colscale

(オプション)

Column scale, in meters

string model$

(オプション)

The type of model for resampling

"from_georeference"

"affine"

"plane_projective"

"bilinear"

"order_2_polynomial"

"order_3_polynomial"

"order_4_polynomial"

"piecewise_affine"

"rational_polynomial"

string method$

(オプション)

The method of resampling

"nearest"

"bilinear"

"cubic"

Raster DEM

(オプション)

The dem to use for rational polynomial

numeric geoidHeight

(オプション)

The geoid height to use for rational polynomial

詳細と仮定

戻り値

なし

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

class RASTER Rin, Rout;
# decrease resolution
numeric scalefactor = .5;
GetInputRaster(Rin);
numeric outLins = NumLins(Rin) * scalefactor;  # inversely related to scale
numeric outCols = NumCols(Rin) * scalefactor;
GetOutputRaster(Rout, outLins, outCols, RastType(Rin));
numeric outLinScale = LinScale(Rin) / scalefactor;     # double line scale
numeric outColScale = ColScale(Rin) / scalefactor;
ResampleRasterToCellSize(Rin, Rout, outLinScale, outColScale, "affine", "nearest");
CloseRaster(Rin);
CloseRaster(Rout);

ResampleRasterToMatch
Create a new raster

ResampleRasterToMatch(InRast, RefRast, OutRast, model$, method$, DEM, geoidHeight)

場所:

パラメータ:

Raster InRast

Any valid raster variable

Raster RefRast

Any valid raster variable whose size, type,
projection, and all other parameters will be
duplicated in Rout

Raster OutRast

Any valid, unused raster variable. Its
parameters will be set to those of Rref.

string model$

(オプション)

The type of model for geometric transformation

"from_georeference"

"affine"

"plane_projective"

"bilinear"

"order_2_polynomial"

"order_3_polynomial"

"order_4_polynomial"

"piecewise_affine"

"rational_polynomial"

string method$

(オプション)

The method of resampling

"nearest"

"bilinear"

"cubic"

Raster DEM

(オプション)

The dem to use for rational polynomial

numeric geoidHeight

(オプション)

The geoid height to use for rational polynomial

詳細と仮定

戻り値

なし

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

raster Rin, Rref, Rout;
GetInputRaster(Rin);
GetInputRaster(Rref);
numeric lin=NumLins(Rref);
numeric col=NumCols(Rref);
string type$=RastType(Rref);
printf("Enter new null value: ");
numeric newNull=input(255);
GetOutputRaster(Rout, lin, col, type$);
SetNull(Rout, newNull);
string model$="affine";
string method$="nearest neighbor";
ResampleRasterToMatch(Rin, Rref, Rout, model$, method$);
CloseRaster(Rin);
CloseRaster(Rref);
CloseRaster(Rout);

SelectInputObject
Popup dialog to select an object

SelectInputObject(type$, prompt$, filename$, objname$)

場所:

パラメータ:

string type$

Object type ("RASTER", "VECTOR" ...)

string prompt$

(オプション)

Prompt string to use

string filename$

(オプション)

Default filename

string objname$

(オプション)

Default object name

戻り値

class OBJECT

作成日時: 18-Nov-1998
修正日時: 17-May-2000
TNTsml for Windows で使用可能: はい

例:

Unable to locate sample script "smlsamples/StandAlone/doqq7.sml" for this function.
Please download latest collection of reference scripts from www.microimages.com and try again.

SetNull
Assign NULL value of Raster to be x

SetNull(Raster, nullvalue)

場所:

パラメータ:

Raster Raster

A valid raster

numeric nullvalue

Any expression which evaluates to a number

詳細と仮定

戻り値

なし

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
raster R;
GetInputRaster(R, 0, 0, "8-bit unsigned");
numeric x=PopupNum("Enter integer.", 0, 0, 255, 0);
SetNull(R, x);
CloseRaster(R);

SetScale
Assign vertical and horizontal cell size

SetScale(Raster, linscale, colscale)

場所:

パラメータ:

Raster Raster

A valid raster

numeric linscale

Any expression which evaluates to a number

numeric colscale

Any expression which evaluates to a number

戻り値

なし

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
raster R;
GetInputRaster(R, 0, 0, "8-bit unsigned");
numeric h, v;
h=PopupNum("Enter h scale.", 0, 0, 255, 0);
v=PopupNum("Enter v scale.", 0, 0, 255, 0);
SetScale(R, h, v);
CloseRaster(R);

UnpackRGB
Converts a composite raster cell value to a COLOR

UnpackRGB(value, bits, order$)

場所:

パラメータ:

numeric value

The RGB value

numeric bits

(オプション)

16-bit or 24-bit (default == 24)

string order$

(オプション)

RGB order (default == RGB)

"RGB"

"BGR"

戻り値

class COLOR

作成日時: 09-Apr-2002
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# no sample necessary

UseNull
Recognize and use assigned NULL value of raster object

UseNull(Raster)

場所:

パラメータ:

Raster Raster

A valid raster

詳細と仮定

戻り値

なし

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
raster R;
GetInputRaster(R);
if (PopupYesNo("Use the null value?", 1)) then
UseNull(R);
CloseRaster(R);

Vector functions (38)

CloseVector
Close a Vector object.

CloseVector(Vector)

パラメータ:

戻り値

CreateTempVector
Create a temporary Vector object.

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

vector V;
GetInputVector(V);
# do something with V
CloseVector(V);

CreateTempVector(Vector, flag1$, flag2$)

場所:

パラメータ:

Vector type settings for the temporary vector

Vector maintenance settings for the temporary vector

"NoQtree"

"NoDBStatTable"

"KeepAttachedLabels"

"RemExNodesDelLine"

詳細と仮定

戻り値

CreateVector
Create a Vector without using a dialog using same flags as GetOutputVector().

作成日時: 10-Apr-1998
修正日時: 19-May-1998
TNTsml for Windows で使用可能: はい

例:

vector VTemp;
CreateTempVector(VTemp);
# do something with it
CloseVector(VTemp);

CreateVector(Vector, filename$, objname$, desc$, flag1$, flag2$)

場所:

パラメータ:

Vector object description

string flag1$

Vector maintenance settings

Vector type settings

"NoQtree"

"NoDBStatTable"

"KeepAttachedLabels"

"RemExNodesDelLine"

戻り値

FindClosestLabel
Find closest Vector label.

作成日時: 07-May-1998
修正日時: 19-May-1998
TNTsml for Windows で使用可能: はい

例:

vector Vpoly, Vplanar, Vnetwork, Vnotopo;
CreateVector(Vpoly,    "c:/tnt/testCreateVector.rvc", "Vpoly",    "Polygonal",  "Polygonal");
CreateVector(Vplanar,  "c:/tnt/testCreateVector.rvc", "Vplanar",  "Planar",     "Planar");
CreateVector(Vnetwork, "c:/tnt/testCreateVector.rvc", "Vnetwork", "Network",    "Network");
CreateVector(Vnotopo,  "c:/tnt/testCreateVector.rvc", "Vnotopo",  "NoTopology", "NoTopology");
# Do something with one of the objects
# add three points to the network vector
VectorAddPoint(Vnetwork, 0, 0);
VectorAddPoint(Vnetwork, 25, 25);
VectorAddPoint(Vnetwork, 50, 50);
# close the objects
CloseVector(Vpoly);
CloseVector(Vplanar);
CloseVector(Vnetwork);
CloseVector(Vnotopo);

FindClosestLabel(Vector, x, y, georef, maxdist, Distance)

場所:

パラメータ:

numeric y

CloseStyleObject
Close an open style object

GEOREF georef

(オプション)

Georef object

numeric maxdist

(オプション)

The maximum distance to search

numeric variable Distance

(オプション)

Returned distance

戻り値

numeric

作成日時: 22-Jun-1981
修正日時: 24-Jun-1999
TNTsml for Windows で使用可能: はい

例:

# Find the label closest to the 'object center'
vector Vin;
class Georef georef;
GetInputVector(Vin);
georef = GetGeorefObject(Vin);
# find the x and y midpoint
numeric xMin, xMax, yMin, yMax;
GetObjectExtents(Vin, xMin, yMin, xMax, yMax, georef);
numeric midX = (xMax + xMin)/2;
numeric midY = (yMax + yMin)/2;
numeric dist = xMax-midX;
numeric numberLabels = NumVectorLabels(Vin);
numeric labelnum = FindClosestLabel(Vin, midX, midY, georef, dist);
print("number", numberLabels, "closest", labelnum);

FindClosestLine
Return line element closest to x,y coordinates

FindClosestLine(Vector, x, y, georef, maxdist, Distance)

場所:

パラメータ:

Vector Vector

A valid vector object

numeric x

Any expression that evaluates to a number
representing the horizontal coordinate of interest

numeric y

Any expression that evaluates to a number
representing the vertical coordinate of interest

class GEOREF georef

(オプション)

The georeference object associated with "Vector"

numeric maxdist

(オプション)

The maximum distance (in the selected
georeference coordinate system) to search for
a line before giving up

numeric variable Distance

(オプション)

Optional variable to store the distance to the line

詳細と仮定

戻り値

numeric

作成日時: 01-Dec-1997
修正日時: 24-Jun-1999
TNTsml for Windows で使用可能: はい

例:

vector Vvar;
class Georef georef;
clear();
GetInputVector(Vvar);
georef = GetGeorefObject(Vvar);
print("Enter x.");
       numeric x = input();
print("Enter y.");
       numeric y = input();
print("Enter maxDistance.");
       numeric maxDistance = input();
numeric num = FindClosestLine(Vvar, x, y, georef, maxDistance);
print(num);

FindClosestNode
Return node element closest to x,y coordinates

FindClosestNode(Vector, x, y, georef, maxdist, Distance)

場所:

パラメータ:

Vector Vector

A valid vector object

numeric x

Any expression that evaluates to a number
representing the horizontal coordinate of interest

numeric y

Any expression that evaluates to a number
representing the vertical coordinate of interest

class GEOREF georef

(オプション)

The georeference object associated with "Vector"

numeric maxdist

(オプション)

The maximum distance (in the selected
georeference coordinate system) to search for
a node before giving up

numeric variable Distance

(オプション)

Optional variable to store the distance to the node

詳細と仮定

戻り値

numeric

作成日時: 01-Dec-1997
修正日時: 24-Jun-1999
TNTsml for Windows で使用可能: はい

例:

clear();
Vector Vvar;
class Georef georef;
GetInputVector(Vvar);
georef = GetGeorefObject(Vvar);
print("Enter x.");
       numeric x = input();
print("Enter y.");
       numeric y = input();
print("Enter maxDistance.");
       numeric maxDistance = input();
numeric num=FindClosestNode(Vvar, x, y, georef, maxDistance);
print(num);

FindClosestPoint
Return point element closest to x,y coordinates

FindClosestPoint(Vector, x, y, georef, maxdist, Distance)

場所:

パラメータ:

Vector Vector

A valid vector object

numeric x

Any expression that evaluates to a number
representing the horizontal coordinate of interest

numeric y

Any expression that evaluates to a number
representing the vertical coordinate of interest

class GEOREF georef

(オプション)

The georeference object associated with "Vector"

numeric maxdist

(オプション)

The maximum distance (in the selected
georeference coordinate system) to search for
a point before giving up

numeric variable Distance

(オプション)

Optional variable to store the distance to the point

詳細と仮定

戻り値

numeric

作成日時: 01-Dec-1997
修正日時: 24-Jun-1999
TNTsml for Windows で使用可能: はい

例:

clear();
Vector Vvar;
class Georef georef;
GetInputVector(Vvar);
georef = GetGeorefObject(Vvar);
print("Enter x.");
       numeric x = input();
print("Enter y.");
       numeric y = input();
print("Enter maxDistance.");
       numeric maxDistance = input();
numeric num = FindClosestPoint(Vvar, x, y, georef, maxDistance);
print(num);

FindClosestPoly
Return polygon element closest to x,y coordinates

FindClosestPoly(Vector, x, y, georef, maxdist, Distance)

場所:

パラメータ:

Vector Vector

A valid vector object

numeric x

Any expression that evaluates to a number
representing the horizontal coordinate of interest

numeric y

Any expression that evaluates to a number
representing the vertical coordinate of interest

class GEOREF georef

(オプション)

The georeference object associated with "Vector"

numeric maxdist

(オプション)

The maximum distance (in the selected
georeference coordinate system) to search for
a point before giving up

numeric variable Distance

(オプション)

Optional variable to store the distance to the polygon

詳細と仮定

戻り値

numeric

作成日時: 01-Dec-1997
修正日時: 24-Jun-1999
TNTsml for Windows で使用可能: はい

例:

clear();
Vector Vvar;
class Georef georef;
numeric x, y, maxDistance, num;
GetInputVector(Vvar);
georef = GetGeorefObject(Vvar);
print("Enter x.");
       numeric x = input();
print("Enter y.");
       numeric y = input();
print("Enter maxDistance.");
       numeric maxDistance = input();
numeric num=FindClosestPoly(Vvar, x, y, georef, maxDistance);
print(num);

GenerateCrossSection
Generate a vector cross section

GenerateCrossSection(polyline, srcObject, surfObject, destObject, baseValue, flags$)

場所:

パラメータ:

class POLYLINE polyline

The polyline to use for the cross-section (in srcObject map coords)

Vector srcObject

The source object

Raster surfObject

The surface raster object

Vector destObject

The destination vector object

numeric baseValue

The base elevation value

string flags$

(オプション)

Set to create without manifold georeference

"NoGeoreference"

戻り値

numeric

作成日時: 23-Apr-2004
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

Vector src, dest;
Raster surf;
# set the base value
numeric baseValue = 0;
# get the input objects
GetInputVector(src);
GetInputRaster(surf);
GetOutputVector(dest);
# set up the polyline (w/ georeferenced pt coords)
class POLYLINE polyline;
numeric xmin, ymin, xmax, ymax;
class GEOREF g = GetLastUsedGeorefObject(src);
GetObjectExtents(src, xmin, ymin, xmax, ymax, g);
# add the points to the polyline
class POINT2D tmp;
tmp.x = xmin; tmp.y = ymin;
polyline.AppendVertex(tmp);
tmp.x = xmax; tmp.y = ymax;
polyline.AppendVertex(tmp);
# do the cross section
numeric err = GenerateCrossSection(polyline, src, surf, dest, baseValue, "NoGeoreference");
PopupError(err);

GetInputVector
Use a File/Object selection dialog to select an input Vector

GetInputVector(Vector)

場所:

パラメータ:

Vector Vector

A valid vector variable

戻り値

なし

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

vector Vvar;
GetInputVector(Vvar);
# do something with it
CloseVector(Vvar);

GetInputVectorList
Get multiple Vector objects.

GetInputVectorList(VectorList, prompt$)

場所:

パラメータ:

Vector List VectorList

Vector object list

string prompt$

(オプション)

The prompt string for the popup dialog.

戻り値

numeric

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

Unable to locate sample script "smlsamples/Misc/vector2raster.sml" for this function.
Please download latest collection of reference scripts from www.microimages.com and try again.

GetOutputVector
Open a vector object for use with vector toolkit funtions

GetOutputVector(Vector, flag1$, flag2$)

場所:

パラメータ:

Vector Vector

A valid vector variable

string flag1$

(オプション)

Vector type settings

"VectorToolkit"

"Polygonal"

"Planar"

"Network"

"NoTopology"

"3DVector"

string flag2$

(オプション)

Vector maintenance settings

"NoQtree"

"NoDBStatTable"

"KeepAttachedLabels"

"IsContour"

"NoStyle"

"NoConvIfElemID"

"NoDatabase"

"RemExNodesDelLine"

"NoHyper"

"NoCreateTables"

"NoCreateStyle"

"NoCreateElemID"

"NoCreatePolyID"

"IgnoreBadMinMax"

"NoValidateNodes"

"NoSaveQTree"

"NoPolyQTree"

"NoLineQTree"

"NoPointQTree"

"NoLabelQTree"

"NoNodeQTree"

"NoQTrees"

"NoStatusText"

"NoCreateElemID"

詳細と仮定

戻り値

なし

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
vector V;
array numeric xPoints[10], yPoints[10];
# for multiple flags simply comma seperate them as below
GetOutputVector(V, "VectorToolkit", "NoQtree,NoDBStatTable");
# draw some boxes  - this will create polygons
# all closed lines are converted to polygons
xPoints[1] = 0;
yPoints[1] = 0;
xPoints[2] = 100;
yPoints[2] = 0;
xPoints[3] = 100;
yPoints[3] = 100;
xPoints[4] = 0;
yPoints[4] = 100;
xPoints[5] = 0;
yPoints[5] = 0;
VectorAddLine(V, 5, xPoints, yPoints);
# now add some points
numeric i;
for i = 1 to 4 {
       VectorAddPoint(V, xPoints[i] + 150, yPoints[i] + 150);
       }
numeric numPolys = NumVectorPolys(V);
numeric numberPoints = NumVectorPoints(V);
print("number of polygons, points: ", numPolys, numberPoints);

GetVectorLine
Returns the polyine given the line element number.

GetVectorLine(Vectvar, element)

場所:

パラメータ:

Vector Vectvar

A vector variable

numeric element

The line element number

戻り値

class POLYLINE

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
vector V;
class POLYLINE pline;
numeric linenum = 10;
GetInputVector(V);
pline = GetVectorLine(V, linenum);
print("Length =",pline.ComputeLength());
print("NumPts =",pline.GetNumPoints());
if(pline.IsClosed())   print("The line is closed");
else print("The line is not closed");

GetVectorLinePointList
Returns (via arrays 'xarray' and 'yarray', and optional 'zarray') a list of points in a line.

GetVectorLinePointList(Vector, xarray, yarray, line, zarray)

場所:

パラメータ:

Vector Vector

A vector variable

array xarray

An array for holding x values of point list

array yarray

An array for holding y values of point list

numeric line

(オプション)

The line element number

array zarray

(オプション)

An array for holding z values of point list

詳細と仮定

戻り値

numeric

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

array numeric xArray[10], yArray[10], zArray[10]; # will be resized automatically
vector Vvar;
GetInputVector(Vvar);
numeric numLines, nPoints;
numLines = NumVectorLines(Vvar);
nPoints = GetVectorLinePointList(Vvar, xArray, yArray, 1, zArray);
numeric i;
for i = 1 to nPoints {
       print(xArray[i], yArray[i], zArray[i]);
       }

GetVectorNodeLineList
Returns (via array 'lines') a list of lines attached to node.

GetVectorNodeLineList(Vector, lines, node)

場所:

パラメータ:

Vector Vector

A vector variable

array lines

An array for holding line list

numeric node

(オプション)

The node element number

詳細と仮定

戻り値

numeric

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
vector Vvar;
array numeric linelist[10]; # will be resized automatically
GetVectorNodeLineList(Vvar, linelist, 1);

GetVectorPolyAdjacentPolyList
Returns list of all polygons that share a common line with a given polygon in a vector object

GetVectorPolyAdjacentPolyList(Vector, polygonList, polygonNumber)

場所:

パラメータ:

Vector Vector

A valid vector object

array polygonList

One dimensional array of polygons returned

numeric polygonNumber

(オプション)

The polygon to search around

詳細と仮定

戻り値

numeric

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# reads the poly list of all adjacent polygons to a given polygon
# it only returns polygons that have common lines !!!
# not a single common node
vector V;
array numeric polygonList[10]; # array to hold poly list
clear();
GetInputVector(V);
numeric polygonNumber = 150; # polygonNumber = 150 works for cb_soils/CBSOILS_Lite
numeric numadjacent = GetVectorPolyAdjacentPolyList(V, polygonList, polygonNumber);
string temp$ = "number of polygons adjacent to polygon:";
print(temp$, polygonNumber, " = ", numadjacent);
numeric i;
for i = 1 to numadjacent {
       print(i, ":", polygonList[i]);
       }
print("Done");

GetVectorPolyIslandList
Returns (via array 'islands') a list of islands of a polygon.

GetVectorPolyIslandList(Vector, islands, polygon)

場所:

パラメータ:

Vector Vector

A vector variable

array islands

An array for holding island list

numeric polygon

(オプション)

The polygon element number

詳細と仮定

戻り値

numeric

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
vector Vvar;
array numeric islandlist[10]; # will be resized automatically
GetVectorPolyIslandList(Vvar, islandlist, 1);

GetVectorPolyLineList
Returns (via array 'lines') a list of lines forming a polygon

GetVectorPolyLineList(Vector, lines, polygon)

場所:

パラメータ:

Vector Vector

A vector

array lines

An array for holding line list

numeric polygon

(オプション)

The polygon element number

詳細と仮定

戻り値

numeric

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
vector Vvar;
array numeric linelist[10]; # will be resized automatically
GetVectorPolyLineList(Vvar, linelist, 1);

NumVectorLabels
Returns number of labels in a vector object

NumVectorLabels(Vector)

場所:

パラメータ:

Vector Vector

A valid vector object

戻り値

numeric

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
vector Vin;
GetInputVector(Vin);
numeric numLabels = NumVectorLabels(Vin);
print("number of labels: ", numLabels);

NumVectorLines
Returns number of lines in vector object

NumVectorLines(Vector)

場所:

パラメータ:

Vector Vector

A valid Vector object

戻り値

numeric

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
vector V;
GetInputVector(V);
numeric n=NumVectorLines(V);
print("Line count: ", n);

NumVectorNodes
Returns number of nodes in vector object

NumVectorNodes(Vector)

場所:

パラメータ:

Vector Vector

A valid Vector object

戻り値

numeric

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
vector V;
GetInputVector(V);
numeric n=NumVectorNodes(V);
print("Node count: ", n);

NumVectorPoints
Returns number of points in vector object

NumVectorPoints(Vector)

場所:

パラメータ:

Vector Vector

A valid Vector object

戻り値

numeric

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
vector V;
GetInputVector(V);
numeric n=NumVectorPoints(V);
print("Point count: ", n);

NumVectorPolys
Returns number of polygons in vector object

NumVectorPolys(Vector)

場所:

パラメータ:

Vector Vector

A valid Vector object

戻り値

numeric

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
vector V;
GetInputVector(V);
numeric n=NumVectorPolys(V);
print("Polygon count: ", n);

OpenInputVectorList
Open multiple Vector objects

OpenInputVectorList(VectorList, filename1$, objname1$, filename2$, objname2$, ...$)

場所:

パラメータ:

Vector List VectorList

List of Vectors

string filename1$

The rvc file name

string objname1$

The vector object name

string filename2$

(オプション)

The rvc file name

string objname2$

(オプション)

The vector object name

string ...$

(オプション)

Additional file name / object name pairs

戻り値

numeric

作成日時: 19-May-1998
修正日時: 19-May-1998
TNTsml for Windows で使用可能: はい

例:

# no sample necessary

OpenVector
Open a Vector without using a dialog using same flags as GetOutputVector().

OpenVector(Vector, filename$, objname$, flag1$, flag2$)

場所:

パラメータ:

Vector Vector

Vector object

string filename$

RVC file name

string objname$

Vector object name

string flag1$

(オプション)

Vector type settings

"VectorToolkit"

string flag2$

(オプション)

Vector maintenance settings

"NoQtree"

"NoDBStatTable"

"KeepAttachedLabels"

"IsContour"

"NoStyle"

"NoDatabase"

"NoHyper"

"NoCreateTables"

"NoCreateStyle"

"IgnoreBadMinMax"

"NoValidateNodes"

"NoSaveQTree"

"NoPolyQTree"

"NoLineQTree"

"NoPointQTree"

"NoLabelQTree"

"NoNodeQTree"

"NoElemQTree"

戻り値

なし

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

vector V;
string fileName$ = "c:/tnt/data/cb_data/cb_soils.rvc";
string objectName$ = "CBSOILS_Lite";
# open the vector for editing with the toolkit
OpenVector(V, fileName$, objectName$, "VectorToolkit");

VectMerge
Merge two or more Vector objects

VectMerge(Obj1, Obj2, ...)

場所:

パラメータ:

Vector Obj1

Vector object one

Vector Obj2

(オプション)

Vector object two

Vector ...

(オプション)

Additional Vector objects

戻り値

Vector

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

vector V1, V2, Vmerge;
GetInputVector(V1);
GetInputVector(V2);
GetOutputVector(Vmerge);
Vmerge = VectMerge(V1, V2);
# get georef for merge
class Georef georef;
georef = GetLastUsedGeorefObject(V1);
CopyGeorefToObject(Vmerge, georef);

VectorAND
Returns Vector that is the logical result of two input vectors

VectorAND(OperatorVector, SourceVector, flags$)

場所:

パラメータ:

Vector OperatorVector

Vector object

Vector SourceVector

Vector object

string flags$

(オプション)

Options to handle the database tables

"None"

"Optimize"

"RemExRecords"

"RemStdAttTables"

"TableJoinNameStruct"

"TableJoinStruct"

"TableRemoveDupRec"

"RemoveTables"

"CopyHyperIndexSub"

"DensifyPoints"

"AddBorder"

"RemDupRecords"

"NoValidate"

詳細と仮定

戻り値

Vector

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

Unable to locate sample script "smlsamples/StandAlone/vecop.sml" for this function.
Please download latest collection of reference scripts from www.microimages.com and try again.

VectorCopyElements
Returns Vector with elements from Source that meet the query selection criteria

VectorCopyElements(SourceVector, DestVector, flags$, pointQuery$, lineQuery$, polyQuery$)

場所:

パラメータ:

Vector SourceVector

Vector object - the vector to copy the elements from

Vector DestVector

Vector object - the resultant vector to copy the elements to

string flags$

(オプション)

Options to handle the database tables

"None"

"Optimize"

"RemExRecords"

"RemStdAttTables"

"TableJoinNameStruct"

"TableJoinStruct"

"TableRemoveDupRec"

"RemoveTables"

"CopyHyperIndexSub"

"DensifyPoints"

"AddBorder"

"RemDupRecords"

"NoValidate"

string pointQuery$

(オプション)

Point selection query. Default is "1" which will select all points.

string lineQuery$

(オプション)

Line selection query. Default is "1" which will select all lines.

string polyQuery$

(オプション)

Polygon selection query. Default is "1" which will select all polygons.

戻り値

numeric

作成日時: 22-Mar-2004
修正日時: 13-May-2004
TNTsml for Windows で使用可能: はい

例:

vector V1, V2;
GetInputVector(V1);
GetOutputVector(V2);
VectorCopyElements(V1, V2, "None","0","LINESTATS.Length>1000","0");
#VectorCopyElements(V1, V2); # for a 'straight copy'

VectorElementInRegion
Tests a Vector element against a region.

VectorElementInRegion(Region, Vectvar, element, ElemType$, TestType$)

場所:

パラメータ:

class REGION2D Region

The region to test against

Vector Vectvar

The TIN object

numeric element

The element number to text

string ElemType$

The element type to test

"node"

"point"

"line"

"poly"

"label"

string TestType$

(オプション)

The region test type to perform

"CompletelyInside"

"PartlyInside"

"CompletelyOutside"

"PartlyOutside"

戻り値

numeric

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
vector Vin;
region reg;
GetInputVector(Vin);
GetInputRegion(reg);
numeric elementNumber = 1;
numeric inRegion = VectorElementInRegion(reg.$Data, Vin, elementNumber, "line", "CompletelyInside");
if (inRegion)
       print( "element ", elementNumber, "is CompletelyInside\n");

VectorExists
Determines if vector object exists in project file. Made obsolete by ObjectExists()

VectorExists(filename$, objectname$)

場所:

パラメータ:

string filename$

A string containing path and filename

string objectname$

A string containing objects name

詳細と仮定

戻り値

numeric

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

clear();
string file$="c:/tnt/data/sf_data/haywsoil.rvc";
string ob$="hsoils";
if (VectorExists(file$, ob$)) then
       print("Vector ", ob$, "Exists in ", file$);

VectorExtract
Returns Vector that is the result of the operator applied to the source

VectorExtract(OperatorVector, SourceVector, operation, flags$, pointQuery$, lineQuery$, polyQuery$)

場所:

パラメータ:

Vector OperatorVector

Vector object - template applied to SourceVector

Vector SourceVector

Vector object - the vector to extract from

any value operation

Must be set to one of the following:

"CompInside"

"PartInside"

"InsideBorder"

"InsideClip"

"CompOutside"

"PartOutside"

"OutsideBorder"

string flags$

(オプション)

Options to handle the database tables

"None"

"Optimize"

"RemExRecords"

"RemStdAttTables"

"TableJoinNameStruct"

"TableJoinStruct"

"TableRemoveDupRec"

"RemoveTables"

"CopyHyperIndexSub"

"DensifyPoints"

"AddBorder"

"RemDupRecords"

"NoValidate"

string pointQuery$

(オプション)

Point selection query. Default is "1" which will select all points.

string lineQuery$

(オプション)

Line selection query. Default is "1" which will select all lines.

string polyQuery$

(オプション)

Polygon selection query. Default is "1" which will select all polygons.

詳細と仮定

戻り値

Vector

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

vector Voperator, Vsource, Vout1, Vout2;
# get the input vectors
GetInputVector(Voperator);
GetInputVector(Vsource);
# get the output vector
GetOutputVector(Vout1);
# use default flags
string operation$ = "PartInside";
Vout1 = VectorExtract(Voperator, Vsource, operation$);
GetOutputVector(Vout2);
operation$ = "CompInside";
string flag$ = "TableRemoveDupRec,RemExRecords";
# using optional flags (example showing two flags)
Vout2 = VectorExtract(Voperator, Vout1, operation$, flag$);

VectorIsEquivalent
Determine if two Vector objects are equivalent

VectorIsEquivalent(Vector1, Vector2)

場所:

パラメータ:

Vector Vector1

The first input vector

Vector Vector2

The second input vector

戻り値

numeric

作成日時: 23-Apr-2004
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

# no sample necessary

VectorOR
Returns Vector that is the logical result of two input vectors

VectorOR(OperatorVector, SourceVector, flags$)

場所:

パラメータ:

Vector OperatorVector

Vector object

Vector SourceVector

Vector object

string flags$

(オプション)

Options to handle the database tables

"None"

"Optimize"

"RemExRecords"

"RemStdAttTables"

"TableJoinNameStruct"

"TableJoinStruct"

"TableRemoveDupRec"

"RemoveTables"

"CopyHyperIndexSub"

"DensifyPoints"

"AddBorder"

"RemDupRecords"

"NoValidate"

詳細と仮定

戻り値

Vector

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

Unable to locate sample script "smlsamples/StandAlone/vecop.sml" for this function.
Please download latest collection of reference scripts from www.microimages.com and try again.

VectorReplace
Returns Vector that is the logical result of two input vectors

VectorReplace(OperatorVector, SourceVector, flags$)

場所:

パラメータ:

Vector OperatorVector

Vector object

Vector SourceVector

Vector object

string flags$

(オプション)

Options to handle the database tables

"None"

"Optimize"

"RemExRecords"

"RemStdAttTables"

"TableJoinNameStruct"

"TableJoinStruct"

"TableRemoveDupRec"

"RemoveTables"

"CopyHyperIndexSub"

"DensifyPoints"

"AddBorder"

"RemDupRecords"

"NoValidate"

詳細と仮定

戻り値

Vector

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

Unable to locate sample script "smlsamples/StandAlone/vecop.sml" for this function.
Please download latest collection of reference scripts from www.microimages.com and try again.

VectorSubtract
Returns Vector that is the logical result of two input vectors

VectorSubtract(OperatorVector, SourceVector, flags$)

場所:

パラメータ:

Vector OperatorVector

Vector object

Vector SourceVector

Vector object

string flags$

(オプション)

Options to handle the database tables

"None"

"Optimize"

"RemExRecords"

"RemStdAttTables"

"TableJoinNameStruct"

"TableJoinStruct"

"TableRemoveDupRec"

"RemoveTables"

"CopyHyperIndexSub"

"DensifyPoints"

"AddBorder"

"RemDupRecords"

"NoValidate"

詳細と仮定

戻り値

Vector

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

Unable to locate sample script "smlsamples/StandAlone/vecop.sml" for this function.
Please download latest collection of reference scripts from www.microimages.com and try again.

VectorToolkitInit
Initialize an open Vector object for use with vector toolkit functions.

VectorToolkitInit(Vector, flag2$)

場所:

パラメータ:

Vector Vector

Vector object

string flag2$

(オプション)

See below

"NoQtree"

"NoDBStatTable"

"KeepAttachedLabels"

"IsContour"

"NoStyle"

"NoDatabase"

"NoHyper"

"NoCreateTables"

"NoCreateStyle"

"IgnoreBadMinMax"

"NoValidateNodes"

"NoSaveQTree"

"NoPolyQTree"

"NoLineQTree"

"NoPointQTree"

"NoLabelQTree"

"NoNodeQTree"

"NoElemQTree"

戻り値

なし

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

Unable to locate sample script "smlsamples/Misc/addline.sml" for this function.
Please download latest collection of reference scripts from www.microimages.com and try again.

VectorWarp
Warp the SourceVector from the transparm's source to destination projection

VectorWarp(SourceVector, DestVector, Transparm, DenseAccuracy)

場所:

パラメータ:

Vector SourceVector

Vector object - the vector to warp from

Vector DestVector

Vector object - the resultant vector object to warp to

class TRANSPARM Transparm

The transformation parameters

numeric DenseAccuracy

The line densification accuracy in meters

戻り値

numeric

作成日時: 04-May-2004
修正日時: 13-May-2004
TNTsml for Windows で使用可能: はい

例:

vector Vin, Vout;
class TRANSPARM transparm;
class GEOREF georef;
class MAPPROJ inputProj, outputProj;
GetInputVector(Vin);
GetOutputVector(Vout);
georef = GetLastUsedGeorefObject(Vin);
inputProj = georef.Projection;
outputProj.SetSystemUTM(13);
outputProj.Datum = "North American 1927 - United States (NADCON)";
transparm.InputProjection = inputProj;
transparm.OutputProjection = outputProj;
VectorWarp(Vin, Vout, transparm, 10);
print("IN:", transparm.inputProjection.System);
print("OUT:", transparm.outputProjection.System);

VectorXOR
Returns Vector that is the logical result of two input vectors

VectorXOR(OperatorVector, SourceVector, flags$)

場所:

パラメータ:

Vector OperatorVector

Vector object

Vector SourceVector

Vector object

string flags$

(オプション)

Options to handle the database tables

"None"

"Optimize"

"RemExRecords"

"RemStdAttTables"

"TableJoinNameStruct"

"TableJoinStruct"

"TableRemoveDupRec"

"RemoveTables"

"CopyHyperIndexSub"

"DensifyPoints"

"AddBorder"

"RemDupRecords"

"NoValidate"

詳細と仮定

戻り値

Vector

作成日時: 01-Dec-1997
修正日時: なし
TNTsml for Windows で使用可能: はい

例:

Unable to locate sample script "smlsamples/StandAlone/vecop.sml" for this function.
Please download latest collection of reference scripts from www.microimages.com and try again.

Object functions (30)

CloseStyleObject(style)

オブジェクト

パラメータ: