Sideway
output.to from Sideway
Draft for Information Only

Content

Knowledge Base: Examples of Sorting
 Sorting An Array by Binary Tree Algorithm
  Examples:

Knowledge Base: Examples of Sorting

Sorting: Sorting algorithm referencehttps://en.wikipedia.org/wiki/Sorting_algorithm

Sorting An Array by Binary Tree Algorithm

Sorting An Array by Binary Tree Sort Algorithm. Binary tree sort is a simple insertion algorithm by inserting elements to a binary noded tree like structure.

Binary tree sort reference:
https://en.wikipedia.org/wiki/Tree_sort,
https://en.wikipedia.org/wiki/Binary_search_tree

Examples:

Example of arranging an array in binary noded form by Binary Tree Algorithm.

ASP VbScript Command:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
    <head>
        <title>Sample Page</title>
        <meta http-equiv="Content-Type" content="text/html;charset=utf-8">
    </head>
    <body>
<SCRIPT RUNAT="SERVER" LANGUAGE="VBScript">
Function SrtArry(Ori_Arry)
Dim i, j, k, flag
Redim tree_arry(UBound(Ori_Arry))
left_ind=0
itm_arry=Ori_Arry(LBound(Ori_Arry))
rigt_ind=0
tree_arry(0)=array(left_ind,itm_arry,rigt_ind)
For i = LBound(Ori_Arry) to UBound(Ori_Arry)
   flag=0
   j=0
   Do while flag=0
       If UCase(Ori_Arry(i)) < UCase(tree_arry(j)(1)) Then
           k=0
       Else
           k=2
       End If
       If tree_arry(j)(k)=0 Then
           tree_arry(j)(k)=i
           tree_arry(i)=array("0",Ori_Arry(i),"0")
           flag=1
       Else
           j=tree_arry(j)(k)
       End If
   Loop
Next
SrtArry=tree_arry
End Function

Function LstArry(Ori_Arry,lvl,cnt,sze)
Dim i, j, k, l
j=lvl
k=cnt
l=sze
Response.Write " <br /> "
call PrtArrow(j)
Response.Write "["
flag=0
For i = LBound(Ori_Arry) to UBound(Ori_Arry)
   If k< l and j>0 Then
       flag=1
   End If
   If IsArray(Ori_Arry(i)) Then
       call LstArry(Ori_Arry(i),j+1,i,UBound(Ori_Arry))
   Else
       Response.Write Ori_Arry(i)
       If i<>UBound(Ori_Arry) Then
           Response.Write ", "
       End If
   End If
Next
Response.Write "]"
If flag=1 then
   Response.Write ","
End If
End Function

Function PrtArrow(cnt)
Dim count
count=cnt
Do While count>0
   count=count-1
   Response.Write "-->"
loop
End Function
</SCRIPT>
<%
Dim OriArry, NewArry
OriArry=Array("s","i","d","e","w","a","y","o","u","t")
Response.Write "Original Array"
Response.Write LstArry(OriArry,0,0,0)&" <br /> "
NewArry=SrtArry(OriArry)
Response.Write "Noded Binary Tree Array"
Response.Write LstArry(NewArry,0,0,0)
%>
    </body>
</html>
HTTP Response Output:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
    <head>
        <title>Sample Page</title>
        <meta http-equiv="Content-Type" content="text/html;charset=utf-8">
    </head>
    <body>
Original Array <br /> [s, i, d, e, w, a, y, o, u, t] <br /> Noded Binary Tree Array <br /> [ <br /> -->[1, s, 4], <br /> -->[2, i, 7], <br /> -->[5, d, 3], <br /> -->[0, e, 0], <br /> -->[8, w, 6], <br /> -->[0, a, 0], <br /> -->[0, y, 0], <br /> -->[0, o, 0], <br /> -->[9, u, 0], <br /> -->[0, t, 0]]
    </body>
</html>
HTML Web Page Embedded Output:

Example of arranging an array in binary noded form with backward index by Binary Tree Algorithm.

