albert wrote:@Dodicat
My subtractor function has a few lines of code in it to put the bigger number on top. so it always subtracts smaller from bigger.
I'm working on multiplying again, i'm bouncing around doing a little of this and a little of that and not getting a fully functional anything yet.its just part is parts , maybe i should finish one thing first before i move on to another.
I'm disapointed that they locked my circles thread,I don't see how my interpretations of biblical scripture was anti-semitic at most they should maybe have posted that my interpretations were not inline with jewish teachings.???? but never mind that. i'll have to use Richards squares.
Hi Albert
I'm the same with bignumbers, but there's no deadline, it's just an ongoing topic for me, I'll get it done one of these days.
Religion is a touchy subject at the best of times, and there has been a dictionary of terrible names chucked about.
I suppose you did give a few members a chance to vent their fury but I daresay they are all settled down again.
As Rollie~ pointed out, there's been worse stuff in the forums, with a few trying to pull the con on us vulnerable souls.
Bfuller had a nice idea which he set out in the topic RICHARD, which has since gone walkabout.
Maybe he could re-explain the project, if he is about.
Hi anonymous1337
I havn't tried getting ortho-centres and drawing altitudes (YET).
I know that the incentre, orthocentre and centroid of a triangle all lie on the same line, so it shouldn't be too difficult, considering that the altitudes are normals to the sides.
In the meantime, if you like, here's an easy way to draw your triangles in cartesian co-ordinates within your chosen graph limits.
It saves you having to use window( ).
It's just a simple mapping, until you get some graph paper, and only the axis of the grid are shown.
Number theory is vast, quite often you have to enter the realm of bignumbers pretty quickly i.e. perfect numbers.
Code: Select all
dim as integer xres,yres
screeninfo xres,yres
screenres xres,yres,32
#macro drawline(x1,y1,x2,y2,minx,maxx,miny,maxy)
'axis
scope
if sgn(minx)<>sgn(maxx) then
line(0,(yres-(miny/(miny-maxy))*yres))-(xres,(yres-(miny/(miny-maxy))*yres)),rgb(50,50,50) 'x axis
endif
if sgn(miny)<>sgn(maxy) then
line(((minx/(minx-maxx))*xres),0)-(((minx/(minx-maxx))*xres),yres),rgb(50,50,50) 'y axis
endif
'line
dim as double xx1= Cdbl(xres)*(x1-minx)/(maxx-minx)
dim as double yy1=Cdbl(yres)*(y1-maxy)/(miny-maxy)
dim as double xx2=Cdbl(xres)*(x2-minx)/(maxx-minx)
dim as double yy2=Cdbl(yres)*(y2-maxy)/(miny-maxy)
line(xx1,yy1)-(xx2,yy2),rgb(255,255,255)
end scope
#endmacro
#macro _pset(x1,y1,minx,maxx,miny,maxy)
scope
'axis
if sgn(minx)<>sgn(maxx) then
line(0,(yres-(miny/(miny-maxy))*yres))-(xres,(yres-(miny/(miny-maxy))*yres)),rgb(50,50,50) 'x axis
endif
if sgn(miny)<>sgn(maxy) then
line(((minx/(minx-maxx))*xres),0)-(((minx/(minx-maxx))*xres),yres),rgb(50,50,50) 'y axis
endif
'point
dim as double xx1= Cdbl(xres)*(x1-minx)/(maxx-minx)
dim as double yy1=Cdbl(yres)*(y1-maxy)/(miny-maxy)
circle(xx1,yy1),5,rgb(255,255,255),,,,f
end scope
#endmacro
' ******************************************************************
dim as double lowerx,upperx,lowery,uppery
'define the cartesian limits(graph)
lowerx=-100
upperx=100
lowery=-100
uppery=100
dim as double x1,y1,x2,y2,x3,y3,centroidx,centroidy
'The three vertices of a triangle in the cartesian graph
x1=-20:y1=-20
x2=80:y2=20
x3=20:y3=-90
'The centroid
centroidx=(x1+x2+x3)/3
centroidy=(y1+y2+y3)/3
'DRAW THE TRIANGLE AND IT'S CENTROID
drawline(x1,y1,x2,y2,lowerx,upperx,lowery,uppery)
drawline(x2,y2,x3,y3,lowerx,upperx,lowery,uppery)
drawline(x3,y3,x1,y1,lowerx,upperx,lowery,uppery)
_pset(centroidx,centroidy,lowerx,upperx,lowery,uppery)
sleep