Association Memory help

[windfire]

in

'Note:: I'm setting up an association memory. I need it to handle single and/or multiple responses.

'I'd like to know the best way to do this.

'Note On this all element need a 0 or value and for multiple add an exra 0

quest$="3 7 4 9 2"

respd$="3 7 4 9 2"

StatAtv$="0 1"

prompt quest$;Gvn$

n=1

if 6<>Lng(Gvn$) then n=2

Stat$=word$(StatAtv$,n)

Gvn$=Stat$;" ";Gvn$

AQ$=Gvn$

print AQ$

select case

 case word$(AQ$,1)="1"and instr(word$(AQ$,1+1),word$(quest$,1))

 gosub [0.734]

 case word$(AQ$,1)="1" and instr(word$(AQ$,2+1),word$(quest$,2))

 gosub [0.03242]

 case word$(AQ$,1)="1" and instr(word$(AQ$,3+1),word$(quest$,3))

 gosub [0.795]

 case word$(AQ$,1)="1" and instr(word$(AQ$,4+1),word$(quest$,4))

 gosub [0.4837]

 case word$(AQ$,1)="1" and instr(word$(AQ$,5+1),word$(quest$,5))

 gosub [0.5036]

 end select

 if word$(AQ$,1)="0" and 1=instr(word$(AQ$,1+1),word$(quest$,1)) then gosub [0.004725]

 if word$(AQ$,1)="0" and 1=instr(word$(AQ$,2+1),word$(quest$,2)) then gosub [0.90035]

 if word$(AQ$,1)="0" and 1=instr(word$(AQ$,3+1),word$(quest$,3)) then gosub [0.1398]

 if word$(AQ$,1)="0" and 1=instr(word$(AQ$,4+1),word$(quest$,4)) then gosub [0.0006819]

 if word$(AQ$,1)="0" and 1=instr(word$(AQ$,5+1),word$(quest$,5)) then gosub [0.9427]

 end

[0.734]

  print "Hi"

 return

[0.03242]

  print "there"

 return

[0.795]

  print "they"

 return

[0.4837]

  print "some"

 return

[0.5036]

  print "most"

 return

[0.004725]

  print "Low"

 return

[0.90035]

  print "here"

 return

[0.1398]

   print "we"

 return

[0.0006819]

   print "all"

 return

[0.9427]

   print "every"

 return

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

'***************************************************************************************************************

'get stream$ word count

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Function Lng(byref Stream$)

[loop]

  q=q+1

   Ck$=word$(Stream$,q)

     if Ck$<>"" then [loop]

  Lng=q-1

end function



[Rod]

Rather than code examples can you just chat us through what the application is doing? A bit more detail and set it all in context. The code is a bit cryptic.

[windfire]

I'm trying to set up a memory system. It's an associative memory system so that the code which is the key is called for and then it takes you to the label where you can put any code that's necessary but that way you can access it randomly. And get single or multiple replies whichever is called for. It's set up so that I can create another file and copy it and paste into update the older files. I create a key from the information provided which creates an association label and the key in the label is used to call recall the memory but I need to set the memory up to do that.
Select cases used for singles and the advanced statements are used for multiple responses it's like calling for single associations are using it to call for multiple associations as a group.

[windfire]

Rod,This is for a complex application I'm researching. ie:: key_base with effects x,y,z produce key_0.675 assocate_call "011010"active keylist"57839" calls Labels (atv?),(atv?,-- which pulled learned association properties.

[Rod]

Is this anywhere near the concept? en.m.wikipedia.org/wiki/Associative_array

[windfire]

