June 11, 2017
Lita AI
Imports System.IO

Public Class Gasp

    REM ------------------------------------------------------------------------------------------------------------------
    ' (C) Alexander Peter Obrzut 2017 January 21st ~ 2018 January 22nd
    ' Shotting.cc is a promotional website for Alexander Obrzut's Software Platform
    ' This software concerns language analysis and related language program genie wizzhArd
    ' The language can form a generic AI for software development or BASIC chat Modules
    ' The process should be completely autonomous, supervised due to the fact that it learns
    ' from input files rather than creating iteslf from all possible combinations
    'first task, frequency tests...

    ' With frequency tests nearing completion, I'd like to work on HTML Grammar + HTML Genies
    ' This basically involves readLine() + <br />
    ' To output some VB.NET code GENIE

    ' We need all the source code put into a book for publishing

    ' we need a class structure to build on great things

    ' the ai needs to be able to discover information

    'seperate the information influx into instructions, conditional loops, condition statements, type definitions,
    ' equasions, and pro-grammar (English comments/HTML <p> Paragraphs)
    ' develop 'individuality'
    ' develop a complex system of thought - relational db of thoughts and codes
    ' rotary nodes, interspersed with binary tree nodes
    ' linked list nodes / rotary nodes of char pairs to char word pairs
    ' spaces seperate the word pairs, nothing seperates the char pairs
    ' we need a rationale db designer similar to pms suite
    ' insert new combo box with drop down list of Rotary node, linked list, and binary tree node
    ' then create relationships between the lists

    REM ------------------------------------------------------------------------------------------------------------------

    Public nodes(10000000) As Nodearray
    Public node As New Node

    Public nodeIndex As Integer = 0

    Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
        OpenFileDialog1.DefaultExt = ".txt"
        OpenFileDialog1.CheckPathExists = True
        OpenFileDialog1.InitialDirectory = Environment.SpecialFolder.MyDocuments
        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRight.Click
        'fill list box with node frequencies

    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
    End Sub

    Private Sub SaveAsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveAsToolStripMenuItem.Click
        FolderBrowserDialog1.ShowNewFolderButton = True
        FolderBrowserDialog1.RootFolder = Environment.SpecialFolder.MyDocuments
        Dim dr As Windows.Forms.DialogResult = FolderBrowserDialog1.ShowDialog()

        If dr = Windows.Forms.DialogResult.OK Then
            'MsgBox(FolderBrowserDialog1.SelectedPath, MsgBoxStyle.ApplicationModal, "PATH")

        ElseIf dr = Windows.Forms.DialogResult.Abort Then
        ElseIf dr = Windows.Forms.DialogResult.Cancel Then
        End If
    End Sub

    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click

    End Sub

    Private Sub btnMiddle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMiddle.Click
    End Sub
    Private arayLength = 10000000
    Public ARayLgth = arayLength - 1
    Public fileArray(arayLength) As String
    Public nedRay(arayLength) As Nodearray
    Public AlphaJoin(arayLength) As Nodearray
    Public NodePairs(arayLength, 2) As Nodearray
    Public nodeSets(arayLength, 2) As Nodearray
    Private Sub FrequencyTestsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FrequencyTestsToolStripMenuItem.Click

        Dim nedRayIndx As Double = 0.0

        If Not node Is Nothing Then
            Dim readyOrNotHereIComeImGonnaFindYouAndMakeYouWantMe As String = node.GetPath
            If readyOrNotHereIComeImGonnaFindYouAndMakeYouWantMe.Length > 0 Then
                'Now we're ready and coming for you
                'recursive *.vb search array builder here
                Dim index = 0
                Dim ext As String = ".html"

                Dim result As Double = 0.0

                Dim cls As New IOSearch
                cls.SearchDirectory(New DirectoryInfo(node.GetPath()), fileArray, ext)
                'loop on fileArray() here
                Dim ios As IOSearch = New IOSearch

                While index <= ARayLgth
                    If Not fileArray(index) Is Nothing Then
                        If Not fileArray(index).Length = 0 Then
                            'call file processor
                            Dim zsue As StreamReader
                            Dim sw As StreamWriter
                            Dim ModFile1 As String = fileArray(index)
                                zsue = File.OpenText(ModFile1)
                                sw = File.AppendText("HTMLb.txt")
                            Catch ex As Exception
                                Label5.Text = "File Open Error On " + ModFile1
                            End Try

                            'encode the resources

                            While Not zsue.EndOfStream
                                Dim tempString As String = zsue.ReadLine()

                                Dim StringIndex As Integer = 0
                                While Not StringIndex = tempString.Length
                                    node = ios.Process(tempString, StringIndex)
                                    StringIndex += 1
                                    node.Line = tempString

                                    ' sw.WriteLine("Line: " + node.Line.ToString + " " + node.PreceedingChar + node.token + node.ProceedingChar + " " + node.UniqueIdentifier.ToString)

                                    nedRay(nedRayIndx) = New Nodearray
                                    nedRayIndx += 1

                                End While
                                nodeIndex += 1
                                Label5.Text = nodeIndex.ToString
                            End While

                            If Not zsue Is Nothing Then
                            End If
                            If Not sw Is Nothing Then
                            End If

                        End If

                    End If
                    index += 1
                End While
            End If
        End If

        Dim ReducedNodes(ARayLgth + 1) As Nodearray

        Dim reducedNodesIndx As Double = 0.0

        For i As Double = 0 To nedRayIndx
            Dim stratocaster As Boolean = True

            reducedNodesIndx = 0
            While reducedNodesIndx < ARayLgth
                If Not ReducedNodes(reducedNodesIndx) Is Nothing Then
                        Dim timmy As Node = ReducedNodes(reducedNodesIndx).GetNode()
                            If Not nedRay(i) Is Nothing Then
                                Dim noddy As Node = nedRay(i).GetNode()
                                If timmy.UniqueIdentifier = noddy.UniqueIdentifier Then
                                    stratocaster = False
                                    Exit While
                                End If
                            End If

                        Catch ex As Exception
                            Exit For
                        End Try

                    Catch ex As Exception
                        Exit While
                    End Try

                    Exit While
                End If
                reducedNodesIndx += 1
            End While
            If stratocaster = True Then
                ReducedNodes(reducedNodesIndx) = New Nodearray
                If Not nedRay(i) Is Nothing Then
                End If

            ElseIf stratocaster = False Then

                Dim tempCounterNode As Node = ReducedNodes(reducedNodesIndx).GetNode()

                tempCounterNode.count += 1

                ReducedNodes(reducedNodesIndx) = New Nodearray

            End If
        reducedNodesIndx = 0
        If Not ReducedNodes(reducedNodesIndx) Is Nothing Then
            Dim EnterTheNode As Node = ReducedNodes(reducedNodesIndx).GetNode()
            If EnterTheNode.count < 10 Then
                '            ListBox1.Items.Add(EnterTheNode.PreceedingChar + EnterTheNode.token + EnterTheNode.ProceedingChar + "P:" + EnterTheNode.Position.ToString + "C:" + EnterTheNode.count.ToString + EnterTheNode.Line.ToString)
            End If
        End If
        reducedNodesIndx += 1
        If ReducedNodes(reducedNodesIndx) Is Nothing Then
            GoTo Fin
            GoTo LOOPOLE
        End If

        Dim i_Index As Double = 0
        Dim NedRayLink As Double = nedRayIndx
        While nedRayIndx > 0
            'Pairs the triplets
            If Not nedRay(nedRayIndx) Is Nothing And Not nedRay(nedRayIndx - 3) Is Nothing Then
                Dim A_Node As Node = nedRay(nedRayIndx).GetNode()
                Dim B_Node As Node = nedRay(nedRayIndx - 3).GetNode()

                    '        If A_Node.count > 80 And B_Node.count > 80 Then
                    NodePairs(i_Index, 0) = New Nodearray

                    NodePairs(i_Index, 0).SetNode(A_Node)
                    NodePairs(i_Index, 1) = New Nodearray

                    NodePairs(i_Index, 1).SetNode(B_Node)
                    'End If

                Catch ex As Exception
                End Try

            End If

            nedRayIndx -= 3
            i_Index += 2
            If i_Index >= ARayLgth Then
                i_Index -= 2
                GoTo PENTAGON_DRAGON
            End If

        End While

        Label5.Text = "F"
        nedRayIndx = NedRayLink
        Dim i_End As Integer = i_Index

        For t As Integer = 0 To i_End
            If Not NodePairs(t, 
June 10, 2017
Added FREQ2(); To Lita AI

We've got a new frequency, ppl! All for Lita's AI Engine.


It's the original idea, executed properly, this time around.



Tags: ,
Comment by chung cu imperial. on 2 Mar 18 at 18:38 GMT
Appreciate the recommendation. Let me try it out.
Comment by https://marklascelle on 7 Mar 18 at 18:08 GMT
Dentro de 2018, objetivo é alcançar 50 novos franqueados.
Comment by can ho imperial on 25 Mar 18 at 17:39 GMT
Hello I am so thrilled I found your blog, I really found
you by mistake, while I was looking on Google for something else, Anyways I am
here now and would just like to say kudos
for a fantastic post and a all round entertaining blog (I also love
the theme/design), I don't have time to read
it all at the moment but I have book-marked it and also included your RSS feeds, so when I have time I will be back to read much
more, Please do keep up the great job.
Comment by jak zrobic on 26 Mar 18 at 18:30 GMT
Hello to every one, the contents existing at this website are
in fact remarkable for people knowledge, well, keep up the good work fellows.
Comment by site on 28 Mar 18 at 22:05 GMT
Someone essentially lend a hand to make seriously posts I might state.
This is the very first time I frequented your web page and thus
far? I surprised with the research you made to create this particular
publish incredible. Excellent task!
Comment by web page on 28 Mar 18 at 22:05 GMT
It's perfect time to make a few plans for the future and it is time to be happy.
I have learn this publish and if I could I desire to counsel you some attention-grabbing issues
or advice. Maybe you can write subsequent articles referring to this article.
I want to read more things approximately it!
Comment by ashly on 29 Mar 18 at 8:42 GMT
A música é seu talento? PARABÉNS. Negócio em 21
Dias 2.0.
Comment by homepage on 29 Mar 18 at 20:01 GMT
Hey just wanted to give you a quick heads up.
The words in your article seem to be running off the screen in Chrome.
I'm not sure if this is a formatting issue or something to do with internet browser compatibility but I figured I'd post to let you know.
The style and design look great though! Hope you get the issue fixed soon. Thanks
Comment by pin up dating site on 1 Apr 18 at 3:50 GMT
Hello There. I found your blog using msn. This is a really well written article.
I will be sure to bookmark it and come back to read more of your useful
information. Thanks for the post. I will certainly comeback.
Comment by marylyn on 4 Apr 18 at 20:51 GMT
Cromo também aumento a triunfo da insulina.
Comment by itmojs.itm.edu.co on 4 Apr 18 at 20:59 GMT
E aí corpo tão sonhado começa a lucrar forma.
Comment by oscar on 4 Apr 18 at 21:01 GMT
No segundo mês, foram mas 12 Kg eliminados.
Comment by gionee gn708w. on 7 Apr 18 at 3:23 GMT
Now I am going away to do my breakfast, once having my breakfast coming yet again to read additional news.
Comment by samsung odin flash. on 7 Apr 18 at 6:11 GMT
Fastidious replies in return of this query with firm arguments and explaining the whole thing concerning
Comment by jasper on 9 Apr 18 at 17:51 GMT
It's actually a great and useful piece of info. I am happy that you just shared this useful information with us.
Please keep us informed like this. Thanks for sharing.
Comment by joycelyn on 14 Apr 18 at 1:39 GMT
Comente e visite website para descobrir as novidades.
Comment by rosaria on 16 Apr 18 at 0:01 GMT
Animation by Tom Johnson and William Henning.
Comment by weldon on 26 Apr 18 at 15:52 GMT
Um pepino completo contém unicamente 45 calorias.
Comment by hemp oil cbd on 8 May 18 at 21:03 GMT
Ԝhen ʏoᥙ are towing youг car or truck yoou һave tо be certain һe cars
ƅehind you already knhow iff yօu are gonna break оr havbe
а turn. A host of key improvements are
actualⅼy designed tto tһіs yeаr's models and aѕ opposed tο hɑving you delay of tһеѕе upgrades, Kendon һɑѕ quietly Ƅeen shipping the
upgradded models withіn the past handful of mⲟnths. Wһеn uѕed by towing they may bbe brought ߋut and free of vibration and stability problems.
Comment by domino 99 poker on 15 May 18 at 9:37 GMT
It's amazing to go to see this site and reading the views of all mates regarding this
post, while I am also keen of getting know-how.
Comment by lingerie fine on 29 May 18 at 15:02 GMT
Parcourez nos ensemble de lingerie fine sur cette catégorie de votre grossiste
lingerie sexy et proposez à votre clientèle un large choix d'ensemble 2 pièces
soutien-gorge et string ou encore en version 3 pièces lorsque
le porte-jarretelles est inclus.

lingerie fine
Comment by dawn on 8 Jun 18 at 11:11 GMT
It is vital that you recognize that a brand new task in a brand new city
with a larger income does not usually imply a better existing circumstance; you
might be relocating to a location where in fact the cost-of-living is higher.
Comment by lingerie pas cher on 8 Jun 18 at 19:52 GMT
Parcourez nos ensemble de lingerie fine sur cette catégorie de votre
grossiste lingerie sexy et proposez à votre clientèle un large choix d'ensemble
2 pièces soutien-gorge et string ou encore en version 3 pièces lorsque le porte-jarretelles est inclus.

lingerie pas cher
Comment by site de lingerie on 12 Jun 18 at 16:25 GMT
Parcourez nos ensemble de lingerie fine sur cette catégorie de
votre grossiste lingerie sexy et proposez à votre clientèle un large choix d'ensemble 2 pièces
soutien-gorge et string ou encore en version 3
pièces lorsque le porte-jarretelles est inclus.

site de lingerie
Comment by towing software for. on 5 Jul 18 at 5:39 GMT
Just seeing thhe ASE certified auto repair shop signage оutside ɑ certɑin auto repair shop іs alreaԀу siugnificant because it meanhs tһаt
thе facility employs one or more ASE certified autpmotive
service professionals oor technicians. Аn overheated engine ⲟr leaking anti freee producess blue, orange
οr yellow green liquid. Ⲛow unscrerw ɑll tһe tһree crews tօ geet access t᧐ the
Comment by elton on 23 Jul 18 at 13:29 GMT
WOW just what I was looking for. Came here by searching for applications
Comment by appnana hack tool on 23 Jul 18 at 19:23 GMT
Hi, i think that i saw you visited my website so i came to “return the favor”.I
am trying to find things to enhance my site!I suppose its ok
to use a few of your ideas!!
Comment by real racing 3 hack. on 23 Jul 18 at 19:27 GMT
What's Going down i'm new to this, I stumbled upon this I have
found It absolutely helpful and it has aided me out loads.
I hope to give a contribution & aid different customers like
its helped me. Great job.
Comment by search engine. on 26 Jul 18 at 14:56 GMT
There aгe Differеnt Methods of Search engine optimization. You are required
tⲟ taҝe care thаt the content shoᥙld explain aboutt
tһe produhts ɑnd services іn a convincing manner.
Wiith the spread οf internet, more andd more people are usiung the web fоr thіѕ purpose wһіch
saves botһ time aand energy.
Comment by full sex videos on 28 Jul 18 at 19:35 GMT
Very good post! We will be linking to this particularly great article on our website.
Keep up the great writing.
Comment by king ocean news on 20 Aug 18 at 21:11 GMT
My spouse and I stumbled over here by a different web address and thought I
might check things out. I like what I see so now i'm following you.
Look forward to looking over your web page again.
Comment by mobile sim slot pin. on 21 Aug 18 at 5:02 GMT
Today, I went to the beach with my children. I
found a sea shell and gave it to my 4 year old daughter and said
"You can hear the ocean if you put this to your ear." She placed the shell to
her ear and screamed. There was a hermit crab inside
and it pinched her ear. She never wants to go back! LoL I know this is entirely
off topic but I had to tell someone!
Comment by mobile slot on 23 Aug 18 at 1:42 GMT
This is the right web site for anyone who really wants to find
out about this topic. You understand a whole lot its
almost tough to argue with you (not that I really will need
to…HaHa). You certainly put a new spin on a subject which has been discussed for ages.
Wonderful stuff, just great!
Comment by filehippo.com on 30 Aug 18 at 4:21 GMT
Tһis info is worth eveгyone's attention. When can I find out more?

additіonaⅼ resources : How To Password Protect Folder And Influence People
Comment by morris on 7 Sep 18 at 12:43 GMT
Hi tһere, I think your website could p᧐ѕsibly
be having brօwser compatibility problems. Wһenever I take a look at your blog in Safarі, it looks fine however
when opening in Internet Еxplorer, it's gоt some overlapping issues.
I simply wanted to give you a quick heads up! Apart from
tһat, great weЬsite!
ReaԀ Full Article : How To Learn To PasѕworԀ Protect Foldeг
In 1 Hour
Comment by vallie on 15 Sep 18 at 8:48 GMT
Estes exercícios ordenhando forçam casta no pau.
Comment by sex for smart. on 17 Sep 18 at 4:24 GMT
Pretty! This was an incredibly wonderful article.
Thank you for providing this information.
Comment by calming music for. on 24 Sep 18 at 17:02 GMT
Yes! Finally somewthing aboit fanxiegang.
Comment by songs about not. on 12 Oct 18 at 8:44 GMT
Great post. I was checking constantly this blog and I am impressed!

Very useful information partihularly the last part :) I care for such
inbfo a lot. I was seeking this certain info for a long time.
Thank you and best of luck.
Comment by lynne on 14 Oct 18 at 1:41 GMT
With havvin so much contrnt do you ever ruun into any problems
of plagorism or coyright infringement? My website has a lot of unique
copntent I've either creaated mygself or outsourced but it appears a lott of it is
poping iit uup aall over the interenet without my authorization. Do you
know any solutions tto help stop content frolm being stolen?
I'd definitely appreciate it.
Comment by top happy songs on 6 Nov 18 at 17:46 GMT
of course like your web-site but you need to check tthe spelling on several off our
posts. A number of them are rife witth spelling problems
and I ffind iit vety bothersome to tell the truth then again I will
surely come again again.
Comment by songs with new york. on 9 Nov 18 at 10:57 GMT
I know this web page givees quality dependent posts andd extra stuff, is there any other web sitye whichh
provfides these kinds of stuff in quality?
Comment by pro tow towing. on 28 Nov 18 at 11:08 GMT
"To an old TV Example, the redemption color TV, refrigerators, washing machines, air conditioners, water heaters, any of them are possible. To ensure all these safety tips while you are towing its necessary to have a good towing services. You have to know about the fees that are charged by any car towing services.
Comment by ocean king winnipeg. on 11 Feb 19 at 20:41 GMT
However, given this film's blatant historical inaccuracies and script flaws, I feel it only deserves
four stars. And Man on Wire star Philippe Petit did a joggling act with the Oscar.

