GENETIC SEQUENCE BINARY FACTOR GROUPING ROUTINES

1.1(min)... minmv=999; for(l=0;l<rsi;++l) { if(n=0\|\|l==0){n=rs[l][1];continue;} if(n==rs[l][1]\|\|n+1==rs[l][1]\|\|n-1==rs[l][1]){n=rs[l][1];}else{ if(minmv>rs[l][2]){minmv=rs[l][2];minl=l;} n=0; } } if(df){printf(" %d",rs[minl][0]%outm);} htable[hti_dmin][0]=rs[minl][0]%outm;++hti_dmin; ...	1.2(max)... maxmv=0; for(l=0;l<rsi;++l) { if(n=0\|\|l==0){n=rs[l][1];continue;} if(n==rs[l][1]\|\|n+1==rs[l][1]\|\|n-1==rs[l][1]){n=rs[l][1];}else{ if(maxmv<rs[l][2]){maxmv=rs[l][2];maxl=l;} n=0; } } if(df){printf(" %d",rs[maxl][0]%outm);} htable[hti_dmax][1]=rs[maxl][0]%outm;++hti_dmax; ...
2.1(min)... minmv=999; for(l=0;l<rsi;++l) { if(n=0\|\|l==0){n=rs[l][1];continue;} if(n==rs[l][1]\|\|n+1==rs[l][1]\|\|n-1==rs[l][1]) { n=rs[l][1]; if(minmv>rs[l][2]){minmv=rs[l][2];minl=l;} }else{n=0;} } if(df){printf(" %d",rs[minl][0]%outm);} htable[hti_rmin][3]=rs[minl][0]%outm;++hti_rmin; ...	2.2(max)... maxmv=0; for(l=0;l<rsi;++l) { if(n=0\|\|l==0){n=rs[l][1];continue;} if(n==rs[l][1]\|\|n+1==rs[l][1]\|\|n-1==rs[l][1]) { n=rs[l][1]; if(maxmv<rs[l][2]){maxmv=rs[l][2];maxl=l;} }else{n=0;} } if(df){printf(" %d",rs[maxl][0]%outm);} htable[hti_rmax][3]=rs[maxl][0]%outm;++hti_rmax; ...

1.1(min)...
minmv=999;
for(l=0;l<rsi;++l)
{

if(n=0||l==0){n=rs[l][1];continue;}
if(n==rs[l][1]||n+1==rs[l][1]||n-1==rs[l][1]){n=rs[l][1];}else{

if(minmv>rs[l][2]){minmv=rs[l][2];minl=l;}
n=0;

}

}
if(df){printf(" %d",rs[minl][0]%outm);}
htable[hti_dmin][0]=rs[minl][0]%outm;++hti_dmin;
...

1.2(max)...
maxmv=0;
for(l=0;l<rsi;++l)
{

if(n=0||l==0){n=rs[l][1];continue;}
if(n==rs[l][1]||n+1==rs[l][1]||n-1==rs[l][1]){n=rs[l][1];}else{

if(maxmv<rs[l][2]){maxmv=rs[l][2];maxl=l;}
n=0;

}

}
if(df){printf(" %d",rs[maxl][0]%outm);}
htable[hti_dmax][1]=rs[maxl][0]%outm;++hti_dmax;
...

2.1(min)...
minmv=999;
for(l=0;l<rsi;++l)
{

if(n=0||l==0){n=rs[l][1];continue;}
if(n==rs[l][1]||n+1==rs[l][1]||n-1==rs[l][1])
{

n=rs[l][1];
if(minmv>rs[l][2]){minmv=rs[l][2];minl=l;}

}else{n=0;}

}
if(df){printf(" %d",rs[minl][0]%outm);}
htable[hti_rmin][3]=rs[minl][0]%outm;++hti_rmin;
...

2.2(max)...
maxmv=0;
for(l=0;l<rsi;++l)
{

if(n=0||l==0){n=rs[l][1];continue;}
if(n==rs[l][1]||n+1==rs[l][1]||n-1==rs[l][1])
{

n=rs[l][1];
if(maxmv<rs[l][2]){maxmv=rs[l][2];maxl=l;}

}else{n=0;}

}
if(df){printf(" %d",rs[maxl][0]%outm);}
htable[hti_rmax][3]=rs[maxl][0]%outm;++hti_rmax;
...