ASP VbScript Command:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
    <head>
        <title>Sample Page</title>
        <meta http-equiv="Content-Type" content="text/html;charset=utf-8">
    </head>
    <body>
<SCRIPT RUNAT="SERVER" LANGUAGE="VBScript">
Function SrtArry(Ori_Arry,Tre_Arry,i,j)
Dim k, flag, A
A=Tre_Arry
If UCase(Ori_Arry(i)) < UCase(Ori_Arry(j)) Then
    k=0
Else
    k=2
End If
If A(j)(k)=0 Then
    A(j)(k)=i
    A(i)=array("0",j,"0")
    i=i+1
    j=0
Else
    j=A(j)(k)
End If
if i<= UBound(Ori_Arry) then
    A=SrtArry(Ori_Arry,A,i,j)
end if
SrtArry=A
End Function

Function LstArry(Ori_Arry,lvl,cnt,sze)
Dim i, j, k, l
j=lvl
k=cnt
l=sze
Response.Write " <br /> "
call PrtArrow(j)
Response.Write "["
flag=0
For i = LBound(Ori_Arry) to UBound(Ori_Arry)
    If k < l and j > 0 Then
        flag=1
    End If
    If IsArray(Ori_Arry(i)) Then
        call LstArry(Ori_Arry(i),j+1,i,UBound(Ori_Arry))
    Else
        Response.Write Ori_Arry(i)
        If i<>UBound(Ori_Arry) Then
            Response.Write ", "
        End If
    End If
Next
Response.Write "]"
If flag=1 then
    Response.Write ","
End If
End Function

Function PrtArrow(cnt)
Dim count
count=cnt
Do While count>0
    count=count-1
    Response.Write "-->"
loop
End Function
</SCRIPT>
<%
Dim OriArry, NewArry, TreArry
OriArry=Array("s","i","d","e","w","a","y","o","u","t")
Response.Write "Original Array"
Response.Write LstArry(OriArry,0,0,0)&" <br /> "
Redim TreArry(UBound(OriArry))
TreArry(0)=array("0","0","0")
NewArry=SrtArry(OriArry,TreArry,0,0)
Response.Write "Noded Binary Tree with backward index Array"
Response.Write LstArry(NewArry,0,0,0)
%>
    </body>
</html>
HTTP Response Output:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
    <head>
        <title>Sample Page</title>
        <meta http-equiv="Content-Type" content="text/html;charset=utf-8">
    </head>
    <body>
Original Array <br /> [s, i, d, e, w, a, y, o, u, t] <br /> Noded Binary Tree with backward index Array <br /> [ <br /> -->[1, 0, 4], <br /> -->[2, 0, 7], <br /> -->[5, 1, 3], <br /> -->[0, 2, 0], <br /> -->[8, 0, 6], <br /> -->[0, 2, 0], <br /> -->[0, 4, 0], <br /> -->[0, 1, 0], <br /> -->[9, 4, 0], <br /> -->[0, 8, 0]]
    </body>
</html>
HTML Web Page Embedded Output:

Example of listing a binary noded array in array form by Binary Tree Algorithm.

ASP VbScript Command:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
    <head>
        <title>Sample Page</title>
        <meta http-equiv="Content-Type" content="text/html;charset=utf-8">
    </head>
    <body>
<SCRIPT RUNAT="SERVER" LANGUAGE="VBScript">
Function SrtArry(Ori_Arry,Tre_Arry,i,j)
Dim k, flag, A
A=Tre_Arry
If UCase(Ori_Arry(i)) < UCase(Ori_Arry(j)) Then
    k=0
Else
    k=2
End If
If A(j)(k)=0 Then
    A(j)(k)=i
    A(i)=array("0",Ori_Arry(i),"0")
    i=i+1
    j=0
Else
    j=A(j)(k)
End If
if i <= UBound(Ori_Arry) then
    A=SrtArry(Ori_Arry,A,i,j)
