Pentacles

[angros47]

In math, multiplication can use the "x" operator, or the "·" operator, that is called interpunct
https://en.wikipedia.org/wiki/Interpunct

Since it's already very small, it can be omitted when writing a multiplication: so

a=b·c

can become

a=bc

In programming, of course, you can't use "x" to multiply, because x can be also a variable, so you use the interpunct. But since in origin many computer didn't have that symbol on the keyboard, developers used the asterisk * as replacement. You cannot use a normal point, because it is already used as flotation point (3.5 does not mean 3*5). And you cannot omit it, since "bc" could be a different variable.

[badidea]

Actually it is × not x (according to https://en.wikipedia.org/wiki/Multiplication_sign).
I guess mathematicians are lazy and a × b became a ⋅ b and then a b

[Richard]

When Albert writes and runs a line of code, he is arithmetically manipulating the numbers in the named containers.
But a mathematician would process the symbolic algebraic equation, and immediately see the result.
That explains the riddle of; A = B * A / B.
To Albert that is a statement of simple arithmetic, best done with a computer.
To me it is trivial algebra, in need of rationalisation.
If you go back through Albert's posts in the Circles and the Squares threads, you will see many other examples.

[albert]

@Richard

A = B x A / B

B x A = ? and \ B cancels the mul out , so it's A = A

Same as A = B + A - B = ( A = A )

I'm not entirely stupid...

I'm just schooled in math formulas... I don't understand the complex formulas..

But all of math is simple , add , sub , mul , div , sqr , cuberoot .. and then the trig functions...

[dodicat]

What is the definition of a "mathematician" anyway?
Albert, you will have to go back thru circles and squares and rationalize your denominators tout suite.

[albert]

@Dodicat

I've been playing around with the idea of robotics...

I figure that the robots brain could be external and accessed through a radio ( RC ) or a cellphone..

Then you could hook the robot up to a super computer with AI like IBM's Watson computer...
Then Watson could control the robot through a cell phone hook up..

With Watson:

The robot could do just about anything...

Fetch you a beer out of the fridge , turn the lights on and off.
Build you a fire , in the fire place..
Paint the house..Wash the dishes..
Help the kids with their homework... etc... Act as soldiers on a battlefield...
Walk the dog..etc...

The idea just came to me today.... I think it would work!!!

Once the robot learns the layout of the house and where all the tools and gadgets are located.. it could do anything to keep and maintain a home..
Sweep and mop the floors.. fix the car etc....

Perform opera and ballets for the family etc...

[dodicat]

I believe basiccoder2 was interested in this.
He has some sort of device in his shed.
viewtopic.php?f=8&t=22859&p=201275&hili ... 2A#p201275

[angros47]

I figure that the robots brain could be external and accessed through a radio ( RC ) or a cellphone..
.....

The idea just came to me today.... I think it would work!!!

You are 77 years late. Isaac Asimov had the same idea in 1944:
https://en.wikipedia.org/wiki/Catch_That_Rabbit

[robert]

@Dodicat

Paint the house..Wash the dishes..

Samsung must have read Albert's post.

https://www.cnet.com/news/samsung-ces-2 ... s-of-wine/

[albert]

@Dodicat

This formula compresses 5% on loop one...
=================================
n1 = mid( bits , a , 8 )

v1 = val( "&B" + mid( n1 , 1 , 4 ) )
v2 = val( "&B" + mid( n1 , 5 , 4 ) )

if v2 <= 9 then
outs+= chr( ( v1 * 10 ) + v2 )
else
outs+= chr( ( v1 * 16 ) + v2 )
end if
=================================

If i put in a map , it expands like 10% on loop one...

Is there a way to figure the 2 separate cases? , without a map?

in the first case v2 <= 9
In the second case v2 >= 10

I'm getting confused by it....
How would you mod or divide , to get v2? To see if its < 10 or greater than > 9
Is there a way?? Or am i just going in circles??

[coderJeff]

Not having this ... again.

[Richard]

Or am i just going in circles??

It is clear that you were still going around in the same old circles you always do.
And it seems this time you only received a 1 month ban.

If you are wise you will find a school math text book and take a month to study an introduction to algebra. Then you could recognise and avoid those circular whirlpools that trap you, so you don't get banned again.

[srvaldez]

@albert
please check out this learning site https://brilliant.org/

[dodicat]

Personally, I cannot see Albert getting knuckled down into a maths book during a sabbatical or lockdown.
But I could be wrong.

Code: Select all

Type d2
    As Single mx,my
    Dim As Single mw,ang
End Type

Type Point
    As Integer x,y
    As Uinteger col
End Type

Redim As Point f(0)
#define maps(a,b,x,c,d) ((d)-(c))*((x)-(a))/((b)-(a))+(c)
Sub leaf(Xpos As Integer, Ypos As Integer,_Width As Integer, _Height As Integer,arr() As Point)
    #define map(a,b,x,c,d) ((d)-(c))*((x)-(a))/((b)-(a))+(c)
    Dim As Single a(1 To 4)={.85,-.15,.2,0}
    Dim As Single b(1 To 4)={.04,.28,-.26,0}
    Dim As Single c(1 To 4)={-.04,.26,.23,0}
    Dim As Single d(1 To 4)={.85,.24,.22,.16}
    Dim As Single e(1 To 4),p(1 To 4)
    Dim As Single f(1 To 4)={1.6,.44,1.6,0}
    Dim As Single pt = 0, pi, x, y, newx, newy
    Dim As Integer i
    For i  = 1 To 4
        Select Case As Const i
        Case 1:pi=.85
        Case 2,3:pi=.07
        Case 4:pi=.01
        End Select
        pt+=pi
        p(i)=pt
    Next i
    Static As Integer min
    Dim As Integer num=50000'\3
    Dim As Integer max=num+min,ctr
    Redim Preserve arr(0 To max)
    For n As Integer = min To max
        ctr+=1
        pi = Rnd
        i = 0
        Do:i+=1:Loop While pi > p(i)
        newx = a(i)*x+b(i)*y+e(i)
        newy = c(i)*x+d(i)*y+f(i)
        x = newx
        y = newy
        Var r=map(1,num,ctr,0,155)
        arr(n)=Type<Point>(x*_Width+Xpos,y*_Height+Ypos,Rgb(r,255-r,0))
    Next n
    min=max
End Sub

Dim Shared As String zz:zz = _
"S1C0BM800,208M+4,42M+7,7M+1,15M+-6,2M+1,6"_
&"M+38,-1M+-1,-7M+-32,0"_
&"BM+14,4P4294932224,0"_
&"BM+-2,4M+6,7"_
&"M+-2,10M+2,5M+2,17M+2,20M+-1,2M+260,0"_
&"M+16,-10M+9,-13M+5,-16M+5,-11M+14,-7M+14,-6"_
&"M+10,-8M+-55,8M+-13,-6M+-52,3M+-41,3M+-42,1"_
&"M+-22,-2M+-45,-3M+-26,-5M+0,0M+-24,-5M+0,0"_
&"M+-31,-7M+-2,14M+30,1M+1,8M+2,0"_
&"M+0,0M+0,0M+-20,2"_
&"BM+154,32P4288822016,0"_
&"BM+-165,-29M+1,26"_
&"M+-3,18M+0,12M+0,0M+16,-1M+0,-16M+-1,-18"_
&"M+-1,-14M+-2,-6M+-8,-1"_
&"B"_
&"BM+2,-1M+-4,1"_
&""_
&"BM+7,28P4285822068,0"_
&"BM+5,-95M+22,9M+15,9M+4,1M+0,10"_
&"M+16,5M+24,3M+25,4M+8,14M+2,4"_
&"B"_
&"BM+-143,-70M+3,2M+25,7M+3,3M+0,-1"_
&"BM+-28,14M+9,0M+12,5M+9,0M+14,5M+18,7"_
&"M+5,0"_
&"BM+-51,-30M+0,14M+-4,-16M+-1,16M+1,8"_
&"M+-3,10M+8,-10M+-2,14M+8,1M+1,-12"_
&"BM+30,11"_
&"P4285412870,0"_
&"BM+-31,-30P4283708934,0"_
&"BM+195,48M+5,-7M+0,-4M+66,-3M+7,12"_
&""_
&"B"_
&"BM+-80,2M+2,4M+0,-2"_
&"BM+21,-6P4283708934,0"_
&"BM+59,2M+135,-83"_
&"M+-127,87"_
&"BM+6,-7"_
&"B"_
&"BM+-2,5M+1,5"_
&"B"_
&"BM+-6,-13M+-13,6"_
&"BM+16,-1P4279308561,0"_
&"BM+1,-2P4281940281,0"_
&"BM+-39,-10"_
&"BM+6,1M+-8,0"_
&"M+9,-99M+6,1M+-6,98M+-2,0"_
&"BM+0,-23P4281940281,0"_
&"B"_
&"BM+2,-76M+-11,-12M+2,-6M+1,1"_
&"M+25,0M+-3,13M+-8,4M+-2,-1"_
&"B"_
&"BM+-1,-12"_
&"P4294912000,0"_
&"BM+-3,-8M+0,3M+7,-103"_
&"BM+1,1M+3,-1"_
&"M+-2,102M+0,2"_
&"BM+-3,-10"_
&"P4283848278,0"_
&"BM+6,-96M+1,-22"_
&"BM+-136,265M+1,-126M+5,0M+4,125"_
&"BM+-4,-29"_
&"P4283848278,0"_
&"BM+1,-96M+8,-6M+0,-10M+-26,1M+0,8"_
&"M+4,6M+9,2"_
&"BM+-1,-9P4294919424,0"_
&"BM+-1,-8M+4,-123M+4,-1"_
&"M+1,124"_
&"BM+-5,-15P4283256141,0"_
&"BM+-107,106M+9,3M+0,-68M+-6,1"_
&"M+-1,64"_
&"BM+2,-13P4283256141,0"_
&"BM+4,-54M+8,-1M+-1,-8M+-19,0"_
&"M+-1,10M+10,3"_
&"M+11,-5"_
&"BM+-18,-3P4294919424,0"_
&"BM+3,-7M+0,1M+-1,-99M+6,1M+3,98"_
&"BP4283256141,0"_
&"BM+-4,-12"_
&"P4283256141,0"_
&"BM+-1,25M+-15,77M+7,0M+9,-76M+-2,77"_
&"BM+-11,-11"_
&"M+12,-2M+0,-8M+-10,0M+2,-4M+8,0M+0,-5"_
&"M+-10,0M+3,-7M+7,3M+0,-8M+-7,2"_
&"BM+112,-47"_
&"M+-64,136M+9,1M+52,-135M+-44,135M+11,0M+36,-136"_
&"M+-22,136M+6,2M+15,-136M+-58,111M+46,2M+3,-7"_
&"M+-41,-4M+4,-6M+37,1M+1,-8M+-34,-3M+5,-8"_
&"M+27,1M+4,-10M+-28,-2M+4,-8M+22,1M+4,-11"_
&"M+-23,1M+4,-10M+17,0M+3,-9M+-14,-2"_
&"B"_
&"BM+135,-29"_
&"M+-36,114M+8,1M+31,-112M+-25,114M+0,0M+7,-1"_
&"M+0,0M+15,-112M+-5,110M+7,-107M+-6,106M+10,0"_
&"M+-5,-107"_
&"BM+-192,131M+64,3M+0,-4M+-56,-4"_
&"M+-5,5"_
&"BM+24,-2"_
&"BM+0,0P4294955008,0"_
&"BM+0,-58M+-117,-153M+9,2"_
&"M+111,147M+-6,4"_
&"B"_
&"BM+-71,-104P4283848278,0"_
&"BM+71,95P4283848278,0"_
&"BM+-39,54"_
&"M+1,8M+7,0M+-1,-7M+-11,0"_
&""_
&"BM+8,3P4283848278,0"_
&"BM+89,-2M+2,8M+6,0M+1,-8M+-10,0"_
&""_
&"BM+5,5P4283848278,0"_
&"B"_
&"BM+22,-4M+12,-1"_
&"M+0,11M+-13,-1M+1,-9"_
&"BM+3,2P4283848278,0"_
&"BM+27,-4M+14,0"_
&"M+-2,10M+-10,-1M+0,-9"_
&"BM+3,3P4283848278,0"_
&"BM+90,7M+-19,10"_
&"M+-3,-5M+2,-4M+-3,8M+8,6M+0,5M+6,-1"_
&""_
&"B"

Function Clock As Any Ptr
    Static As Any Ptr im
    Static As Integer blink
    Static As String LastTime
    Dim As String t=Time
    If LastTime<>t Then'every second
        'do all this stuff only once per second:
        blink+=1
        LastTime=t
        If im Then Imagedestroy im:im=0
        im= Imagecreate(210,210)
        Circle im,(105,105),105,Rgb(150,150,150),,,,f
        Circle im,(105,105),104,Rgb(0,0,0)
        #define map(a,b,x,c,d) ((d)-(c))*((x)-(a))/((b)-(a))+(c)
        #macro mod12(n,m)
        m= n Mod 12
        If m=0 Then m=12 
        #endmacro
        #macro lineto(x1,y1,x2,y2,d,col,flag)
        If flag Then Line im,(x1,y1)-(x1+(x2-x1)*d,y1+(y2-y1)*d ),col
        catchx=x1+(x2-x1)*d:catchy=y1+(y2-y1)*d
        #endmacro
        #macro drawline(x,y,ang,length,col,x2,y2,flag)
        ang2=ang:ang2=ang2*.0174532925199433
        x2=(x)+length*Cos(ang2)
        y2=(y)-length*Sin(ang2)
        If flag Then Line im,(x,y)-(x2,y2),col
        #endmacro
        
        Dim As Integer m2,catchx,catchy
        Dim As Single b1,b2,tmp1,tmp2,ang2
        'Dim As String t=_time
        Dim As Integer hm=Valint(Left(t,2)),mm=Valint(Mid(t,4,2)),sm=Valint(Right(t,2))
        mod12(hm,m2)
        Dim As Single h=map(0,12,m2,360,0)
        Dim As Single m=map(0,60,mm,360,0)
        Dim As Single s=map(0,60,sm,360,0)
        For z As Integer=0 To 360 Step 6
            drawline((105),(105),z,100,15,b1,b2,0)
            'spots
            If z Mod 30=0 Then 
                lineto(b1,b2,(105),(105),.1,Rgb(200,0,0),1)  
                Circle im,(b1,b2),3,Rgb(100,100,255),,,,f 
            Else
                lineto(b1,b2,105,105,.05,Rgb(0,0,200),1)
                Circle im,(b1,b2),1,Rgb(0,0,100),,,,f 
            End If
            drawline(105,105,z,85,Rgb(0,0,0),b1,b2,0)
            Dim As Single n=map(360,0,(z-90),0,12)
            'numbers
            If z Mod 30=0 Then 
                mod12(n,m2)
                lineto(105,105,b1,b2,.9,0,0)
                Draw String im,(catchx-3,catchy-4),Str(m2),Rgb(0,200,0) 
            End If
        Next z
        If blink Mod 2 Then Draw String im,(105-20,105-45),"tick":blink=-1:Else  Draw String im,(105-20,105-45),"tock"
        drawline(105,105,(h+90)-5*(360-m)/60,60,Rgb(100,0,100),tmp1,tmp2,1)'hour 
        drawline(105,105,(m+90)-(360-s)/60,85,Rgb(100,0,100),tmp1,tmp2,1)  'minute 
        drawline(105,105,(s+90),95,Rgb(100,100,100),tmp1,tmp2,1)             'second 
        Circle im,(105,105),3,Rgb(100,100,100),,,,f                  'centre 
    End If'every second
    Return im
End Function

Sub draw_balls(b As d2)
    Dim  As Uinteger colour(90,90)
    #macro rotate(pivotx,pivoty,px,py,a,scale)
    Var Newx=scale*(Cos(a*.0174533)*(px-pivotx)-Sin(a*.0174533)*(py-pivoty))+pivotx
    Var Newy=scale*(Sin(a*.0174533)*(px-pivotx)+Cos(a*.0174533)*(py-pivoty))+pivoty
    #endmacro
    #macro incircle(cx,cy,radius,x,y)
    (cx-x)*(cx-x) +(cy-y)*(cy-y)<= radius*radius
    #endmacro 
    If b.mw=0 Then b.mw=1
    b.mw=Abs(b.mw)
    For x As Integer=b.mx-40 To b.mx+40
        For y As Integer=b.my-40 To b.my+40
            If incircle(b.mx,b.my,40,x,y) Then
                colour(x-b.mx+40,y-b.my+40)=.999999*Point(x,y)
            End If
        Next y
    Next x
    
    Dim As Single dil
    For x As Integer=b.mx-40 To b.mx+40
        For y As Integer=b.my-40 To b.my+40
            If incircle(b.mx,b.my,40,x,y) Then 
                rotate(b.mx,b.my,x,y,b.ang,dil)
                Var dist=Sqr((b.mx-newx)*(b.mx-newx)+(b.my-newy)*(b.my-newy))
                dil=(b.mw+(.5-b.mw)*dist/(40*b.mw))
                If incircle(b.mx,b.my,(20*b.mw),newx,newy) Then
                    Line(NewX-dil/2,NewY-dil/2)-(NewX+dil/2,NewY+dil/2),colour(x-b.mx+40,y-b.my+40),BF
                End If
            End If
        Next y
    Next x
End Sub

Sub createimage(x1 As Long,x2 As Long,y1 As Long,im As Any Ptr)
    #define map(a,b,x,c,d) ((d)-(c))*((x)-(a))/((b)-(a))+(c)
    For z As Integer=50 To 1 Step -1
        Circle im,(x1,y1),z,Rgb(245,250-z\5,220-z\2),,,,f
        Circle im,(x2,y1),z,Rgb(245,250-z\5,220-z\2),,,,f
    Next z
    Circle im,(x1,y1),15,Rgb(250,250,255),,,,f
    Circle im,(x2,y1),15,Rgb(250,250,255),,,,f
    
    Circle im,(x1,y1),8,Rgb(60,110,255),,,,f
    Circle im,(x2,y1),8,Rgb(60,110,255),,,,f
    
    Circle im,(x1,y1),4,Rgb(0,0,0),,,1,f
    Circle im,(x2,y1),4,Rgb(0,0,0),,,1,f
    
    Pset im,(x1+2,y1),Rgb(255,255,255)
    Pset im,(x2+2,y1),Rgb(255,255,255)
    
    For k As Long=-5 To 5
        Line im,(345-k,82-k)-(725+k,630+k),Rgb(0,2,0),b
    Next k
    
    Line im,((345+725)/2-2,82)-((345+725)/2+2,630),0,bf
    
    
    Paint im,(5,5),Rgb(180,200,200),Rgb(0,2,0)
    Const pi=4*Atn(1)
    For k As Long=1 To 50 Step 8
        Circle im,(1500-k,1500+50),1300-k,1,pi/1.5,pi/1.5+.32
        If k=49 Then 
            For k2 As Long=0 To 8
                Circle im,(1500-k-k2,1500+50),1300-k-k2,Rgb(200,0,0),pi/1.5,pi/1.5+.32
            Next k2
        End If
    Next
    
    For k As Long=1 To 50 Step 8
        Circle im,(-420+k,1530+50),1300-k,1,(pi-2)/1.5,(pi-2)/1.5+.32
        If k=49 Then 
            For k2 As Long=0 To 2
                Circle im,(-420+k-k2,1530+50),1300-k-k2,Rgb(200,0,0),(pi-2)/1.5,(pi-2)/1.5+.32
            Next k2
        End If
        'ship
        line im,(780+75,100)-(780+85,95)
        circle im,(780+85,95),2,,,,,f
        Line im,(780+75,100)-(780+10,170),0
        Line im,(780+75,100)-(930-10,170),0
        Line im,(780,150)-(930,250),Rgb(0,190,255),bf
        Line im,(780,220)-(930,250),Rgb(0,100,190),bf
        For k As Long=-5 To 5
            Line im,(780-k,150-k)-(930+k,250+k),Rgb(150+10*k,30,0),b
        Next k
        Draw im,zz
    Next
End Sub

Function Regulate(Byval MyFps As Long,Byref fps As Long=0) As Long
    Static As Double timervalue,lastsleeptime,t3,frames
    Var t=Timer
    frames+=1
    If (t-t3)>=1 Then t3=t:fps=frames:frames=0
    Var sleeptime=lastsleeptime+((1/myfps)-T+timervalue)*1000
    If sleeptime<1 Then sleeptime=1
    lastsleeptime=sleeptime
    timervalue=T
    Return sleeptime
End Function

Sub drawline(x As Long,y As Long,angle As Single,lngth As Double,col As Ulong,Byref x2 As Long=0,Byref y2 As Long=0)
    angle=angle*Atn(1)/45
    x2=x+lngth*Cos(angle)
    y2=y-lngth*Sin(angle)
End Sub

Screen 20,32
Color ,Rgb(200,200,255)
Dim As Integer xres,yres
Screeninfo xres,yres
leaf(350,750,30,-50,f())
leaf(450,740,30,-60,f())
leaf(560,740,20,-50,f())
#define length(p1,p2) Sqr( (p1.mx-p2.mx)*(p1.mx-p2.mx)+(p1.my-p2.my)*(p1.my-p2.my))
Dim As d2 cntre=Type<d2>(xres/2,yres/2),pt
Dim As Integer x1=.4*xres,x2=.6*xres,y1=.5*yres
Dim As Any Pointer im
im = Imagecreate(xres,yres)
createimage(x1,x2,y1,im)
Dim As d2 eyes(1 To 2)
Dim As Long cx,cy,i,fps
Dim As Single a,flag=2
Do
    i+=1
    a+=.02
    If flag>1 Then drawline(512,10,270+30*Sin(a),900,Rgb(200,200,0),cx,cy)
    If Rnd<.0025 Then cx=512:cy=500:flag=0
    flag+=.03
    If Abs(a-5.1)<.1 Then 
        var k=a-4.3
    do
        a-=.01
        loop until a<=k
    end if
    Screenlock
    Cls 
    Var  bf=Type<d2>(cx,cy)
    Var xdist=-10*bf.mx/xres+5
    Var ydist=-10*bf.my/yres+5
    x1=.4*xres+2*xdist:x2=.6*xres+2*xdist
    y1=.5*yres+2*ydist:y1=.5*yres+2*ydist
    
    For n As Integer=Lbound(f) To Ubound(f)
        Var z=maps(600,200,f(n).y,0,20)
        Select Case  n
        Case Is < Ubound(F)/3
            Pset(f(n).x+z*Sin(i/50),f(n).y),f(n).col
        Case Is >2*Ubound(f)/3 
            Pset(f(n).x-z*Sin(i/60),f(n).y),f(n).col
        Case Else
            Pset(f(n).x-z*Sin(i/40),f(n).y),f(n).col
        End Select
    Next n
    Put(0,0),im,trans
    Put(100,100),clock,trans
    eyes(1)=Type<d2>(x1,y1,3)
    eyes(2)=Type<d2>(x2,y1,3)
    For z As Integer=1 To 2
        draw_balls(eyes(z))
    Next z
    
    Draw String(20,20),Str(fps)
    Screenunlock
    Sleep regulate(40,fps)
Loop Until Len(Inkey)

Sleep
 

[angros47]

I am starting to fear that Albert has developed persecution delusions in the late years. Recently, I discovered this:

https://forums.opensuse.org/showthread. ... 15-Hacking

Now I am starting to worry that in post like this one: viewtopic.php?p=273493#p273493, when he said

I'm trying to figure out how the aliens , compress data..
I know they have computers , and must be doing compression on their computers..
But , how do they do it???

He was talking literally (at the time, I thought he was kidding, in his own way)