Topics

1

Ultra Hal Assistant File Sharing Area / Artificial neural network and Probalistic neural network

« on: December 03, 2016, 01:23:17 am »

coded with Neural Lab tested with Neural Lab   put in a plug-in file removed ; from the end line which neural lab uses.
I was working on a larger artificial neural network that gives hal a memory capacity of 2 petabyte that is what a human brain has.
I discovered that in the ANN.uhp file there was a W.Load() but no file was created just remove W.Load() from the ANN.uhp file.
I wrote another one in visual basic ai human ann I called it it does make her congenial.
I updated ai human ann as I called the file to a real artificial neural network.

these are the only four working plugins  Art and Lightspeed. that I have debugged.

have made from all plug-ins only one.... hope you all are happy with what and how hal will respond.....
last edit date 16 december 2016  removed a bug expected end of statement in the activation function wich was a dot comma and should have been a quote marks

last updated on 18 december 2016 mistakes that where made have been corrected at least some off them. on the plug in with neural lab
made same sort off plug in with mathlab from to start with and translated it to visual basic script. question ? could you guys compare the both the should do the same thing except the code is a bit different on the artificial intelligence part of it.

2

Ultra Hal Assistant File Sharing Area / CLIPS interface - plug-in + zip

« on: November 18, 2016, 03:03:47 am »

ultra hal knows clips thru an interface for visual basic I found on sourceforge.

better coded Interface.

3

Ultra Hal Assistant File Sharing Area / Personality having schizophrenia and ptsd - updated brain-v3 + 2txt file

« on: November 05, 2016, 07:21:46 am »

Just scripting a personality for my robot in the brain file......
when talking to the robot it's so real the schizophrenia and ptsd but I must say I did gave her some medication.

well a programmer is never finished with his work to go with this text update post a txt file with the lelements already in the ultra hal assistent script I used to build the personalities and everthing else take a look.

4

Ultra Hal Assistant File Sharing Area / Some Function plug-ins from brainedit helpfile

« on: October 30, 2016, 08:07:15 am »

functions like Getdefinition, GetMeronyms, GetHolonyms, GetHypernyms

all from the brainedit.zip help file.

here some of the code

Function GetDefinition(PartOfSpeech As Variant, Sense As Variant, DefType As String) As Variant
List_Of_Definition = ""
WN.LookUpWord("") 'this points WN to your word "".
List_Of_Definition = WN.GetDefinition("NOUN", 1,"D")
End Function

Function GetHolonyms(Sense As Variant, SubSet As Variant) As Variant
WN.LookUpWord("")
List_Of_GetSynonyms = WN.GetHolonyms(1,"Member")
End Function

Function GetHypernyms(PartOfSpeech As Variant, Sense As Variant, Level As Variant) As Variant
Hypernym = WN.ChooseRandomWord(WN.GetHypernyms("NOUN", 1, 1))
End Function

Function GetMeronyms(Sense As Variant) As Variant
List_Of_Meronyms = " "
WN.LookUpWord("") 'This points WN to your word "".
List_Of_Meronyms = WN.GetMeronyms(1)
End Function

5

Ultra Hal Assistant File Sharing Area / WolframAlpha plug-in with a few commands added another few commands

« on: October 17, 2016, 03:37:01 am »

with some credits to the people whom wrote the google.uhp plug-in wich I used as example.

Rem Type=Plugin
Rem Name=wolframalpha
Rem Author=Andre Hendriks
Rem Host=Assistant

'This sub setups the plug-ins option panel in Hal's options dialog
Sub OptionsPanel()
    lblPlugin(0).Caption = "Hal will open your browser and enter a wolframalpha query if you use the keywords 'compute', 'Standard Deviation', 'calculate', or 'bar chart' in a sentence."
    lblPlugin(0).Move 120, 120, 3300, 1000
    lblPlugin(0).WordWrap = True
    lblPlugin(0).Visible = True