end if
SrtArry=A
End Function

Function LstTree(Ori_Arry,Tre_Arry)
Dim k, A
A=Tre_Arry
k=0
If A(k) > 0 Then
    A(k)=LstTree(Ori_Arry,Ori_Arry(A(k)))
End If
k=2
If A(k) > 0 Then
    A(k)=LstTree(Ori_Arry,Ori_Arry(A(k)))
End If
LstTree=A
Call LstArry(LstTree,0,0,0)
Response.Write " <br />"
End Function

Function LstArry(Ori_Arry,lvl,cnt,sze)
Dim i, j, k, l
j=lvl
k=cnt
l=sze
'Response.Write " <br /> "
'call PrtArrow(j)
Response.Write "["
flag=0
For i = LBound(Ori_Arry) to UBound(Ori_Arry)
    If k < l and j > 0 Then
        flag=1
    End If
    If IsArray(Ori_Arry(i)) Then
        call LstArry(Ori_Arry(i),j+1,i,UBound(Ori_Arry))
    Else
        Response.Write Ori_Arry(i)
        If i<>UBound(Ori_Arry) Then
            Response.Write ", "
        End If
    End If
Next
Response.Write "]"
If flag=1 then
    Response.Write ","
End If
End Function

Function PrtArrow(cnt)
Dim count
count=cnt
Do While count>0
    count=count-1
    Response.Write "-->"
loop
End Function
</SCRIPT>
<%
Dim OriArry, NewArry, TreArry
OriArry=Array("s","i","d","e","w","a","y","o","u","t")
Response.Write "Original Array <br />"
Response.Write LstArry(OriArry,0,0,0)&" <br /> "
Redim TreArry(UBound(OriArry))
TreArry(0)=array("0","0","0")
NewArry=SrtArry(OriArry,TreArry,0,0)
Response.Write "Noded Binary Tree Array <br />"
Response.Write LstArry(NewArry,0,0,0)
Response.Write " <br />"
Response.Write "Recursively Noded Binary Tree Array Listing <br />"
Call LstTree(NewArry,NewArry(0))
%>
    </body>
</html>
HTTP Response Output:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
    <head>
        <title>Sample Page</title>
        <meta http-equiv="Content-Type" content="text/html;charset=utf-8">
    </head>
    <body>
Original Array <br />[s, i, d, e, w, a, y, o, u, t] <br /> Noded Binary Tree Array <br />[[1, s, 4],[2, i, 7],[5, d, 3],[0, e, 0],[8, w, 6],[0, a, 0],[0, y, 0],[0, o, 0],[9, u, 0],[0, t, 0]] <br />Recursively Noded Binary Tree Array Listing <br />[0, a, 0] <br />[0, e, 0] <br />[[0, a, 0],d, [0, e, 0]] <br />[0, o, 0] <br />[[[0, a, 0],d, [0, e, 0]],i, [0, o, 0]] <br />[0, t, 0] <br />[[0, t, 0],u, 0] <br />[0, y, 0] <br />[[[0, t, 0],u, 0],w, [0, y, 0]] <br />[[[[0, a, 0],d, [0, e, 0]],i, [0, o, 0]],s, [[[0, t, 0],u, 0],w, [0, y, 0]]] <br />
    </body>
</html>
HTML Web Page Embedded Output:

Example of sorting a binary noded array in array form by Binary Tree Algorithm.

ASP VbScript Command:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
    <head>
        <title>Sample Page</title>
        <meta http-equiv="Content-Type" content="text/html;charset=utf-8">
    </head>
    <body>
<SCRIPT RUNAT="SERVER" LANGUAGE="VBScript">
Function SrtArry(Ori_Arry,Tre_Arry,i,j)
Dim k, flag, A
A=Tre_Arry
If UCase(Ori_Arry(i)) < UCase(Ori_Arry(j)) Then
    k=0
Else
    k=2
End If
If A(j)(k)=0 Then
    A(j)(k)=i
    A(i)=array("0",Ori_Arry(i),"0")
    i=i+1
    j=0