I'd have to say no;Thou,The general consept is in that direction.
This about a permanent memory of learned and known associations.
Let say you observe this association::
activeStat$ 1 0 0 0 obj1
0 1 2 0 obj2
0 1 1 1 obj3
perspective,circle$(radius,diamiter,Pi2,circumffrance)
'
1 infoobjectradius(radius) >> key is *KeyPerspective with effect *object and commandinformation ==associationkey key0.344 label [0.02342]
'
2 exeobjectdiamiter(radius,2,diameter) >> key is *KeyPerspective with effect *object and commandexecte ==associationkey key0.8549 label [0.73482]
'
case key is key0.344 then gosub [0.02342]
if key is key0.8549 then gosub [0.73482]
[0.02342]
{execute}
print #copy, radius=(argu1)
return
[0.73482]
arg1=in1
arg2=in2
print #copy arg1*2
call circumfrance association
return
The idea is to associate the objects to the actives of the perspective and the history of the call.
history effect >> key >>call and effects >> to associatins_responce ([?],[?],[?]
[]
frame 8
[]
frame 4
[]
frame 12
key 8 4 produce to label 12
perspetive (frm8,frm4,Lbl_12) is responding picture executions. gosub [0.00162]
return
[0.00162] 
run c:\document\pic\ducksonpound.bmp
return
Note:The finial responce is associated with all the predceeding effects.
Learned is>> How,when,where,why,what--ect.<<associations>>
Remember this is research of observation and speculation of a non_literate amiture.


So I have a hard time communicating .I appoligize for that.

To simplify::

associate logics

(total,gain,loss) the loss has little significence but an Association!!??

to

(warehouse,cart,tag,byref assoKey)



Key_of_warehouse - key_of_pull_to_cart ==key_tag,convert keyAssociation)

now associat warehouse ,cart and tag to association

key asso==wH0.4738;cart0.4934;tag0.48455 and viser_verse.