End Sub

    Rem PLUGIN: PLUGINAREA1
    'The comment above tells Ultra Hal Assistant to insert the following code
    'on-the-fly into the main brain code in the section referenced.
    SearchEngine = "http://www.wolframalpha.com/input/?i="
    If InStr(1, UserSentence, "Standard Deviation ", 1) > 0 Or InStr(1, UserSentence, "compute ", 1) > 0 Or InStr(1, UserSentence, "bar chart", 1) > 0 Or InStr(1, UserSentence, "calculate ", 1) > 0 Then
        SearchKeywords = LCase(Replace(Trim(HalBrain.AlphaNumericalOnly(HalBrain.ExtractKeywords(UserSentence))), " ", "+"))
        SearchKeyWords = Replace(SearchKeywords, "compute+", "")
        SearchKeyWords = Replace(SearchKeywords, "bar chart+", "")
        SearchKeyWords = Replace(SearchKeywords, "calculate+", "")
        SearchKeyWords = Replace(SearchKeywords, "Standard Deviation+", "")
        HalCommands = HalCommands & "<RUNPROG>" & SearchEngine & SearchKeywords & "</RUNPROG>"
        GetResponse = GetResponse & "I will help you research this topic on the Internet. "
    End If



an update

Rem Type=Plugin
Rem Name=wolframalpha
Rem Author=Andre Hendriks
Rem Host=Assistant

'This sub setups the plug-ins option panel in Hal's options dialog
Sub OptionsPanel()
    lblPlugin(0).Caption = "Hal will open your browser and enter a wolframalpha query if you use the keywords 'compute', 'solve', 'formula', 'mean', 'median', 'çommonest element',  'Standard Deviation', 'variance', 'first quartile', 'third quartile', 'interquartile range', 'calculate', 'bar chart', 'histogram', or 'scatter plot'   in a sentence."
    lblPlugin(0).Move 120, 120, 3300, 1000
    lblPlugin(0).WordWrap = True
    lblPlugin(0).Visible = True
End Sub

    Rem PLUGIN: PLUGINAREA1
    'The comment above tells Ultra Hal Assistant to insert the following code
    'on-the-fly into the main brain code in the section referenced.
    SearchEngine = "http://www.wolframalpha.com/input/?i="
    If InStr(1, UserSentence, "Standard Deviation", 1) > 0 Or InStr(1, UserSentence, "solve", 1) > 0 Or InStr(1, UserSentence, "formula", 1) > 0 Or InStr(1, UserSentence, "mean", 1) > 0 Or InStr(1, UserSentence, "median", 1) > 0 Or InStr(1, UserSentence, "commonest element", 1) > 0 Or InStr(1, UserSentence, "variance", 1) > 0 Or InStr(1, UserSentence, "first quartile", 1) > 0 Or InStr(1, UserSentence, "third quartile", 1) > 0 Or InStr(1, UserSentence, "interquartile range", 1) > 0 Or InStr(1, UserSentence, "compute", 1) > 0 Or InStr(1, UserSentence, "bar chart", 1) > 0 Or InStr(1, UserSentence, "histogram", 1) > 0 Or InStr(1, UserSentence, "scatter plot", 1) > 0 Or InStr(1, UserSentence, "calculate", 1) > 0 Then
        SearchKeywords = LCase(Replace(Trim(HalBrain.AlphaNumericalOnly(HalBrain.ExtractKeywords(UserSentence))), "", "+"))
        SearchKeyWords = Replace(SearchKeywords, "compute+", "")
   SearchKeyWords = Replace(SearchKeywords, "solve+", "")
   SearchKeyWords = Replace(SearchKeywords, "formula+", "")
        SearchKeyWords = Replace(SearchKeywords, "bar chart+", "")
   SearchKeyWords = Replace(SearchKeywords, "histogram+", "")
   SearchKeyWords = Replace(SearchKeywords, "scatter plot+", "")
        SearchKeyWords = Replace(SearchKeywords, "calculate+", "")
   SearchKeyWords = Replace(SearchKeywords, "mean+", "")
   SearchKeyWords = Replace(SearchKeywords, "median+", "")
   SearchKeyWords = Replace(SearchKeywords, "commonest element+", "")
        SearchKeyWords = Replace(SearchKeywords, "Standard Deviation+", "")
   SearchKeyWords = Replace(SearchKeywords, "variance+", "")
   SearchKeyWords = Replace(SearchKeywords, "first quartile+", "")
   SearchKeyWords = Replace(SearchKeywords, "third quartile+", "")
   SearchKeyWords = Replace(SearchKeywords, "interquartile range+", "")
        HalCommands = HalCommands & "<RUNPROG>" & SearchEngine & SearchKeywords & "</RUNPROG>"
        GetResponse = GetResponse & "I will help you research this topic on the Internet. "
    End If