Else
    j=A(j)(k)
End If
if i<= UBound(Ori_Arry) then
    A=SrtArry(Ori_Arry,A,i,j)
end if
'response.write " <br />"
'Call LstArry(A,0,0,0)
SrtArry=A
End Function

Function LstTree(Ori_Arry,Tre_Arry,Bin_Arry,i)
Dim k, A
A=Tre_Arry
Call TstArry(Ori_Arry,0,Bin_Arry,A,i)
Bin_Arry(i)=A(1)
i=i+1
Call TstArry(Ori_Arry,2,Bin_Arry,A,i)
LstTree=Bin_Arry
Call LstArry(Bin_Arry,0,0,0)
Response.Write " <br />"
End Function

Sub TstArry(Ori_Arry,k,Bin_Arry,A,i)
If A(k)>0 Then
    A(k)=LstTree(Ori_Arry,Ori_Arry(A(k)),Bin_Arry,i)
End If
End Sub

Function LstArry(Ori_Arry,lvl,cnt,sze)
Dim i, j, k, l
j=lvl
k=cnt
l=sze
'Response.Write " <br /> "
'call PrtArrow(j)
Response.Write "["
flag=0
For i = LBound(Ori_Arry) to UBound(Ori_Arry)
    If k < l and j > 0 Then
        flag=1
    End If
    If IsArray(Ori_Arry(i)) Then
        call LstArry(Ori_Arry(i),j+1,i,UBound(Ori_Arry))
    Else
        Response.Write Ori_Arry(i)
        If i<>UBound(Ori_Arry) Then
            Response.Write ", "
        End If
    End If
Next
Response.Write "]"
If flag=1 then
    Response.Write ","
End If
End Function

Function PrtArrow(cnt)
Dim count
count=cnt
Do While count>0
    count=count-1
    Response.Write "-->"
loop
End Function
</SCRIPT>
<%
Dim OriArry, NewArry, TreArry
OriArry=Array("s","i","d","e","w","a","y","o","u","t")
Response.Write "Original Array <br />"
Response.Write LstArry(OriArry,0,0,0)&" <br /> "
Redim TreArry(UBound(OriArry))
TreArry(0)=array("0","0","0")
NewArry=SrtArry(OriArry,TreArry,0,0)
Response.Write "Noded Binary Tree Array <br />"
Response.Write LstArry(NewArry,0,0,0)
Redim BinArry(UBound(OriArry))
Response.Write " <br />"
Response.Write "Recursively Noded Binary Tree Array Sorting <br />"
Call LstTree(NewArry,NewArry(0),BinArry,0)
%>
    </body>
</html>
HTTP Response Output:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
    <head>
        <title>Sample Page</title>
        <meta http-equiv="Content-Type" content="text/html;charset=utf-8">
    </head>
    <body>
Original Array <br />[s, i, d, e, w, a, y, o, u, t] <br /> Noded Binary Tree Array <br />[[1, s, 4],[2, i, 7],[5, d, 3],[0, e, 0],[8, w, 6],[0, a, 0],[0, y, 0],[0, o, 0],[9, u, 0],[0, t, 0]] <br />Recursively Noded Binary Tree Array Sorting <br />[a, , , , , , , , , ] <br />[a, d, e, , , , , , , ] <br />[a, d, e, , , , , , , ] <br />[a, d, e, i, o, , , , , ] <br />[a, d, e, i, o, , , , , ] <br />[a, d, e, i, o, s, t, , , ] <br />[a, d, e, i, o, s, t, u, , ] <br />[a, d, e, i, o, s, t, u, w, y] <br />[a, d, e, i, o, s, t, u, w, y] <br />[a, d, e, i, o, s, t, u, w, y] <br />
    </body>
</html>
HTML Web Page Embedded Output:

©sideway

ID: 170100016 Last Updated: 1/16/2017 Revision: 0 Ref:

close

