| ###################################################################### | http://CoSy.com ` \4thCoSy\CoSy\CoSy.csy startJob | open intro ( paradigm ) CoSy Job | ###################################################################### | | Tap F1 for Help | | ###################################################################### | |\/| PRESENTATIONS |\/| |\/| Cloned from WorkLog.csy 20210924.1836 |\/| | \/ \/ \/ \/ \/ \/ \/ \/ | Tek Log | \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ | ` script0 -> textwdo @ getcaret `( sys Tui caret )` Dv@ | ` 2900,1 textwdo @ setcaret | ###################################################################### | | ======================== | e o current work | ======================== | |>> | \/ PLEASE ASK ANY QUESTIONS at \/ | \/ | << | ` .\CoSy\CoSy.csy startJob | F6 to start persistent work space http://www.cosy.com/CoSy/AskMeAnything.html | JOIN THE CoSy alphas . SUBSCRIBE at http://CoSy.com | ###################################################################### | | ~~ | \/ | sometimes useful lines | \/ | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ | | Basic settings : ` script0 -> ` BROWSER Dv@ |>| ""C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe"" res> ` BROWSER Dv! bye d1 @ _getPos `( sys Tui posXY )` Dv! | Stores current upper left corner for restart ec Words | ` 1st con ec Words reverse .. ` conn 10 _-+ ,/ at ec Words reverse `( (' braket i( f( )` ' conn 'R res> >t0> blVM ' Help 'm bye text> daylncut ` sort con reverse rShow res> >t1> t0 F> >t1> Ft rUpdate rGet >t1> lf>nl ` ./CoSy/CoSy.f >F Dnames 4 _partition ' blMV 'm ` ./CoSy/CoSy.f F> ` ./CoSy/CoSy.f.bk >F ec Dir ` lst>dt ?? Dnames | { Dv@ rho } 'm | lst | sF6 . check if any ' rho' crazy CoSyDir ` .\CoSy Dir ` .\CoSy\CoSy.bk F>/\ ` help v@ rho mark forget ` ./CoSy/math.f F> Eval ` ./CoSy/sort.f >Fn> F> >Ft> Eval R0 >t0> F> >t1> Eval | for editing or evaluating a file res> "lf "nl ,L ssr t0 >F R0 DMP cr ev >R0 R0 DMP | sF6 . useful for executing when ' save bombs ` - 74 _take s" | " enc braket | Create line below | | ========================================================================== | |/\| |/\| |/\| |/\| |/\| |/\| |/\| |/\| |/\| |/\| |/\| |/\| |/\| |/\| |/\| | ###################################################################### | | ###################################################################### | ` SkriptThots -> | 20210521.0838 s" |\/| " 74 _take s" | " enc braket | |\/| |\/| |\/| |\/| |\/| |\/| |\/| |\/| |\/| |\/| |\/| |\/| |\/| |\/| |\/| | | ======================== | Sat.May,20210522 | ======================== | | 1213 | s" WORDS " i( 10 74 )i take | s" | " enc braket | WORDS WORDS WORDS WORDS WORDS WORDS WORDS WORDS WORDS WORDS WORDS WORDS WO | | 20210517.1045 | The purpose of Forth is to make words | IF YOU HAVE THE WORDS TO THINK IT , IT'S DONE | ========================================================================== | http://cosy.com/y21/ScreenShot0520x1920.jpg | ========================================================================== | CoSy evolves APL in Forth Forth gets you from the Silicon to the Dictionary APL > K > CoSy fills the dictionary at the most general level + CoSy FACTORS looping . ( Modulo indexing ) `( 'm 'd 'L 'R ./ .\ )` >t0> | Like the transform between Dirac&Kronecker ` delta and Fourier space . Between items and objects convolution vs product To enable that transformation , Type and Count need to be factored from the ` verb to the ` noun `( Type # refCount )` ec Words ' # 'm ,/ t0 ' :?? 'm The CoSy vocabulary evolving and building on APL tends to be geometric and algebraic eg: `( # take cut VM MV match con venn )` ' :?? 'm | ========================================================================== | THE BRILLIANCE OF APOLLO 11 The 1969 Apollo Guidance Computer https://youtu.be/B1J2RMorJXM Spent a lot of time digging into Reva Forth exception handling but don't have it handled yet . Trivial to write something that blows the system away . Also the venerable IUP GUI has bugs of its own ( MUST LEARN WEB INTERFACE ) Apollo says , screw it . RESTART at last check point http://cosy.com/y21/Wed.Mar,20210310.html#4th.CoSy http://cosy.com/y21/Wed.Mar,20210324.html#4th.CoSy CoSy's Most Fundamental Use is as a timeStamped Diary.NoteBook.Log From very early on CoSy has done a ' save before every execution . 0 So it was just a matter of changing the DOS .bat file to loop . I could have done years ago . But it makes a radical change | ########################################################################## | EuroForth 2021 Notes Video \/ https://www.twitch.tv/videos/1145564619?fbclid=IwAR0joq5Ej88Stv1PxVn1OpajPbDkngEL0JoI_XwDv3TAjF_6_Wsnq37_0DY&t=01h19m44s | ======================== | Fri.Sep,20210910 | ======================== | | 0844 | 08:30 Session 1 on air Ulrich Hoffmann: Taming the IoT - Forth's Role in the Internet of Things (45min) | 0851 | StephenPelc comment | 0923 | Nick Nelson: A simple Forth wrapper for a Linux logging library (15min) db . " Useful for other people " | 0935 | 09:50 Session 2 on air | 0953 | M. Anton Ertl: Practical Considerations in a Static Stack Checker (45min) I see a value in return stack depth checking on exit from word . | 1032 | Philip Zembrod: Where does my app spend its time? A small Forth profiler (45min) | 1058 | Leon Wagner Ground Satellite Antenna !/\! dozen ARM controlers via eithernet 11 Edsall Dr, Sussex, NJ | large for receiver gain & transmit focus | 9 to 30 meter ! | ChuckMoore 1st task was 9m radio telescope | 1116 | 11:35 Session 3 on air | 1132 | Klaus Schleisiek: microCore progress (20min) " Linguistic aspect of Forth " | 1139 | | 1200 | M. Anton Ertl: ' move vs ' cmove `( move cmove )` ' Help 'm ` cmove> `( :?? Help )` ' Eval 'R ` move `( ?? Help )` ' Eval 'R `( ./src/revacore.asm ./src/reva.f )` { F> lfVM s" move" con } 'm | 1233 | | ======================== | Sat.Sep,20210911 | ======================== | 08:00 Session 4 on air | 0800 | | 0801 | Gerald Wodni: fput: standardized sockets and directories (20min) All the sockets & server & browser interface are Highest Priority for CoSy of which I am astoundingly ignorant . TLS ? | 0821 | Bill Ragsdale: A Two-dimensional Data Strucure for Forth (45min) Based on Julian Noble's work ` ./CoSy/sort.f | algorithm by Helmar Wodke . Problem : not order preserving BigNums Complex | 0902 | Bob Armstrong: CoSy Becomes usable by Ordinary People (25min) | ---------------------------------------------------------------------- | CoSy Becomes usable by Ordinary People (25) - Bob Armstrong o CoSy is a vocabulary and interface which evolves from http://Kx.com K in open Forth . Thus it provides the expressive power of the former in the simple syntax and unmatched flexibility of the latter in a timestamped notebook/log environment . o A YouTube , see http://cosy.com/y21/Wed.Mar,20210310.html#4th.CoSy , on the Apollo 11 lunar lander computer & its design principles , particularly the crucial simple brilliance : Restart on Failure , has with a small change in the CoSy DOS BAT , changed what required a tek nerdy visit to DOS into a mere hiccup . o A quick demo of the use of CoSy for everything from accounting to mail list management will be given . o CoSy is out to change the interface between the user & their computing assistants from the walled kindergartens of icons & menus to simple yet deep language . | ---------------------------------------------------------------------- | | F1 http://www.cosy.com/CoSy/ConicAllConnect/ http://cosy.com/y18/EuroForhAbort.html InteLligent note paper WRITTEN in ITSELF Klaus Schleisiek: " Linguistic aspect of Forth " TUI rather than GUI WhiteSpace is Prime Delimiter ` ` :?? | versus ' | Returns next word as string as opposed to xt EVOLVING `( iVERSON wHITNEY mOORE )` | ADDS PLURALS | `( Type # Ref# )` | CoSy Object Header R0 R0 ' Eval 'R | Type 0 is list of lists ie: lists of pointers . `( NOUNS VERBS ADVERBS )` | MOST ADVERBS ARE ` ITERATORS looping over either 1 or a pair of lists `( 'm 'd 'L 'R ./ .\ )` | monadic diadic eachLeft eachRight across scan | modulo indexing | | Lot of finding , slicing & dicing vocabulary | (' ` NickNelson s" Useful for other people " ') | ORDINARY PEOPLE , eg: CEOs , Investors , Mom&Pop's | | Who have never heard of GitHub , just want a box which works | ACCOUNTING | ` C:/CoSyBob/BobA.csy F>/\ ` text v@ lfVM ` (' con -5 _take >t0> t0 ' Eval 'm >t1> t1 flip >t2> t2 fmttbl| | ------------------- | Apollo 11 Simple Brilliance | RESTART ON FAILURE | ` \4thCoSy\CoSy\CoSy.csy startJob CoSyLl http://cosy.com/y21/CoSyBox.jpg $20k | ------------------- | LICENSE CoSy HIGHEST LEVEL VOCABULARY for YOUR FORTH . | ---------------------------------------------------------------------- | | 1122 | Session 5 on air Peter Knaggs: Using Test Driven Development to build a new Forth interpreter (30min) | 1147 | Bernd Paysan: net2o update (45min) ` C:/4thCoSy/CoSy/WorkLog.csy202109100841.csy F>/\ ` script0 v@ | ======================== | Sun.Sep,20210912 | ======================== | 08:00 Session 6 on air | 0805 | Krishna Myneni: Simulation of Einstein-Podolsky-Rosen (EPR) Experiment in Forth (45min) https://comp.lang.forth.narkive.com/p1lT9TGT/epr-experiment-simulator-in-forth https://groups.google.com/g/comp.lang.forth/c/-2VrLGAb_Mg Any ` scalar verb easily ` CoSyfied , ie: made list . Combinatoric application of verbs to compinatoric sets of nouns | DNH | Andrii Pylypets: new to Forth (45min) | 0901 | lightening talks Brad Rodriguez | 0919 | | 1003 | Philip Zembrod | DomainSpecificLanguage | Klaus : Forth no straight jacket The Domain of CoSy is Math on Finite Sets . Howard Oakford | 1034 | | ########################################################################## | | ########################################################################## | SV-FIG | ======================== | Sat.Sep,20210925 | ======================== | http://CoSy.com https://www.youtube.com/watch?v=8Iq2NDVK0KI | -------------------------------------| CoSy Becomes Usable by Ordinary People | -------------------------------------| https://www.meetup.com/SV-FIG/events/280551814/ | ---------------------------------------------------------------------- | | 1026 | Padded Concrete Kindergartens | 1035 | Bill Ragsdale : CoSy adds first cell as which ` genericises all those type specific vocabulary Actually " living in " a ` dictionary list , ' R , specifically , `( R text )` . ' R is what gets ` flatened into a string and stored as a ` .csy file each F6 | 1108 | Ting : Forth Virtual Machine -- Exactly ! | But directly in Chip language | 1128 | Sam Falvo : subroutine-threading on the 65816 | 1143 | | ---------------------------------------------------------------------- | | 1203 | Apollo 11 simple brilliances : http://cosy.com/y21/Wed.Mar,20210310.html#4th.CoSy http://cosy.com/y21/ApolloDesignPrinciple1.jpg http://cosy.com/y21/ApolloDesignPrinciple3_Restart.jpg THE MOST ` POWERFUL ` FLEXIBLE LANGUAGE Not a Toy Not Nostalgia CoSy is an Open Vocabulary in Forth implementing reference counted Lists of Lists -- dynamic general array structures -- In a timestamped INTELLIGENT NOTE PAPER log On the Forth/hardware end , youall rule . And CoSy is open Forth all the way But evolving from APL > K , the HIGHEST LEVEL languages , vastly more flexible being in open Forth . LeapFrog Mass Market Languages like Python Trivial to write a Forth in the `( APL , K , CoSy )` level Forth level matrix concepts 70 years and a number of geniuses behind APL , K ` C:/4thCoSy/CoSy/math.f F> | Eval | various rand & math fns . http://cosy.com/4thCoSy/Code/CoSy/math.f : Im ( n -- n*n_IdentMat ) 1. 0. 2_f --abca rep take cL swap 2 _take take ; 4 _i Im |\/| The concept which makes it possible to map , eg: a differential to every |\/| voxel in a planetary model , in a single line . |\/| Atomic Apply operators . Apply verb to simple leafs of noun |\/| ` aaplym :?? | -- The Market I'm most in is the market which sucked me down to Manhattan . People whose nouns ( data ) have currency symbols associated . Direct personal support for Owners , Investors , high net worth individuals in their personal use of CoSy for dealing with their Everyday Business of Life . eg: Not just Don Golding in his creation of Forth systems controlling hardware , but those making decisions controlling the $$ flows . https://redwirespace.com/about/leadership/ The ` Vision Programming -- Melding Iverson & Whitney & Moore -- is largely complete . Future evolution only now opened up . My focus must be at the ` Business level -- clients on one side -- development programmers on the other . Needs expertise in standard systems : sockets webbrowser interface server . But also w/i CoSy Forth itself . Enormous number of enhancements & polishing w/i one sentence . Only most talented programmers useful . CoSy must be able to match SV $$ pay . Contact me if you see yourself fitting into this ecosystem in any relationship from the business client , to the teky project . General rule for pricing & all else : Peer to Peer . | 1223 | KA : Oct : 5 point intro | 1237 | | -- eg: hover on word > info bubble on word | ########################################################################## | | ======================== | Sun.Oct,20211017 | ======================== | Presentation to KK UCCS http://cosy.com/Science/WaterWorldCoSyLIFEeq1024.jpg John Christy : 0th Law of Sustainability If it's not ECONOMICALLY Sustainable , it's NOT Sustainable https://www.uah.edu/science/departments/atmospheric-science/faculty-staff/dr-john-christy http://cosy.com/Science/EssentialComposite.jpg James Taylor intro to Naomi Seibt | Sunday Breakfast | https://youtu.be/b50YOVITlLY?t=3137 Naomi Seipt | https://naomiseibt.com/ | HISTORIC ! https://youtu.be/b50YOVITlLY?t=3433 s" *** I REALLY NEED GO NO FURTHER " .. # 4 _i +i take *** I REALLY NEED GO NO FURTHER *** http://cosy.com/#PlanetaryPhysics | -- From recent em> Re: Best wishes for the conference : A recent email w Dr Happer , tho , may be worth mentioning . To paraphrase : The gray body temperature around our orbit is ~ 278.6 +- 2.3 from perihelion in January to aphelion in July . If anything is detectable in mean global temperature data , this ~ 4.6 degree peak to peak variation whose phase is known should be very clearly visible , if anything is , in annual data averaged over a number of years . Yet I have never seen a paper or discussion of this most basic effect , much larger than the total variation this debacle is about . | -- Heartland Inst . https://climateataglance.com/ https://climaterealism.com/ https://www.facebook.com/watch/FightForClimateRealism/ Friday Dinner Keynote . Fredrick Seitz award > David Legates https://youtu.be/iDanVgrRnJw?t=5358 Interesting observations on WDC experience during Trump Panel 2: Ken Haapala, David Legates, Ph.D., Howard Hayden, Ph.D., and Tom Sheahen will discuss the scientific method, and how the United Nations’ reports repeatedly violate it. https://co2coalition.org/ Will Happer , Princton Physics . https://youtu.be/w8bo2jhgEmQ?t=2009 http://cosy.com/Science/y21/Heartland_WillHapper_IgnobleLie.jpg Russian Pushkin quote : All you need is a trough & there will be pigs Patrick Moore dinner Keynote https://youtu.be/w8bo2jhgEmQ?t=19940 http://cosy.com/Science/y21/Heartland_PatrickMoore_wastePower.jpg Heartland Chairman Joseph Morris wrap up | Excellent ! https://youtu.be/w8bo2jhgEmQ?t=23685 Dr Art Robinson | Oregon Senate http://cosy.com/Science/CO2-pineGrowth100120.jpg https://youtu.be/b50YOVITlLY?t=2957 Lehr graphs Various links brought up to understand notions mentoned : Brayton cycle | mentioned as cycle for use in He nukes . gauss markov https://en.wikipedia.org/wiki/Gauss%E2%80%93Markov_theorem https://en.wikipedia.org/wiki/Generalized_least_squares#Feasible_generalized_least_squares pressure energy equivalence https://sites.science.oregonstate.edu/~hetheriw/energy/topics/doc/basics/basic_definitions.pdf https://www.facebook.com/Bob.Armstrong.CoSy/posts/10159997049906617 | Sun.Oct,20211017 | == Panel 5: breakout session on how science is being abused in service of the Great Reset of capitalism. H. Sterling Burnett, Ph.D. | believing impossible thinks | 1027 | Steve Milloy | Suit against EPA for firing all outside advisors | 1100 | ( Gave a great rant at XOM annual meeting . ) Marc Morano | ! WAKE UP ! | 1113 | Comment on Kudlow which resonates w me | 1137 | Panel 6: Neil Frank, Ph.D., Stanley Goldenberg, and James Taylor are featured in this breakout session focusing on the affect climate change is having on hurricane strength and frequency, as well as other extreme events such as tornadoes, wildfires, floods, and droughts. ` AlGoreWarming is Goldenberg's term at ICCC9 | 1207 | `( Type # Ref# )` DMP | ########################################################################## | | ======================== | Sat.Oct,20211023 | ======================== | SV-FIG Intro to CoSy presented in CoSy | 1230 | WHEN YOU ARE THINKING OF USING PYTHON or other Mass Market Language THINK OF TRYING CoSy INSTEAD IT IS OPEN FORTH AND MORE ` POWERFUL And you will be helping develop an openly Forth environment for Ordinary People http://cosy.com/y21/Thu.Oct,20211021.html#4th.CoSy Answers : Q0 : Download & start /\ ` \4thCoSy\CoSy\CoSy.csy startJob Q1 | How do I save all my Notes and Environment ? . Control s . F6 saves environment before executing line . . F11 inserts a timestamp and saves environment . These make a *.bk copy of the previous save before executing . . saveTSclone | near the top of ` state Saves Timestamped clone These save the ` Root dictionary ` R as a ` .csy file . Q2 | What am I looking at ? The standard Job environment has 3 windows `( res text state )` http://cosy.com/CoSy/y21/CoSyJob_annotated.jpg Q3 | What does the CoSy vocabulary build upon Forth ? http://cosy.com/y21/Wed.Mar,20210310.html#4th.CoSy http://cosy.com/y21/ApolloDesignPrinciple1.jpg Reference Counted Lists with a 3 cell header . `( Type # Ref# )` ` Ref# | is mainly internal manages dynamic ` Type | allows ` generic verbs to know their meaning wrt arguments ` # | is count , like in a counted string . Type 0 is general list : list of pointers . hex `( Type0 TypeC TypeI TypeFl TypeS TypeV TypeA TypeFv )` .. ' See 'm ,L flip decimal A dictionary is a list of 2 correlated lists `( names values )` The entire environment is in a ` Root dictionary ` R R `( Type # Ref# )` >t0> ' Eval 'R >t1> t0 t1 ,L fmttbl| R 0 _at >t0> | names of items in Root R 1 _at #' >t1> | t0 t1 ,L fmttbl| Q4 | Important Vocabulary ? Rich APL > K evolved vocabulary http://cosy.com/K/html/kref.pdf s" " Words # 2 quite important words ` | returns the next word as a string . Like s" word" ' | returns the ` xt , the address of next word | ' is what makes it relatively simple to implement APL ` operators aka ` adverbs , eg: Iterators ` atomic verbs apply between each item of arguments i( 1 2 3 )i i( 10 20 30 )i +i Iterators factor out looping by using # and Type to know know apropriate algorithm to apply `( 'm 'd 'L 'R ./ .\ ': f? )` ' :?? 'm These ` adverbs take 1 or 2 ` nouns and a ` verb and apply the verb over each item in the noun(s) : dotProduct *f ' +f ./ ; f( 2 )f f( 10 20 30 )f *f ' +f ./ | dotProduct Indexing is modulo . Generally shorter list is cycled thru to match longer Main ` help words `( ?? :?? Help See )` ' :?? 'm ` dup See Large vocabulary of slicing , dicing & finding words . eg: ` csv>lst :?? | *** Accounting *** | is of special importance | | All accounting for CoSy the enterprise will be in CoSy the language (' 20211111.0000 _f ` PSBT ` BH 104.56 _f s" auto " ') (' 20211111.0000 _f ` PSBT ` IREA f( 210.61 51.58 )f s" now CORE but leaving name change to eoy . acnts : 95555787 95555792 | 1203 84 kWh " ') Q5 | What's the future ? Creating a cash flowing ecosystem . Clients who need to do in minutes was may take hour in raw Forth or do in days what what would take weeks . either prototyping or finished system . . Complex , multidimensional math . eg: voxel model of planet . . The most Highly Talented Programmers to polish CoSy , support Clients , evolve CoSy . REPLACING IUP GUI WITH SOCKETS >< WEB BROWER SERVER INTERFACE . Extracting portions of vocabulary to implement dynamic objects in minimal Forths . | | ---------------------------------------------------------------------- | | 1055 | Bill Ragsdale . built card strip readers | F-83 was my first Forth . Win32Forth , heap management ? | object vocabulary ? : calls windows allocate & free | 1139 | Ting : Java Bytecode , clean | 1217 | Rochester Forth conferences | ########################################################################## | | ======================== | Sat.Nov,20211120 | ======================== | Forth Day | | 1256 | POTENTIAL OF 4th.CoSy FOR BigData http://cosy.com/y21/Sun.Nov,20211114.html#4th.CoSy https://www.meetup.com/SV-FIG/events/281109563/ 11:55 | Potential of 4th.CoSy for BigData --- Bob Armstrong CoSy is an APL/K level computational daytimer/notekeeping environment in open to to chip Forth. | max dP%dt APL and K find their markets in complex global financial Big Data. CoSy provides a path for Forth to address those markets . | 12:15 FB FORTH PROGRAMMING LANGUAGE 21st CENTURY https://www.facebook.com/groups/PROGRAMMINGFORTH/posts/2790866607880022/?comment_id=2791634804469869 Anders Koburg commented : More and more tasks like big data handling (eg archived signal analysis) appear even in the embedded world. Forth has no answer to this. Either some Forther(s) reinvent Forth, or it will shrink to about non-existance within its niche. MY PATH : PDP-8I Lab Computer -- like an Arduino | Visual Random Dot patterns http://cosy.com/y21/Blog60days.html#20211113 You can learn Arduino in 15 minutes. https://www.youtube.com/watch?v=nL34zDTPkcs Learned multi-dimensional MATH w APL to play w it til GROKED HOW TO DO YOU THINK ABOUT THE TRANSFORMATIONS OF THE PATTERNS OF ACTIVITY ON 250,000 OPTIC FIBERS % EYE ? My interest : ASSOCIATIVE MEMORY IPSA | XEROX https://www.dyalog.com/blog/2021/07/thank-you-ian-sharp/ FORTH | IF YOU CAN DO IT WELL FOR ONE YOU CAN DO IT WELL FOR MANY SIMPLEST SYNTAX . DEFINE VOCABULARIES , NOT ` PROGRAMS UNIQUE RECOGNITION THAT LANGUAGE IS A HIERARCHY , NOT HORIZON APL>K | PLURAL BY DEFAULT BY DESIGN https://kx.com/ 1010DATA TRILLION ROW SPREADSHEET® https://1010data.com/media/1955/1010data_datasheet_adhoc-analysis-with-trs_28apr17.pdf A ` secret source of APL/K's speed : ` COLUMNAR ( inverted ) STORAGE rShow ` C:/4thCoSy/CoSy/ />\ Dir lfVM >t0> t0 5 _cut -3 _cut ` ncon ' drb 'm >t1> t1 ' blVM 'm >t2> | #' nub t2 { 3 _take } 'm t2 { 3 _cut blMV } 'm { cL enc } 'd >t0> t0 s" | " ' MV 'L t0 flip | fmttbl| res> rUpdate CoSy | Personal Interest ? : BUSINESS COCKPIT Unified ` Browser email , messaging , etc interface & archive My OWN Data dP%dt ENVIRONMENT COMMANDED BY THE LANGUAGE IT IS BUILT IN IMPORTANT HOBBY : http://cosy.com/#PlanetaryPhysics Seeking an executable understanding of the differential in a voxel because mapping it over a sphere is rather trivial in an APL like CoSy HOW | SIMPLE STRUCTURE | ONLY ` OBJECT IS ` LIST http://www.cosy.com/CoSy/ 3 CELL HEADER : `( Type # Ref# )` ` Type | allows ` generic verbs choosing apropriate algo | Type 0 is list of lists , ie : 1 cell pointers ` # | ` COUNT . How many items in list . | Indexing is MODULO . Allows wrapping & negative indexing ` Ref# | Generally internal . Permits ` automatic allocation | & freeing of objects . | W/O Dynamic Objects simply not at ` User level . | -------------------------------------------------------------------------- | IF YOU HAVE A PROJECT WHERE THIS ABILITY TO DO IN A LINE WHAT MAY TAKE A PAGE OR MORE IN RAW FORTH , IF YOU WANT TO ADD A VOCABULARY TO YOUR FORTH TO ALLOW IT TO COMPETE AT THE HIGHEST LEVEL , LET'S MAKE BUSINESS . LET'S CREATE THE FORTH ALTERNATIVE TO C BASED HIGH LEVEL LANGUAGE | -------------------------- | VISION : Everybody their own programmer . Like telephones and elevators . PATH FROM CONCEPTUAL ARRAYS TO SILICON ARRAYS OPENS THE ` MACHINE LEVEL LANGUAGE/STRUCTURE TO EVOLVE THE CODE IS THE THEORY Bob@CoSy.com -- 719.337.2733 | -------------------------------------------------------------------------- | Ting : We all need a Forth for modern Browsers | 1044 | Minimalism & Fresh Ideas is why I chose Reva instead of Win32Forth | 1046 | Be great & powerful to see CoSy in ESP32forth | 1048 | https://esp32forth.appspot.com/ESP32forth.html | 1051 | Brad Nelson Back in NYC Wall St bum days saw company doing 3D printed sand casts | 1055 | Rectangular to Triangular translation algol ? | 1057 | G-code interface to printer Over all grade : WOW | 1110 | flagxor. Don Golding : Forth is the RISC | 1218 | System Verilog | CORE I | Greg Bailey . RayBan Stories | 1419 | | ########################################################################## | British APL Association webinar | ======================== | Thu.Dec,20211202 | ======================== | i( 1920 12 17 )i ' *i ./ |>| 391680 RayCannon : combat ants | 0916 | Discussion of ` universal ` APL logo Connor Hoekstra : Mission Statement Me Chat : My LoGo will always be http://cosy.com/cosylogo.htm , with various colors , generically : #FF00FF Adám : Somewhere in the Mandelbrot set is the perfect APL logo | 1020 | Can that be disproved ? | ########################################################################## | https://www.meetup.com/SV-FIG/events/282582669/ | ======================== | Sat.Dec,20211218 | ======================== | 1030 | SV-FIG | | 1142 |* Forth vs `( C Java )` NOT `( Javascript Python )` MUCH LESS CoSy But CoSy is just an open vocabulary in Forth Definitions on the scale of ` words , not ` programs http://cosy.com/y21/Sun.Dec,20211212.html#4th.CoSy https://en.wikipedia.org/wiki/APL_(programming_language) https://en.wikipedia.org/wiki/K_%28programming_language%29 | ======================== | Bill Ragsdale's ` Factorial challenge | important for finite stats http://cosy.com/y21/Blog60days.html#20211211 | | 1 thru n | xt of int * | across | : !* iota 1+i ' *i ./ ; 6 _i !* 20 _iota 1+i .. ' !* 'm ,L fmttbl| 100 _iota 1+i i>f ' f* scanf ` scan ?? Rationals | 2 Big Num libs included w Reva http://cosy.com/4thCoSy/Code/lib/math/ http://cosy.com/4thCoSy/Code/lib/math/apnea http://cosy.com/4thCoSy/Code/lib/math/big ` / Help `( * */ + - /mod 1+ 1- 2* 2/ << >> mod )` ' Help 'm `( * */ + - /mod 1+ 1- 2* 2/ << >> mod )` ' :?? 'm | $40 INTRO | MAIN GOAL GETTING DOWNLOADED & RUNNING | | BECAUSE ONCE UP IN CoSy ALL HELP IS AVAILABLE | | $10 refund per line of useful code | ======================== | Ting | 1055 | Java Byte code | ====================================================================== | 1500 | CoSy https://cosy.com/ text> ` C:/CoSyWeb/y21/Presentations.txt >F http://cosy.com/y21/Presentations.txt | ======================== | Bob Armstrong is inviting you to a scheduled Zoom meeting. Topic: Bob Armstrong's Zoom Meeting Time: Dec 18, 2021 03:00 PM Mountain Time (US and Canada) Join Zoom Meeting https://us02web.zoom.us/j/6641053452?pwd=b3hjenJrNmVsODF3cWZkaUJNNXhxQT09 Meeting ID: 664 105 3452 Passcode: CoSy | ########################################################################## | | ======================== | Sat.Feb,20220226 | ======================== | SV-FIG VD Demo | http://cosy.com/y22/Sun.Feb,20220213.html http://cosy.com/4thCoSy/Code/CoSy/Graphics/ https://www.w3schools.com/graphics/svg_polyline.asp See WorkLog Fri.Feb,20220211 file:///C:/CoSyBob/acnts/y20/tstsvg.html | ====================================================================== | | 1035 | SwiftX Demo --- Leon Wagner, FORTH, Inc. https://github.com/tabemann/zeptoforth | 1115 | multi tasking vocab https://www.perforce.com/ | 1138 | Sam | ======================== | Tue.Mar,20220322 | ======================== | | 0921 | 0930 | 21. 11.5 f- _f |>| 9.5000 | [Functional Conf 2022] - Speaker Get together https://us06web.zoom.us/j/84551453143?pwd=bmZrWDd1RTMrQ0hpLzlmZzFsUEpuQT09 Brooklyn Zelenka : Table programming | ======================== | Thu.Mar,20220324 | ======================== | Thu, 24th - Sat, 26th Mar 2022 Kolkata India Zoom | 0731 | https://www.functionalconf.com https://confengine.com/conferences/functional-conf-2022/speaker CoSy APL ala K in open to the chip Forth Melding IVERSON & MOORE To Artificially Aid MY Intelligence One can truly control one's intelligent assistants thru language § MOTIVATION : PERSONAL COMPUTATIONAL LOG FOR EVERYDAY BUSINESS OF LIFE Computer Aided Individual Thus the interface is integral to productivity For ` Ordinary People | have never heard of ` Github http://cosy.com/4thCoSy/Code/ CoSy is Far more ` Powerful § THE CODE IS THE THEORY § APL & Forth Shared Attributes They take SIMPLICITY to the EXTREME At the top level , they are INTERPRETED . They are INTERACTIVE | Workspace They are languages for creating vocabulary working together in SENTENCES rather than ` Programs § http://www.cosy.com/y21/ApolloDesignPrinciple1.jpg http://www.cosy.com/y21/ApolloDesignPrinciple3_Restart.jpg APL works on entire collections , ordered sets . Combinatoric application of `( Functions verbs )` to `( Data nouns )` Factors ` loops into `( Operators adverbs )` " IN APL IF YOU CAN THINK IT IT'S DONE " | Randy MacDonald I don't like to have to think Twice Arthur Whitney Simplified APL Arrays to LIST of LISTS | ala Backus and MADE STRUCTURE MORE TRANSPARENT dot : { +/ x * y } | classical Dot product in K § FORTH MINIMAL VOCABULARY TO CREATE A DICTIONARY CAPABLE OF EXTENDING ITSELF can create language in the language of the chip word by word to interface w other languages Ultimate flexiblility : RPN ReadIt DoIt syntax , but can make word look ahead in input Can construct any vocab & syntax you can conceive eg: those presented here . A language to build on alt to `( C Java Rust? lua? )` https://cosy.com/CoSy/y22/Simple.jpg ` \4thCoSy\CoSy\CoSy.csy startJob 1 2 - . | Pure chip level Forth ( Execute w sF6 ) 1 .s 2 .s - .s . .s `( Type Count ReferenceCount )` | 3 cell CoSy List Header Type 0 is list of lists : list of addresses of lists . 1 _i 1 _i DMP 1 2 - _i : minus2 2 - _i ; 1 minus2 DMP 10 _i iota i( 1 -1 )i *i | modulo indexing rather than scalar extension ` adsf;lk ` vs ' | ` qua vs Forth dictionary address : dot *f ' +f ./ ; | classical ` dot product . ` dot See 109 _iota i>f .. dot 10 _iota i>f .. reverse dot text> "bl =c +/ ` : Help `( : :: ; ;; [ ' '' (create) (header) ['] ] back compile create does> find find-dict findprev header )` R0 ' Help 'm | monadic each R #' R 0 _at R 1 _at #' ,L flip R ` text v@ vocabularies | big . Xwords | ' 1th 'm ,/ blVM # environment : `( res text state )` § ONLY JUST BEGUN Need Heads to make Language Community `( Pool EcoSystem )` and Business Particularly , replace IUP GUI w sockets>browser interface § Zoom next Saturday , Sat.Apr,20220402.0930-7 ( MDT ) bob@CoSy.com | RSVP | ====================================================================== | http://cosy.com/y20/blog.txt | Sun.Oct,20201004 Going Forth to Erlang by Manoj Govindan at #FnConf18 | https://youtu.be/RpsZ1Ka2HPQ | | ====================================================================== | | ======================== | Sat.Apr,20220423 | ======================== | SV-FIG https://www.functionalconf.com/ https://confengine.com/conferences/functional-conf-2022/proposal/16396/cosy-evolved-from-apl-via-k-in-open-forth text> lfVM ` Thu.Mar,20220324 cconn >t1> |>| 841 ` 830,1 textwdo @ setcaret `( Haskell Erlang/Elixir F# Clojure Dhall Scala OCaml Elm PureScript APL ... )` Forth is one -- tho little recognized . In fact one of the purest Totally disconnected from hardware Very ` Academic : Category Theory , ` functors ` Monads The Web Runs on These Languages § In CoSy : THE CODE IS THE THEORY § Yesterday I emailed Naresh Jain , main organizer of the conference : My presentation is now [ linked ] at CoSy.com/CoSy/#Videos . I felt it wasn't very good when I did it , but realized I was trying to cover a lot of ground outside the standard scope of Functional Languages . Finally looking at it , I think I did better than I had felt . It reinforced my feeling that CoSy ` brackets most standard languages , being evolved and simplified from APL at the ` human end , and open to the chip in Forth at the ` chip end . My talk was certainly was the only one which presented the assembler code of any definitions . I think many of the concepts of the various ` Functional languages I would look at as vocabularies one could add to CoSy since it provides dynamic reference counted lists at the very core level . I think one of the most interesting events was the table discussion following Jed Wesley-Smith's " Names are Overrated " talk . Chuck Moore's " white-space is the prime delimiter " ( actually my phrase ) is like removing a straight jacket from a table of symbols cast in lead by a central committee . Aaron Hsu | Dyalog APL | DSLs, Architecture, & Structural Design in APL, 3 ways 45 minutes on page filling APL scripts to parse & ` compile APL - the syntax has gotten than complex & entwined with semantics . https://confengine.com/user/arcfide https://youtu.be/fH4kxG5zR1Y In the chat , I commented ( channeling the IBM 1620 CADET ) : CoSy Doesn't Even Try and simple RPN is what makes CoSy more Far more flexible w/o loss of ` Power Open vocabual down to the Chip rather than ` compiling . | ======================== || ======================== | Comparison w Factor : " A Practical Stack Language " CoSy : Far More Practical https://youtu.be/OLh61q4c4XE A couple of code comparisons : ` racecar .. reverse ,L : palendrome? .. reverse == ; | Virtually identical ` racecar palendrome? { .. reverse == } _i >t0 ` racecar t0 >_ xeq XML : http://www.cosy.com/CoSy/y22/SVFIG_vs_Factor_XML.html `( three blind mice )` `(
    • )` ' braket 'L `( )` braket R0 lfMV ` braket :?? CoSy is tiny compared to Factor . CoSy totally Forth ( & assembler ) http://www.cosy.com/CoSy/y22/FactorCodeSize_SVFIG_YT.jpg `( sys scripts )` Dv@ >t0> | need to delete all ` "cr bcz some files us DOS "nl & some don't t0 { drb F> "cr ssd lfVM ' dlb 'm dae # } 'm >t1> t0 t1 ,L fmttbl| t1 ,/ +/ |>| 8793 | all non-empty lines | all non total comment lines : t0 { F> "cr ssd lfVM ' dlb 'm dae ` | nin # } 'm >t1> ,/ +/ |>| 7671 | ======================== | Actual needed to make more purely high-level ` concatinative : o StateSmart words to make line directly ` quotable from interactive eg: ' vs ['] | done in CoSy o Separation of names from definitions ie | ` name { ... } >< | rather than | : name ... ; o Recursive quotations | { ... { ... } .. } o Generic words at top level . This is done with a few words already eg | +/ | but really only a matter of fleshing out ` coercion matrices CoSy at this point has chosen not to close off the raw Forth level . o Integrate definitions ( currently raw Forth ) into ` Dictionaries | ======================== | I'd like to see a talk on ` PostScript | ======================== || ======================== | Wordle Challenge http://www.cosy.com/CoSy/y22/[svfig]April_Challenge_sampleWordleFreqs.html http://www.cosy.com/CoSy/y22/[svfig]April_Challenge_FullWordleWordFreqs.html | ======================== | Zoom @ 1500 MDT ( UTC - 6 ) Time: Apr 23, 2022 03:00 PM Mountain Time (US and Canada) https://us05web.zoom.us/j/85608719089?pwd=b2RLRW91V1E0ZlFMeWE1RjBPY01vUT09 Meeting ID: 856 0871 9089 Passcode: CoSyFuture | 1208 | | ======================== | Sat.Apr,20230422 | ======================== | | 0850 | | 1015 | | 1032 | Creole Forth for Python in a Jupyter Notebook --- Joseph O'Connor https://notebook.community/hcchengithub/project-k/Play%20with%20the%20FORTH%20kernel%20on%20jupyter%20notebook ` C:/4thCoSy/CoSy/math.f F> | rUpdate | Eval | various rand & math fns . rShow rCloseWdo Lazarus GUI Elevator Simulation Challenge --- Bill Ragsdale https://elevation.fandom.com/wiki/Unlucky_floor_numbers_in_elevators | 1139 | https://www.amazon.com/McGraw-Hill-personal-computer-programming-encyclopedia/dp/0070053898 | ======================== | Martin Gardner Bridgit | Sci Amer Math Games ~ 1960 | http://www.papg.com/show?1TPI https://www.cosy.com/CoSy/y23/BitoCoSyCode0418.html i1 10 _take R0 ' +i .\ R0 ' +i .\ ` .\ :?? ( ./CoSy/CoSy.f | ` scan , integral , for ` CoSy level fns . like running ` ./ | 20230414 20230416 : .\ ( RA fn -- r ) >aux 1p> dup i# $ Type@ VecInit >Lpstk R@ dsc lpstk@ 0 _at! lpstk@ i# 1 do lpstk@ i 1- _at R@ i _at aux@ execute lpstk@ i _at! loop auxdrop Lpstk> 1P> ; ) `f 1 10000 _take ' +f .\ | instantanious Heartland | K12 planetary physics ciriculum res> upper HEARTLAND | K12 PLANETARY PHYSICS CIRICULUM | 1159 | https://www.pcmag.com/news/google-bard-can-now-help-you-write-code-in-over-20-programming-languages | ======================== | Sat.May,20230527 | ======================== | | 1126 | R `( Type # Ref# )` ' Eval 'R ` sdfg `( Type # Ref# )` ' Eval 'R R `( sys )` v@ | ======================== | Sun.Aug,20230820 | ======================== | | 1032 | | 1154 |* Intelligent Paper . Possible in Forth but not in C IF YOU ARE GOOD AT NUMBERCRUNCHING NO MATTER YOUR `DRUTHERS THE MOST VALUABLE TO CRUNCH ARE ONES WITH CURRENCY SYMBOLS ATTACHED > ENTERPRIZES ARE ACCOUNTING STRUCTURES WITH PEOPLE ATTACHED < BOARD ROOM SYSTEMS https://www.cosy.com/BobA/vita.htm APL level tasks : Xerox , RGE , Manhattan APL+PC.CoSy , MEJA Trust o So far have avoided renaming Forth words | exception | alias: $ swap | Thu.Aug,20230824 BAA Zoom comparison w https://dyalog.com APL showed how much simpler w equivalent ` power but more immediate transparent documentation 4th.CoSy is THERE'S NO QUESTION WHETHER YOU CAN OR CAN'T DO SOMETHING It's all open code so you can always roll your own | ================================================== | | ACOUNTING USEFUL VOCABULARY & METHODS | | DAILY INLINE LOG LEDGER ENTRIES ` C:\CoSyBob\BobA.csy F>/\ ` text v@ s" | Sun.Jan,20230101 | " prt>=f rShow R0 ` .\CoSy\AcntFns.f F> `( rUpdate Eval )` 1 _at Eval : ledgerlns lfVM s" (' " con ['] dlb 'm s" (' " in { s" ')" prt<=l } 'm ; t0 ' Eval 'm >t0> fmt rUpdate t0 flip >t0> fmt rUpdate t0 fmttbl| rUpdate t0 3 _at ' +/ 'm ,/ +\ enc' enc t0 $ cL fmttbl| rUpdate | append running balance | CONVERSION OF ACCOUNT .CSV DOWNLOADS ` C:\CoSyBob\acnts\y23\BobA\Chase4301ytd.CSV F> >t0> t0 rUpdate t0 "lf ` , ,L csv>DT >t1> t1 # t1 #' t1 dsc t1 1 _at t1 fmtDT rUpdate t1 dsc { "bl ssd } 'm enc t1 0 _at! t1 dsc | t1 dsc blMV |>| TransactionDate PostDate Description Category Type Amount Memo t1 `( TransactionDate Description Amount Memo Category Type PostDate )` dsel >t1> t1 1th ' reverse 'm enc t1 1 _at! t1 DT>lst flip fmttbl| rUpdate t1 >T0> T0 fmtDT rUpdate T0 1th >t1> t1 fmttbl| rUpdate t1 dsc ' m/d/y>ts 'm enc t1 0 _at! t1 2 _at ' str>f 'm enc t1 2 _at! | ` C:/CoSyBob/acnts/y22/BobA/AmazonChase.cdt F>/\ 1th flip -1 _at 3 _at |>| -43.21 (' 20230101 _i s" Opening Balance " -43.21 _f -43.21 _f ec ec ec ') R0 enc T0 1th flip cL flip >t1> fmttbl| | ( tbl (' DataCol ResCol ') -- insert running total of DataCol in ResCol ) | 20230705 | from ` acnts work : tblbal 2p> dsc at ,/ +\ enc' enc L@ R@ 1th at! 2P ; t1 i( 2 3 )i tblbal t1 fmttbl| rUpdate t1 enc T0 1 _at! ` Balance enc T0 dsc 3 _at! `( date description amount balance )` T0 dsc 4 _iota at! T0 fmtDT rUpdate | T0 ` C:/CoSyBob/acnts/y23/BobA/AmazonChase.cdt \/>F ` C:/CoSyBob/acnts/y23/BobA/AmazonChase.cdt F>/\ fmtDT rUpdate *| 1218 | | ======================== | Sat.Oct,20231028 | ======================== | https://www.meetup.com/sv-fig/events/296504119/ | 1030 | What I'm Currently Working On --- Samuel Falvo II 'A quick jaunt through Shoehorn and the project I'm using it on. A recap/status of ForthBox:20AE project.” Doug Hammed : how does programming influence your ` outside life | 1113 | | Date to DOW --- Bill Ragsdale "A gift from my deceased mother. How to find the day for any date." ` ./lib/date/calendar F> | rUpdate ` isleap? :?? 00000000 _i Dayln =+ | 1138 | Halloween Haikus --- Brad Nelson I'll give an interactive tutorial in building Halloween themed Forth Haikus. https://forthsalon.appspot.com/ ` C:/4thCoSy/CoSy/math.f F> : dot *f ' +f ./ ; ` dot See f( 1 2 3 )f 2. _f dot f( 1 2 3 )f .+ dot =+ | 1228 | CORE I Update ---Don Golding Don won't be available, but he promised to send an update to be read into the record. | ---------------------------------------------------------------------- | | 1230 | Making a pitch for Chuck https://amturing.acm.org/call_for_nominations.cfm | ---------------------------------------------------------------------- | | 1234 | “The discussion of my last talk on accounting vocabulary in CoSy mainly centered on how do you learn or teach a unique vocabulary with concepts outside the main stream . Both Forth and APL face this issue . I'll offer to show the vocabulary and tools in CoSy to aid in its learning...” PEOPLE PAY GOOD MONEY TO LEARN HARD VOCABULARIES https://www.cosy.com/CoSy/y23/SV-FIG_20230826_commentary.html WHOLE LITERATURES TEACHING INDIVIDUAL LANGUAGES NOT TRIVIAL | LANGUAGE FOR THE REST OF YOUR LIFE PROGRAMMING JUST PART OF LIFE -- LIKE WRITING -- PROGRAMMING JUST ASKING THE MACHINE TO DO SOMETHING requires human scale vocabulary ` all Words Allwords # LOOK AT DEFINITIONS WHEN IN DOUBT can't do in other languages SIMPLICITY THRU GENERALITY https://www.cosy.com/CoSy/ Churchill | ======================== | HELP TOOLS LANGUAGE HORIZONS BAA DISCUSSION CoSy IS UNIQUE IN BEING ` COMMANDED IN THE SAME OPEN LANGUAGE IT WRITTEN IN ` C:/4thCoSy/CoSy/CoSy.csy startJob ` C:/4thCoSy/CoSy/CoSy.csy F>/\ ` text v@ rUpdate | -- F1 | THREE MAIN ` HELP WORDS ` :?? ?? | all occurances of a phrase in all scripts make CoSy ` :?? See | startles people from other languages that this is possible ec Help | legacy ` Reva Forth help . | > > > > > > > > > > | ASK A FRIEND | < < < < < < < < < < | | 1253 | | ================================================== | OPEN ENDED UNLIMITED FUTURE | ================================================== | `( Type Count ReferenceCount )` | 3 cell CoSy List Header | ########################################################################## | | ====================================================================== | | ########################################################################## | 10 _iota s" Hello World " | vs Python http://www.cosy.com/CoSy/#Videos FAR more complicated to go thru virus exception setting and downloading than actually using and learning CoSy Thus setting up turn on & tap the CoSy button Computing Box . http://cosy.com/y21/Wed.May,20210519.html#4th.CoSy Allows focus for an unlimited future | 1234 | | 20210521.2341 | | ========================================================================== | | ########################################################################## | ` SkriptThots -> | 20190913.1341 | 20190427.1154 | 20200508.1253 | Forth -- APL | CoSy opens up a new vista of language evolution | Factoring out looping itself into a few words taking functions to be looped over as arguments . MY IGNORANCE OF ANYTHING OTHER THAN APL>K FORTH CAN'T BE OVERESTIMATED OPEN FROM THE MATH TO THE CHIP | PRACTICAL | AMBIENT | IRRITATION DRIVEN DEVELOPEMENT if can't execute each line as you compose a verb , not competitive . Forth gains tremendous power by not doing things . REPL | IDE | nested ( recursive ) ' { ' } | clean quotations ~ ['] | Levels of consolidated vocabulary adicity ! control over TUI ! | Ting & Nelson HTTP interface . s" ./CoSy/Tui.f" F> | not Functional ! Work thru problems a thought at a time . text> | HelloPrize text> `( .r text )` Dv! `D@ .r dup setWdo showWdo TO REACH COMERCIAL PRODUCT : WEB APP ` ToDo -> s" > " 20 _take s" | " enc braket s" < " 20 _take s" | " enc braket cL | ---------------------------------------------------------------------- | | /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ | | ###################################################################### | |\/| |\/| |\/| |\/| |\/| |\/| |\/| |\/| |\/| |\/| |\/| |\/| |\/| |\/| |\/| |\/| | \/ | Line to make more calendar | \/ | Needs updating | 20210517 30 2_i Daylns | insert res in text using F5 | ###################################################################### |