It will, AI applied to machines will increase unemployment, as all machines invented by Man have always done.
It is also, perhaps above all, for this reason that there is so much disparity in wealth between people.
-
Welcome to B4X forum!
B4X is a set of simple and powerful cross platform RAD tools:
- B4A (free) - Android development
- B4J (free) - Desktop and Server development
- B4i - iOS development
- B4R (free) - Arduino, ESP8266 and ESP32 development
ChatGPT - "3D sphere"
- Thread starter LucaMs
- Start date
- Similar Threads Similar Threads
It is also, perhaps above all, for this reason that there is so much disparity in wealth between people.
Any machine has created unemployment, it is obvious. Now they will be intelligent machines and the consequence is equally obvious.
A slightly different slant - machines through history have increased productivity to the greater or lesser benefit of all - true this has led to short term painful disruptions in various labour markets requiring reskilling, early retirement etc
If your hypothesis is correct then the several centuries of machine introduction we have had would mean we should currently be experiencing massive unemployment - which is not the case in Australia.
what did a Mechanic do before there were machines ? ..
Indeed, it is so, in the world there are hundreds of millions of people without work.
A mechanic fixes a machine that produces more than 10 workers (depends on the type of machine, random number)
Meaning lower prices and fewer shortages
Shorter queues but your 100:1 ratio is a bit extreme. In Australia the supermarkets are progressively moving toward self checkout - but have found they have to have ex-cashiers monitoring customer honesty.
I don't know but watching and interacting with customers would have to be a little more satisfying than mindlessly shuffling stuff under a scanner all day.
And their forbears were probably equally troubled. Have you been to China? In the middle of last century they had a massive famine - something they had been subjected to thru antiquity. Heard of any famines in China in recent times? Why not?
It wasn't Communism that solved it - it was their capitalist slant on communism - lots of machines...
Do you ever get to Sydney?
We were last there for Xmas 2017. Our Son is in Botany. I have just retired and are presently getting hounded to do the grey nomad thing..
so at some point we will get there again. (if it was up to me, I'd just settle up in Bali.)
Just sent you a PMWe were last there for Xmas 2017. Our Son is in Botany. I have just retired and are presently getting hounded to do the grey nomad thing..
so at some point we will get there again. (if it was up to me, I'd just settle up in Bali.)
Code mostly done by Copilot - have changed the Point in the original Copilot code to a B4J Type. Drag the half sphere around....
half hollow sphere:
#Region Project Attributes
#MainFormWidth: 800
#MainFormHeight: 600
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private Canvas1 As Canvas
Private AngleX, AngleY As Double
Private LastX, LastY As Double
Type Point(x As Double, y As Double)
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
MainForm.Show
' Canvas1 = MainForm.RootPane.GetNode("Canvas1")
AngleX = 0
AngleY = 0
' AddMouseEvents(Canvas1)
DrawWireframeHalfSphere(Canvas1, AngleX, AngleY)
End Sub
'Sub AddMouseEvents(Canvas As Canvas)
' Canvas.SetOnMousePressed("Canvas_MousePressed")
' Canvas.SetOnMouseDragged("Canvas_MouseDragged")
'End Sub
Sub Canvas1_MousePressed(EventData As MouseEvent)
LastX = EventData.X
LastY = EventData.Y
End Sub
Sub Canvas1_MouseDragged(EventData As MouseEvent)
Dim dx As Double = EventData.X - LastX
Dim dy As Double = EventData.Y - LastY
AngleX = (AngleX + dy) Mod 360
AngleY = (AngleY + dx) Mod 360
LastX = EventData.X
LastY = EventData.Y
DrawWireframeHalfSphere(Canvas1, AngleX, AngleY)
End Sub
Sub DrawWireframeHalfSphere(Canvas As Canvas, AngleX1 As Double, AngleY1 As Double)
Canvas.ClearRect(0, 0, Canvas.Width, Canvas.Height)
Dim Radius As Double = 100
Dim CenterX As Double = Canvas.Width / 2
Dim CenterY As Double = Canvas.Height / 2
Dim StepAngle As Double = 10 ' Angle step in degrees
For theta = 0 To 180 Step StepAngle
For phi = 0 To 180 Step StepAngle
Dim x1, y1, z1 As Double
Dim x2, y2, z2 As Double
Dim x3, y3, z3 As Double
x1 = Radius * CosD(theta) * SinD(phi)
y1 = Radius * SinD(theta)
z1 = Radius * CosD(theta) * CosD(phi)
x2 = Radius * CosD(theta + StepAngle) * SinD(phi)
y2 = Radius * SinD(theta + StepAngle)
z2 = Radius * CosD(theta + StepAngle) * CosD(phi)
x3 = Radius * CosD(theta) * SinD(phi + StepAngle)
y3 = Radius * SinD(theta)
z3 = Radius * CosD(theta) * CosD(phi + StepAngle)
Dim p1 As Point
p1.Initialize
p1 = RotatePoint(x1, y1, z1, AngleX1, AngleY1)
Dim p2 As Point
p2.Initialize
p2 = RotatePoint(x2, y2, z2, AngleX1, AngleY1)
Dim p3 As Point
p3.Initialize
p3 = RotatePoint(x3, y3, z3, AngleX1, AngleY1)
Canvas.DrawLine(CenterX + p1.X, CenterY - p1.Y, CenterX + p2.X, CenterY - p2.Y, fx.Colors.Black, 1)
Canvas.DrawLine(CenterX + p1.X, CenterY - p1.Y, CenterX + p3.X, CenterY - p3.Y, fx.Colors.blue, 1)
Next
Next
End Sub
Sub RotatePoint(x As Double, y As Double, z As Double, AngleX1 As Double, AngleY1 As Double) As Point
Dim radX As Double = AngleX1 * cPI / 180
Dim radY As Double = AngleY1 * cPI / 180
Dim cosa As Double = Cos(radY)
Dim sina As Double = Sin(radY)
Dim cosb As Double = Cos(radX)
Dim sinb As Double = Sin(radX)
Dim x1 As Double = x * cosa - z * sina
Dim z1 As Double = x * sina + z * cosa
Dim y1 As Double = y * cosb - z1 * sinb
Dim z2 As Double = y * sinb + z1 * cosb
Return CreatePoint(x1, y1)
End Sub
Sub CreatePoint(x As Double, y As Double) As Point
Dim p As Point
p.Initialize
p.x = x
p.y = y
Return p
End SubOnce upon a time there were copyists.
The typewriter was invented, one typist could do the work of 5 of them, also eliminating the need for 4 desks, 4 chairs, 4 lamps, 4 inkwells, 4 pens, 4 baskets and those who produced these things.
The electric typewriter was invented, one typist was enough instead of 3, with a single machine, a single desk, a single chair, a single lamp, ...
The electronic typewriter was invented; then the PC with word processor and printer.
(I leave aside the invention of the Guenberg press and the newspaper rotary presses)
To sew N clothes, M seamstresses with needle and thread were needed; when the sewing machine was invented, N/3 or N/5 or N/X workers were enough.
And so on. To deny that machines, from lever onwards, have decreased the number of people needed for production is to deny the evidence.
It is true that new professional figures have emerged, but the need for personnel has always decreased, with the progress of technology.
The typewriter was invented, one typist could do the work of 5 of them, also eliminating the need for 4 desks, 4 chairs, 4 lamps, 4 inkwells, 4 pens, 4 baskets and those who produced these things.
The electric typewriter was invented, one typist was enough instead of 3, with a single machine, a single desk, a single chair, a single lamp, ...
The electronic typewriter was invented; then the PC with word processor and printer.
(I leave aside the invention of the Guenberg press and the newspaper rotary presses)
To sew N clothes, M seamstresses with needle and thread were needed; when the sewing machine was invented, N/3 or N/5 or N/X workers were enough.
And so on. To deny that machines, from lever onwards, have decreased the number of people needed for production is to deny the evidence.
It is true that new professional figures have emerged, but the need for personnel has always decreased, with the progress of technology.