Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Fuzzy recursive map

  • To: mathgroup at smc.vnet.net
  • Subject: [mg52329] Re: Fuzzy recursive map
  • From: Roger Bagula <tftn at earthlink.net>
  • Date: Tue, 23 Nov 2004 02:12:49 -0500 (EST)
  • References: <cnq2m9$2e8$1@smc.vnet.net>
  • Reply-to: tftn at earthlink.net
  • Sender: owner-wri-mathgroup at wolfram.com

The master fuzzy map programmer is Dr. P. Grim at Stoney Brook:
http://www.sunysb.edu/philosophy/faculty/pgrim/pgrim.htm
His book contains much of his Liar's paradox/ dualistic fuzzy logic work:
The Philosophical Computer, MIT Press/Bradford Books 
<http://www.sunysb.edu/philosophy/faculty/pgrim/index.html>
Roger Bagula wrote:

>I did this experiment in the early 90's and it was published in TFTN at 
>that time.
>It gives a relatively triangular cycle. It is based on a
>differential equation like: ( on Kosco fuzzy logic)
>dx/dt=fuzX(x,y)-x/2
>dy/dt=fuzY(x,y)-y/2
>It was just a dumb experiment that give a nice picture
>and doesn't even have a good rationalization.
>The x and y values in the cycle trajectory of the map exceed one.
>
>
>Clear[x,y,a,b,s,g,a0]
>(* fuzzy recursion map*)
>(* FUZZY RECURSION OF SECOND TYPE *)
>(*  by R.L.Bagula 2 May 1994 in  TFTN*)
>digits=10000;
>x[n_]:=x[n]=x[n-1]+(2*(1-Abs[x[n-1]-y[n-1]])-x[n-1])/2
>y[n_]:=y[n]=y[n-1]+(2*(1-Abs[x[n-1]+y[n-1]-1])-y[n-1])/2
>x[0]=.2;y[0]=.1;
>a=Table[{x[n],y[n]},{n,0, digits}];
>ListPlot[a, PlotRange->All]
>
>Respectfully, Roger L. Bagula
>
>tftn at earthlink.net, 11759Waterhill Road, Lakeside,Ca 92040-2905,tel: 619-5610814 :
>alternative email: rlbtftn at netscape.net
>URL :  http://home.earthlink.net/~tftn
>
>  
>

-- 
Respectfully, Roger L. Bagula
tftn at earthlink.net, 11759Waterhill Road, Lakeside,Ca 92040-2905,tel: 619-5610814 :
alternative email: rlbtftn at netscape.net
URL :  http://home.earthlink.net/~tftn



  • Prev by Date: Re: Re: Subject: Calling one notebook into another
  • Next by Date: Re: Re: Newly Released Mathematica 5.1 Delivers Unmatched Performance for Handling Data
  • Previous by thread: Fuzzy recursive map
  • Next by thread: limits