The Maria Basic Interpreter is a command-line programming tool - interpreter aimed to help PDA users code formula/calculations, string and file procedures that execute on their handhelds. The included source code may easily (re) compile for various OS/CPU architectures , since it was written in ISO/ANSI C and requres moderate machine resources . Interpreter design allows fast execution of basic syntax like procedures with calculations and file/string operations. Its simplified syntax allows basic programming skills and may be used for learning , but may expand to execution of rather complex routines . This interpreter allows basic like (simplified) syntax commands like nesting, statement loops, and conditional execution. The ZIP archive ready for download includes a few txt files which are sample basic syntax supported nesting and file/string function example (s) . Source procedures may execute with a command line stating: E.g.: C:\9901 -e "sample.txt". The (sample1...7.txt) example sources show the code structure necessary to supply for program execution .Supported routine code syntax is :

MariaBasic 1.9.3.0 Program Structure:

1. Coding convention (s)

(<string constant> is a single quoted literal)

(<num constant> is a number literal having [0-9,.] )

(<varname> is a string literal having [_,a-z,A-Z,0-9] + type declaration [%|&|#|$])

(type declaration [%|&|#|$] where % EQ integer data type , where & EQ 2x integer data type , where # EQ double data type , and $ EQ <=256 char data type)

(logical operator (s) are and , or , xor)

(relation operator (s) are > , < , = , >= , <= , <> )

2.Program body:

1.Declarations:

2. Statements | Simple Block Statements | Nested Block Statements | Declarations | Comments

3. end Statement

- Comments:

rem <string constant>

- Declarations:

variable declaration (s):
{
[varname$=’<string constant>|’]|[varname%=<num constant>|0]|[varname&=<num constant>|0]|[varname#=<num constant>|0]
}

- Statements:

relation expression logical evaluation statement:

{

varname[%|&]=

(varname[%|&|#|$][=,<>,>,<,>=,<=]varname[%|&|#|$]

[ or , and , xor ]

[ varname[%|&|#|$][=,<>,>,<,>=,<=]varname[%|&|#|$])

}

calculation statement:

{

varname[%|&|#]=[[varname[%|&|#]|[<num constant>]]

[^,*,/,+,-][[varname[%|&|#]|[<num constant>]]

}

string concatenation statement:

{

varname$=varname$+ varname$

}

string function statement (s):

{

varname[%|&]=len$( varname$)

varname[%|&|#]=val$( varname$)

varname$=trim$( varname$)

varname$=left$( varname$, <num constant>)

varname$=right$( varname$, <num constant>)

varname$=mid$( varname$, <num constant>, <num constant>)

varname$=format$( varname[%|&|#],<string constant>)

}

file operation statement (s):

{

open varname$ for [input]|[output] as #<num constant>

input #<num constant>, varname$

print #<num constant>, [<string constant>| varname[%|&|#|$][,]][;]

close #<num constant>

}

console output statement:

{

print [<string constant>| varname[%|&|#|$][,]][;]

}

- Simple Blocks:

simple if end if block:

{

if (<single relation expression>) then

<statements>

end if

}

Simple while wend Block:

{

while (<single relation expression>)

<statements>

wend

}

Simple for next Block:

{

<statements>

next varname[%|&]

}

- Nested Block Statement (s) (up to Level 3.)

Nested type 1. Block:

{

if () then

<statements>

for to

<statements>

if () then

<statements>

end if

<statements>

if () then

<statements>

end if

<statements>

next

<statements>

if () then

<statements>

if () then

<statements>

end if

<statements>

if () then

<statements>

end if

<statements>

end if

<statements>

while ()

<statements>

if () then

<statements>

end if

<statements>

if () then

<statements>

end if

<statements>

wend

<statements>

end if

}

Nested type 2. Block:

{

for to

<statements>

for to

<statements>

if () then

<statements>

end if

<statements>

if () then

<statements>

end if

<statements>

next

<statements>

if () then

<statements>

if () then

<statements>

end if

<statements>

if () then

<statements>

end if

<statements>

end if

<statements>

while ()

<statements>

if () then

<statements>

end if

<statements>

if () then

<statements>

end if

<statements>

wend

<statements>

next

}

Nested type 3. Block:

{

while ()

<statements>

for to

<statements>

if () then

<statements>

end if

<statements>

if () then

<statements>

end if

<statements>

next

<statements>

if () then

<statements>

if () then

<statements>

end if

<statements>

if () then

<statements>

end if

<statements>

end if

<statements>

while ()

<statements>

if () then

<statements>

end if

<statements>

if () then

<statements>

end if

<statements>

wend

<statements>

wend

}

3. End of Program:

{end}