if instr(asso$,word$(key,2) then cart is form wh0.4738

if word$(wh,2) then 2 is cart0.934 object of wH0.4738

[Rod]

I think you need to try and tell us again but this time don’t use code. Use real objects or info and talk us through how these associations link up.

So we have a product in a warehouse, it has values, weight volume location price etc

It has an association with a retail shop, location shelf volume price etc

There is one warehouse, many shops, many many products

So what does your application do with this information?

[windfire]

The warehouse is empty ;, But has a name and a type { WalMart SupperSuppiier =Key & an assined a label}
The retail shop has a history with warehouse,knows{preferances,exspectations,attitudes,exceptions,ect} and It's own
history ,knows{preferances,exspectations,attitudes,exceptions,ect}
This is the background in memory .
Now
Situations change in eigther or both that need accounting for.
update background
warehouses::
*Walmart Department {Pharmacy} past & present Known(history$,exspectation$,on_hand >> association keyA & LabelA
Block Busters 
Krogers

Request
Bob
Paul
*Sue {client} Request {Pharmacy} past & present Known(history$,exspectation$,on_hand >> association keyB & LabelB

Past status of both keyW & LabelW
Present status of both keyZ & LabelZ Shiped is key_Q inventory sheet is at [label] or key_Q.a {inventory & instructions} at[Label]
  Given detailed Situation effect key
Information availiable >> get decissions or Make decissions??


Such that "Donnie was here with Judy for a while ." KeyA
and "Donnie was there with Judy for a while ." KeyZ

Note Cause and effect
association_Key= { Total-(gain1+gain2+gain3)==loss ?,?,? }
The associated_call and the associated_responce >> logic_call & logic_responce
have data_keys and responding data addresses which have assigned default data_responces.

example::
prompt "What is your name ?"
if "what" goto [what]


call respond$(n)
end
[what]
if "is your" goto [object]
return

OR
prompt "What is your name ?"
"angerly What is your name ?" >>key goto [respondsA.1] "what do you care!!!"
"happily & noticing What is your name ?" >>key goto [respondsA.2] "gigly my name is Sue" and "Paul was pleased that she was not upset"
OR
"test math class Pams" key1
faulse question 1 key_a
true question 2 key_b
faulse question 3 key_c
total =1/(fractional(1/a)+fractional(1/b)+fractional(1/c)
gain1= 1/(fractional(1/a)+fractional(1/c) >> loss=((fractional(1/total)-fractional(1/gain1) ==gain key_?? faulse==fail
gain2= 1/(fractional(1/b)) >> loss=((fractional(1/total)-fractional(1/gain2) ==gain key_?? true==pass
Or
if total+loss=total then ==gain key_?? 2/3 failed
Note:: the logical_responce potentual given to the association_key.
There is a lot of research here I'm just touching on . Like "E=Mc^2" with/out the research
Think >> learned reference associations that are modified on call Or templets altered in use. Subconcious_memory.
I have a system working is why I'm set up the memory.





What can retail shop request and exspect warehouse to order and supply.
How do communicate progress>> Association [Labels] >>> some all or a summery_of

[Rod]

Ha! hints if Eliza in there. webzoom.freewebs.com/gamebin/Other%20Software/Eliza.ZIP

A chat interface that "interprets" free text input looking for "key" words that shape its response. This has built in fixed memory but it could learn about unknown things, questioning as it goes.

[windfire]

Now you're getting the idea . Beginning to think I was a lost cause.
I'd share and discuss a file with you if I could. But I don't want it public yet.
And don't know if you'd have the time. I don't want to be a problem to anyone.
But I have a lot of {let's say .. abstract observations in my program.

[Rod]

I do recall a very early Sinclair Spektrum program that was a question and answer session that lead the program to either tell you what the object was or ask what it was and what differentiated it from similar objects. Thereafter it could always tell you what the object was. Key based segmentation. If it was yellow and a fruit it was always a banana until it wasn’t and it learned the difference between yellow fruit Round, crescent shaped, pear shaped.

Long winded but utterly fascinating at the time because it really felt “intelligently.

So I think you need ideas about how to store associations.

My first thought is a data model. A model that describes everything you might meet.

Size shape color weight cost value smell name, purpose reliability

Each of these descriptive categories need defined ranges

With the data model you can compare association to association

So you need structure, without structure it all becomes monumentally unprocessable.

[windfire]

There is a structure and a common repeating pattern .
In it's simplicity is a complex application potentual.
Let me try and demo in simple association terms.

common C=(r*Pi2) == C=((r*2)*Pi2)
Circumfrance is 1 rotation so key=rotation_receprical=(1_rotation/any mixed or whole Key_value:
Note the rotation is inc to L to frq to rdi to dia to circm of Wt to to circm of rotation.
A natural constant logic structure and a common structure_logic association refference.

?=(((?*?)*?)*Pi2 Circumfrance={ { r=(bitR*cycles) }*Pi2 }
objt1 circle= circumfrence={radius{={{Length=(pulse*rate)}*frquency)*Pi2}

?=(((?*?)*?)*Pi2 XL={radius={L=(bitRL*cycles)}*frq}*Pi2}
object tank_circuit= circumfrence={radius={L{L==Lsum=(Lb*rate)}*frquency)}*Pi2}

observations common_association pattern structure logics
Perspective Circle(Pi2,pulse,rate,frq,rdi,2,dia,--
Perspective Tank (Pi2,pulse,rate,L,frq,rdi,2,dia,at frq=1 rotation_Wt,frq>1 rotation_XL *tim>> Pt Foot_Lbs
Perspective falling_object (Pi2,pulse,rate,L,speed,rdi,2,dia,at Sp=1=1 rotation_Wt,Sp>1 rotation_Op *tim>> Pt{impact}
common logic refferences Lbs Lbs/s ft_lbs/sec ft_lbs
Perstective GraphWindow pictured window {4_letter_frames {letter_frames {4:{pxl,x_colm y_frame}}}
common>>rotation perspective pxl;colm_rows;vrt_rows;frames;letters;picture
All associated on the circumfrance of the rotation . Like all tracks on a CD riding the circumfrance of the rotation {for lake of a better way to say it.}

[windfire]

Food for thought!!
I hope you can see what I'm doing here .
The keys::
Wt1=? == Wt2=? W=L*Sp W=L*Frq {true} >> key=true
Op1=? == XL2=? Op=L*Sp*Pi2 XL=L*(frq*MJ,Ft)*Pi2 {True} >> key=true
ect::::
TestPage and correctPage {True} >> key=true
The common perspective would be the association_Default

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

A potentual Association detector is with the Perspective Formats
if the structure observations match then the associations are a match

Perspective$::
Tank.circuit$(Wt$,L$,i$,Sp$,Frq$,Op$,XL$,XC$,X$,time$,Distance$,Limit$,Pt$,Level$,LvLarea$,Ptvolum$,Hyp.XL$,HypPt$,2,Pi,MFt.J$,MJ.Ft$)
NOTE:: At frq=1 or Sp+1 (L@ (1/(2*Pi)) *1)*(2*Pi)=Wt is 1 {Op=1} and L@ (1) *1)*(2*Pi)= Wt is (2*Pi) {Op=(2*Pi)}
Hrz.axis:
Wt$ {weight =incements.in.Lbs} Asso/with >> Wt=i^2 and L*(2*Pi) {{Base.Rotation}}
L$ {inductance =incements.in.Lbs} Asso/with >> i=Wt^.5 and L=Wt/(2*Pi)
i$ {amps=incements.in.Lbs} Asso/with >> Wt^.5
Pnt.axis::
Sp$ {speed =incements.in.Feet\sec} also {in changes\sec} Sp to J=Sp*MFt.J$
Frq$ {Frequency =incements.in.Jules\sec} also {in changes\sec} Sp=J*MJ.Ft$
time$ {time in seconds}
Distance$ {=incements.Ft or J}
Limit$= Distance$
Vrt.axis::
Level$ asso/with vrt.height
LvLarea$ asso/with area of Level & Lmt
vector{Wt;Pt)::
Op$ {Output =incements.in.Feet.Lbs\sec} Asso/with Op to XL=Op*MFt.J$ {{reactance.rotation}}
XL$ {inductive_reactance =incements.in.joule.Lbs\sec} Asso/with XL to Op=Op*MJ.Ft$ {{reactance.rotation}}
Pt$
Hyp.XL$;Op Asso/with Hyp_to_vector{Wt;Pt) as Op;XL
HypPt$ Asso/with Hyp_to_vector{Wt;Pt) as Pt
Volume::
Ptvolum$ Asso/with Level & Pt Volume
Logicconstants$::
2,Pi,MFt.J$,MJ.Ft$
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Asso.Perspective$::
circle$(circumW$,pulse$,enrgy$,Ftconductance$,Jconductance$,circumO$,circumL$,circumC$,X$,time$,Distance$,Limit$,Pt$,Level$,LvLarea$,Ptvolu$,2,Pi,MFt.J$,MJ.Ft$)
call Assc.circle$
if Assc.circle$=Tank.circuit$ then association_{circle$=Assc.circle$=Tank.circuit$}_is true.
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
note;byref
Assc.circle$(Wt$,L$,i$,Sp$,Frq$,Op$,XL$,XC$,X$,time$,Distance$,Limit$,Pt$,Level$,LvLarea$,Ptvolum$,2,Pi,MFt.J$,MJ.Ft$)
NOTE:: At frq=1 or Sp+1 (L@ (1/(2*Pi)) *1)*(2*Pi)=Wt is 1 {Op=1} and L@ (1) *1)*(2*Pi)= Wt is (2*Pi) {Op=(2*Pi)}
Hrz.axis:
Wt$ {weight =incements.in.Lbs} Asso/with >> Wt=i^2 and L*(2*Pi) {{Base.Rotation}}
L$ {inductance =incements.in.Lbs} Asso/with >> i=Wt^.5 and L=Wt/(2*Pi)
i$ {amps=incements.in.Lbs} Asso/with >> Wt^.5
Pnt.axis::
Sp$ {speed =incements.in.Feet\sec} also {in changes\sec} Sp to J=Sp*MFt.J$
Frq$ {Frequency =incements.in.Jules\sec} also {in changes\sec} Sp=J*MJ.Ft$
time$ {time in seconds}
Distance$ {=incements.Ft or J}
Limit$= Distance$
Vrt.axis::
Level$ asso/with vrt.height
LvLarea$ asso/with area of Level & Lmt
vector{Wt;Pt)::
Op$ {Output =incements.in.Feet.Lbs\sec} Asso/with Op to XL=Op*MFt.J$ {{reactance.rotation}}
XL$ {inductive_reactance =incements.in.joule.Lbs\sec} Asso/with XL to Op=Op*MJ.Ft$ {{reactance.rotation}}
Pt$
Hyp.XL$;Op Asso/with Hyp_to_vector{Wt;Pt) as Op;XL
HypPt$ Asso/with Hyp_to_vector{Wt;Pt) as Pt
Volume::
Ptvolum$ Asso/with Level & Pt Volume
Logicconstants$::
2,Pi,MFt.J$,MJ.Ft$

[honkytonk]

My translation skills didn't allow me to understand what you want to do.
I asked Google to translate me, it was even more obscure.
It's your turn to start translating.
This makes associations-->:
libertybasic.fr/upload/range-listes.zip
Enjoy...

[carlgundel]

Jan 23, 2022 18:56:36 GMT Rod said:

I do recall a very early Sinclair Spektrum program that was a question and answer session that lead the program to either tell you what the object was or ask what it was and what differentiated it from similar objects. Thereafter it could always tell you what the object was. Key based segmentation. If it was yellow and a fruit it was always a banana until it wasn’t and it learned the difference between yellow fruit Round, crescent shaped, pear shaped.

Long winded but utterly fascinating at the time because it really felt “intelligently.

I think that is loosely called an 'expert system'.