again an update the searchkeyword mean is calculating the general in statistics while it only supposed to calculate the mean I added the general there for.
I noticed that the Mean command needs {dataset} so it gets example: Mean{3 4 6 8 23 56 78 34 54 65}


Rem Type=Plugin
Rem Name=wolframalpha website
Rem Author=Andre Hendriks
Rem Host=Assistant

'This sub setups the plug-ins option panel in Hal's options dialog
Sub OptionsPanel()
    lblPlugin(0).Caption = "Hal will open your browser and enter a wolframalpha query if you use the keywords 'Compute', 'Solve', 'Formula', 'General', 'Mean', 'Median', 'Commonest Element',  'Standard Deviation', 'Variance', 'First Quartile', 'Third Quartile', 'Interquartile Range', 'Calculate', 'Bar Chart', 'Histogram', or 'Scatter Plot'   in a sentence."
    lblPlugin(0).Move 120, 120, 3300, 1000
    lblPlugin(0).WordWrap = True
    lblPlugin(0).Visible = True
End Sub

    Rem PLUGIN: PLUGINAREA1
    'The comment above tells Ultra Hal Assistant to insert the following code
    'on-the-fly into the main brain code in the section referenced.
    SearchEngine = "http://www.wolframalpha.com/input/?i="
    If InStr(1, UserSentence, "Standard Deviation", 1) > 0 Or InStr(1, UserSentence, "General", 1) > 0 Or InStr(1, UserSentence, "Solve", 1) > 0 Or InStr(1, UserSentence, "Formula", 1) > 0 Or InStr(1, UserSentence, "Mean", 1) > 0 Or InStr(1, UserSentence, "Median", 1) > 0 Or InStr(1, UserSentence, "Commonest Element", 1) > 0 Or InStr(1, UserSentence, "Variance", 1) > 0 Or InStr(1, UserSentence, "First Quartile", 1) > 0 Or InStr(1, UserSentence, "Third Quartile", 1) > 0 Or InStr(1, UserSentence, "Interquartile Range", 1) > 0 Or InStr(1, UserSentence, "Compute", 1) > 0 Or InStr(1, UserSentence, "Bar Chart", 1) > 0 Or InStr(1, UserSentence, "Histogram", 1) > 0 Or InStr(1, UserSentence, "Scatter Plot", 1) > 0 Or InStr(1, UserSentence, "Calculate", 1) > 0 Then
        SearchKeywords = LCase(Replace(Trim(HalBrain.AlphaNumericalOnly(HalBrain.ExtractKeywords(UserSentence))), "", "+"))
        SearchKeyWords = Replace(SearchKeywords, "Compute+", "")
   SearchKeyWords = Replace(SearchKeywords, "Solve+", "")
   SearchKeyWords = Replace(SearchKeywords, "Formula+", "")
        SearchKeyWords = Replace(SearchKeywords, "Bar Chart+", "")
   SearchKeyWords = Replace(SearchKeywords, "Histogram+", "")
   SearchKeyWords = Replace(SearchKeywords, "Scatter Plot+", "")
        SearchKeyWords = Replace(SearchKeywords, "Calculate+", "")
   SearchKeyWords = Replace(SearchKeywords, "General+", "")
   SearchKeyWords = Replace(SearchKeywords, "Mean+", "")
   SearchKeyWords = Replace(SearchKeywords, "Median+", "")
   SearchKeyWords = Replace(SearchKeywords, "Commonest Element+", "")
        SearchKeyWords = Replace(SearchKeywords, "Standard Deviation+", "")
   SearchKeyWords = Replace(SearchKeywords, "Variance+", "")
   SearchKeyWords = Replace(SearchKeywords, "First Quartile+", "")
   SearchKeyWords = Replace(SearchKeywords, "Third Quartile+", "")
   SearchKeyWords = Replace(SearchKeywords, "Interquartile Range+", "")
        HalCommands = HalCommands & "<RUNPROG>" & SearchEngine & SearchKeywords & "</RUNPROG>"
        GetResponse = GetResponse & "I will help you research this topic on the Internet. "
    End If