Joaquin's brother-in-law, Casey Aflleck Directed the film.
Comment by nanoo on 27 Feb 19 at 17:40 GMT
I am really enjoying the theme/design of your web
site. Do you ever run into any browser compatibility problems?
A number of my blog visitors have complained about my blog
not working correctly in Explorer but looks great in Firefox.

Do you have any ideas to help fix this issue?
Comment by beach voyeur xxx on 6 Mar 19 at 14:31 GMT
Great goods from you, man. I have take note your stuff previous to and you're simply too
great. I actually like what you have obtained right here, certainly like what you are
stating and the best way during which you say it. You're making it enjoyable and you still
care for to keep it smart. I can't wait to read far more
from you. That is actually a tremendous site.
Comment by click on ads and. on 9 Mar 19 at 2:32 GMT
What a stuff of un-ambiguity and preserveness of precious experience
concerning unpredicted feelings.
Comment by impractical joker. on 19 Mar 19 at 14:00 GMT
I liked the CGI, I realize what people's problem was actually.
And the oldest one out of everyone was during the year 1989 at 59,
Sean Connery. Why is Joan of Arc thanked a end 'tokens'?
Comment by ocean king fish. on 19 Mar 19 at 14:13 GMT
Even if Phoenix's choices possibly the best
on the globe at least his acting can be regarded noteworthy.
Dimsdale and Hester Prynne in Nathtaniel Hawthorne's The Scarlett Character.
Comment by https://htmlmade. on 26 Mar 19 at 0:36 GMT
Thanks on your marvelous posting! I certainly enjoyed reading it, you will be a great author.I will make sure to bookmark your blog and will
eventually come back someday. I want to encourage you to definitely continue your
great writing, have a nice weekend!
Comment by ocean king omega 3 on 30 Apr 19 at 14:43 GMT
Oh and David Bowie dancing and singing with goblins!

However, I think we will continue to see more out of all these stars until we finally realize their talent.
Undoubtedly, there costly sensual scenes and actors.
Comment by ocean king health. on 6 May 19 at 9:43 GMT
At some point after his journey home, Maximus passes out from having lost too much
blood from his wound. I dare you to watch those love
scenes and wait to see if you aren't breathing thick.