References

  1. Active Server Pages,  , http://msdn.microsoft.com/en-us/library/aa286483.aspx
  2. ASP Overview,  , http://msdn.microsoft.com/en-us/library/ms524929%28v=vs.90%29.aspx
  3. ASP Best Practices,  , http://technet.microsoft.com/en-us/library/cc939157.aspx
  4. ASP Built-in Objects,  , http://msdn.microsoft.com/en-us/library/ie/ms524716(v=vs.90).aspx
  5. Response Object,  , http://msdn.microsoft.com/en-us/library/ms525405(v=vs.90).aspx
  6. Request Object,  , http://msdn.microsoft.com/en-us/library/ms524948(v=vs.90).aspx
  7. Server Object (IIS),  , http://msdn.microsoft.com/en-us/library/ms525541(v=vs.90).aspx
  8. Application Object (IIS),  , http://msdn.microsoft.com/en-us/library/ms525360(v=vs.90).aspx
  9. Session Object (IIS),  , http://msdn.microsoft.com/en-us/library/ms524319(8v=vs.90).aspx
  10. ASPError Object,  , http://msdn.microsoft.com/en-us/library/ms524942(v=vs.90).aspx
  11. ObjectContext Object (IIS),  , http://msdn.microsoft.com/en-us/library/ms525667(v=vs.90).aspx
  12. Debugging Global.asa Files,  , http://msdn.microsoft.com/en-us/library/aa291249(v=vs.71).aspx
  13. How to: Debug Global.asa files,  , http://msdn.microsoft.com/en-us/library/ms241868(v=vs.80).aspx
  14. Calling COM Components from ASP Pages,  , http://msdn.microsoft.com/en-us/library/ms524620(v=VS.90).aspx
  15. IIS ASP Scripting Reference,  , http://msdn.microsoft.com/en-us/library/ms524664(v=vs.90).aspx
  16. ASP Keywords,  , http://msdn.microsoft.com/en-us/library/ms524672(v=vs.90).aspx
  17. Creating Simple ASP Pages,  , http://msdn.microsoft.com/en-us/library/ms524741(v=vs.90).aspx
  18. Including Files in ASP Applications,  , http://msdn.microsoft.com/en-us/library/ms524876(v=vs.90).aspx
  19. ASP Overview,  , http://msdn.microsoft.com/en-us/library/ms524929(v=vs.90).aspx
  20. FileSystemObject Object,  , http://msdn.microsoft.com/en-us/library/z9ty6h50(v=vs.84).aspx
  21. http://msdn.microsoft.com/en-us/library/windows/desktop/ms675944(v=vs.85).aspx,  , ADO Object Model
  22. ADO Fundamentals,  , http://msdn.microsoft.com/en-us/library/windows/desktop/ms680928(v=vs.85).aspx
close

Latest Updated LinksValid XHTML 1.0 Transitional Valid CSS!Nu Html Checker Firefox53 Chromena IExplorerna
IMAGE

Home 5

Business

Management

HBR 3

Information

Recreation

Hobbies 8

Culture

Chinese 1097

English 339

Reference 79

Computer

Hardware 249

Software

Application 213

Digitization 32

Latex 52

Manim 205

KB 1

Numeric 19

Programming

Web 289

Unicode 504

HTML 66

CSS 65

SVG 46

ASP.NET 270

OS 429

DeskTop 7

Python 72

Knowledge

Mathematics

Formulas 8

Algebra 84

Number Theory 206

Trigonometry 31

Geometry 34

Coordinate Geometry 2

Calculus 67

Complex Analysis 21

Engineering

Tables 8

Mechanical

Mechanics 1

Rigid Bodies

Statics 92

Dynamics 37

Fluid 5

Fluid Kinematics 5

Control

Process Control 1

Acoustics 19

FiniteElement 2

Natural Sciences

Matter 1

Electric 27

Biology 1

Geography 1


Copyright © 2000-2024 Sideway . All rights reserved Disclaimers last modified on 06 September 2019