Forth is the Only Truly Open
code .
CoSy is the only APL in Open to the chip Forth
For
anything from the
everyday business of life to modeling the planet |
The recent outright
censorship by the arrogant Bolshevik
Leninists
incapable of comprehending the USA Bill of Rights -- or
just willfully dishonest ,
further motivates an already brewing " business plan " :
Your Own Sovereign CoSy
Webspace
a personal secure directory , including website ,
programmable by you & the entire CoSy community in
CoSy
the language
The Collectivists Hate Trump because he is an Indomitable Individual
In their arrogance the quasi-monopoly SMs have contravened their own
raison d'etre , their fundamental business plan -- to be an open forum
. Instead , with power comes the global statist arrogance that they are
wiser and more moral than us , their clients .
They are wrong .
For myself , I know with
the certainty of physics
the falsehood of the global statist AlGoreWarming demonization of the
very molecular basis of life . Yet they in their determined arrogant
ignorance censor scientific discussion -- as they are now even doing
with the disputing of any aspect of the continually changing
Official State pronouncements on this year's COVID flu .
( | 159. 7.5e6 f/ _f |>| 0.0000212 | Total COVID deaths in HongKong )
The Democrats and their Enablers are the definition of Fascism
They are the
21st century face of Tyranny
FaceBook just put me in the corner for 24
hours for calling one of the determinedly ignorant posters on FB Climate Change Battle Royale , apparently a PhD in " Cognitive Science " at Stony Brook , a parrot with less reasoning ability than a cockatoo I used to have .
And they've even suspended Ron Paul .
Note that while suspending me , FB still solicits me to make an ad .
Wed.Jan,20210113.1123 , still
|
|
Free Markets
I deleted both my personal and CoherentSystems Twitter accounts
immediately on reading of Trump being banned . I am unwinding from
FaceBook .
The killing of Parler eliminates Amazon Web Services from any consideration for cloud service contracts . And should make it ineligible for any DoD contracts .
There are lots of alternatives to the dominant SMs flowering . The network effect moats around these enterprises turns out to be much shallower than they arrogantly assume .
They open wide the door for CoSy WebSpaces
CoSy
is a new paradigm , but melding and building on the simplicities of the
giants of programming language I have been privileged to know .
See the synopsis of the language on the CoSy front page . Beyond that , it's just an issue of vocabulary .
If you question the ` power , let us see your word
wrap verb . But that barely touches the flexibility of having the
language completely open from that APL level down to the x86 ( or whatever Forth it may be ported to ) assembler .
Consider that everything you see is created by 1 person , me , and that includes my mailing list management and my accounting .
Some of the most talented programmers on the planet are on this list .
As well as a number with very significant capital resources . I simply
leave it that this : this very attainable goal provides motivation for
a significant business flow .
#4th.CoSy
Now that several people have been making substantial progress getting into CoSy ( see MerryCoSyChristmas_email ) defusing & catching bombs has popped to the top of my irritation driven development
stack . Trying to lock up exception handling is driving me deeper into
understanding the Forth , eg: the actual layout of names and code ,
than I have been motivated to dig before . Getting the APL solid and
fleshed out and the environment useful for my everyday tasks has been
the priority . Even finally implementing something as simple
as understanding the setting of the caret position in text so
that it really reboots to where you left off is , I'm finding awfully
nice .
From the British APL Association Ken Iverson 100th Birthday commemerative Zoom :
 |
Word Wrapping
Posted in FORTH PROGRAMMING LANGUAGE 21st CENTURY :
This group is one of
those which make it hard to disengage from Zuck's FB despite his
arrogant censoring of important news and informed comment . Rant
over . [ deleted from FB post ]
Some days ago I mentioned that a useful challenge I'd like to see in
Forth is word wrapping . I saw a post that it is an issue for some
others too .
So , it's been sloshing in my mind and today an APL thought occurred
that the breaks need to be where the indices of the delimiters mod the
wrap length go negative .
So I've ended up making a word factored so it just takes the list of
delimiter locations and the ` line length wanted and it returns the cut
points .
t0 | no actual breaks , just wrapped by FB
“I don’t know if the reports are true, but The Washington Times has
just reported some pretty compelling evidence from a facial-recognition
company showing that some of the people who breached the Capitol today
were not Trump supporters. They were masquerading as Trump supporters.
And in fact, they were members of the violent terrorist group, Antifa,”
Gaetz told his colleagues.
: wrapidxs ( dlimidxs len -- wraps ) 2p> --aab
modi ' - _delta 0<i & at 2P> ;
The 2p> and 2P> handle the ref
counting
of the args . Inside you've got the mod , then the pairwise difference
, the bool of where goes negative , the conversion of the bool list to
indices of the 1s , and finally the selection of those points of the
original indices .
I left the choosing of blanks as the item delimiter outside . In any
case , here's the whole thing . ' 0cut obviously does the cutting .
t0 t0 "bl ss 30
_i wrapidxs 0cut
(
“I don’t know if the reports
are true, but The Washington
Times has just reported some
pretty compelling evidence from
a facial-recognition company
showing that some of the people
who breached the Capitol
today were not Trump supporters.
They were masquerading as Trump
supporters. And in fact, they
were members of the violent
terrorist group, Antifa,” Gaetz
told his colleagues.
)
I won't argue that the APL way of thinking is superior to the
sequential Forth ; they are complementary .
But I will contend that the APL level built in open hard Forth provides
a programming language environment of unmatched power and flexibility
-- truly 21st century . And CoSy
is just a vocabulary which can be implemented in any Forth .
Now , finally , because some others are seriously getting into it ,
waylaying and catching exceptions has become my highest priority . And
I am having to get an understanding of the innards of the underlying
Forth implementation as never before .
SV-FIG_Sat.Dec,20201219 |
Zooms now up at Forth Day 2020
-------- Forwarded Message --------
On 2020-12-21 11:18, David L Jaffe wrote:
Oops it’s: 5^2 + 12^2 = 13^2
i( 5 12 13 )i .. *i .. 2 _take
+/ ,L
(
25 144 169
169
)
BobA
From:
svfig <svfig-bounces@zork.net>
on behalf of Bob Armstrong <bob@cosy.com>
Sent: Sunday, December 20, 2020 10:49 PM
To: Silicon Valley Forth Interest Group <svfig@zork.net>
Subject: Re: [svfig] <NSF> ( But math
subtends all programing languages )
Yep . and its multiple which make sense in this
nonsense frame of reference . 😁
On 2020-12-20 23:43, David
L Jaffe wrote:
There is also 3^2 + 12^2 = 13^2
In
case you missed Dyalog's
Tweet
Well then , by this notation we it's really just the last for this
exceptional year .
i( 3 4 5 )i i( 1 2 3 4 )i '
*i 'R >t0>
(
3 4 5
6 8 10
9 12 15
12 16 20
15 20 25
18 24 30
)
or to turn them into actual dates ,
t0 i( 0 0 2000 )i ' +i 'L
>t0>
(
3 4 2005
6 8 2010
9 12 2015
12 16 2020
15 20 2025
18 24 2030
)
This begs the question , in the ` wrong meaning of the phrase
but the only one I can remember : are then an equal number of days
apart ?
This took hours . Because my def inion of _delta ,
generalized differentiation :
: _delta ( RA fn -- V
) | K ': . Applies fn between each
pair of RA
>aux 1p> i# 1- cellVecInit >lpstk
lpstk@ i# 0 ?do R@ i 1+ i@ R@ i i@ aux@ execute refs+> lpstk@
i i! loop
auxdrop lpstk> 1P> ;
was ancient and fatally not handling ref counts correctly . /\
that's good example of what my Forth level code looks like , literally
, today .
So now I can write
t0 { cL lst>stk_ daysdif
_i } _delta >t1>
(
-1951
-1951
-1953
-1951
-1951
)
And see we get a Pythag triple day every
t1 ,/ i>f
365.25 _f %f
-5.3415 -5.3415 -5.3470 -5.3415 -5.3415
years .
| --
I didn't intend to do all that but I wanted to comment that I just
watched the palindrome YT , and realize my method is essentially what
Dr Ting was suggesting . It simply lists the numbers , but they
do fall in 3 groups : the singletons
10
_iota fmtI >t0>
| 1 digit
100 _iota 1 _cut fmtI >t1>
| all the number up to half -1
the max # of digits
| turn them all into characters because I don't have a clue how to find
for any number its reverse .
t1 dup { reverse cL } 'd
>t2> | anyway , take them , dup them , reverse
the top &
| concatenate
each pair ( 'd " each dyadic " )
|
makes all the 2 & 4 digit ones .
| the odd length ones are a little more complicated because each of the
even digit ones
| can have any one of the single digits glued in the middle so the 3 & 5 digit line is
| more complicated .
t1 10 _i 100 1 - _take & at
>a> t0 ' cL 'd a> { reverse cL } 'd >t3>
| It use of Arthur Whitney's briliant generalization of the original
APL ` where which
| returns the indices of the 1s in a boolean list .
Here' the def :
` & :??
(
./CoSy/CoSy.f
: & ( I0 -- I1 ) | for each item of I0 return val
n reps of corresponding
| index . Example | i( 0 0 0 1 0 1 0 3 1 )i & |>| 3
5 7 7 7 8 |
| ( Arthur Whitney def of '
where , and even his symbol )
| example of use of extended
def ( from Marco Pescosolido , soln to EE McDonnell's
| K finger exercises #
39 )
| x[|>&y]
reverse subsets , EEMD : "infixes" , of lengths y of list x
.
dup i# 0if int> ;then |
simply return if empty | 20200406 | 20200407 forced int
refs+>
dup @ TypeI <>if refs- z" & : arg must be
integer " throw then
dup i# 0if refs- zild ;then
dup ['] + across >_ -1 >aux
intVecInit >aux | 20200802
dup i# 0 ?do dup i i@ 0 ?do j aux@ auxx> 1+
>auxx> i! loop
loop refs- aux> aux> drop ;
)
| Here it's used to make 10 replicas of each
of the numbers up to the half -1 .
| \/ | Last line broken out | \/ |
10 _i 100 1 - _take &
| produce all the
replicates for the center col
0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 3 3 3 3 3 3
3 3 3 3 4 4 4 4 4 4 4 4 4 4 5 5 5 5 5 5 5 5 5 5 6 6 6 6 6 6 6 6 6 6 7 7
7 7 7 7 7 7 7 7 8 8 8 8 8 8 8 8 8 8 9 9 9 9 9 9 9 9 9 9 10 10 10 10 10
10 10 10 10 10 11 11 11 11 11 11 11 11 11 11 12 12 12
...
90 90 90 90 90 90 90 91 91 91 91 91 91 91 91 91 91 92 92 92 92 92 92 92
92 92 92 93 93 93 93 93 93 93 93 93 93 94 94 94 94 94 94 94 94 94 94 95
95 95 95 95 95 95 95 95 95 96 96 96 96 96 96 96 96 96 96 97 97 97 97 97
97 97 97 97 97 98 98 98 98 98 98 98 98 98 98
| So , when we index the list ` t1 by this list , we get a list 990
long with each
| repeated 10 time . ` R0 is always the result of the last
comutation .
t1 R0 at
| ( actually I see I could have been cleverer and just added 1 to that
index list itself )
| Anyway , we now have an important utility come into play , and an
extremely important
| feature of CoSy
: modulo indexing which replicates shorter lists to match the longer
| when a verb is applied pairwise , ie: dyadically .
R0 >a> t0 ' cL 'd
(
10 11 12 13 14 15 16
17 18 19 20 21 22 23 24
25 26 27 28
29 30 31 32 33 34 35
36 37 38 39 40 41 42 43
44 45 46 47
48 49 50 51 52 53 54
55 56 57 58 59 60 61 62
63 64 65 66
67 68 69 70 71 72 73
74 75 76 77 78 79 80 81
82 83 84 85
86 87 88 89 90 91 92
93 94 95 96 97 98 99 100 101
102 103 104
105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120
121 122 123
124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139
140 141 142
143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158
...
| ` a is a stack which increments the ref count of things
pushed on it
| protecting them from freeing until they are popped .
| So R0 now is those 3 digit first halves , then that original list is
popped of the
| ` a stack and reversed and concatinated pairwise as before .
R0 a> { reverse cL } 'd
>t3> | 3 & 5 digit |
'd is each pair
| /\ | Last line broken out | /\ |
And there you pretty much have it . The last line
(' t0 t2 t3 ')
,/ >t1
just ` ravels , concatenates , across the 3 lists .
The ` (' ') I've found extremely useful . I make
all my accounting entries in my notes with it . Eg:
(' 20201211.0000 _f ` PSBT ` IREA
f( 506.63 20.33 )f s" acnts : 95555787 95555792 | 4100 65 kWh " ')
It simply executes the line between and returns it as a list .
Well , that's pretty much got it documented . I haven't gotten
word from Morten Kromberg yet , and I don't think the BAA has gotten
its Iverson Centennial Zoom up yet to see if I really saw him present a
palindrome algorithm , which itself was a palindrome , in 5 APL symbols
.
& to all a good night ,
Bob A
Peace thru Freedom
Honesty enforced thru Transparency ,
|
|
|
CoSy
The Shortest Path from the Chip to the Math
|
I
reserve the right to post all communications I receive or generate to
CoSy website for further reflection
|
-- | 20201220.2335 |
_______________________________________________
http://zork.net/mailman/listinfo/svfig
neither public nor private,
this membership of correspondence
|
#PlanetaryTemperature
From http://cosy.com/y21/Blog.txt
| ======================== | Sat.Oct,20201031 | ======================== |
https://www.facebook.com/groups/wattsupwiththat/permalink/36175855 . . .
Roy
I think your comment
" The "adiabatic" effect ... describes how a parcel of air moving up or down in the atmosphere will CHANGE in temperature "
itself states the fact that it is the exchange of gravitational `
potential and thermal energy that forms the equilibrium gradient .
Gravity is what defines ` up and ` down . And what happens to a parcel
of air too hot or cold for its position versus the gradient is an
obvious illustration of the tradeoff .
And the same quantitative Law of Gravity applies to every upward or downward oscillation of a molecule even in still air .
It is gravity which forms the gradient . And it is only gravitation
energy , which computes as a negative wrt kinetic or radiant ( google
it if you are not familiar with the fact ) which allows the equations
to balance , ie: be adiabatic .
Oh , and there is NO claim that there is no " greenhouse effect " . CO2
etc , as a component determining our spectrum as seen from outside does
thereby effect our radiative equilibrium . But I think it an open
question as to in which direction .
Any HONEST rational
person seeing these 3 graphs should immediately understand the
global statist demonization of the building block of life is a Leninist
useful idiocy
And this isn't even considering their failure at essentially high
school level physics
|
| --
`nuff for now .
Zoom by request
BobA | 20210113.2343 |
I offer CoSy as a personal
service , with a retainer/subscription . But , of course any serious
potential client/partner must find CoSy
understandable and usable as is . Thus a free intro Zoom to work thru
any issues of getting CoSy
up on your machine and assist you working thru some of the basics and
discuss future priorities .
On the other hand , If you just appreciate this blog , the PayPal
button is below .
Prefer comments here
on the online Prefer comments here on the
blog page Disqus below unless they are of a very private
nature so others can see them .
Disqus allowed HTML
--
|
