Silicon Investor (SI) -- The First Internet Community

STOCKTALK

We've detected that you're using an ad content blocking browser plug-in or feature. Ads provide a critical source of revenue to the continued operation of Silicon Investor. We ask that you disable ad blocking while on Silicon Investor in the best interests of our community. If you are not using an ad blocker but are still receiving this message, make sure your browser's tracking protection is set to the 'standard' level.

Politics : Formerly About Advanced Micro Devices -- Ignore unavailable to you. Want to Upgrade?

To: combjelly who wrote (821525)	12/8/2014 10:35:06 PM
From: bentway	Read Replies (1) \| Respond to of 1583681

Yeah, I read it, but can remember nothing. I really like Brunner. 'Stand in Zanzibar' I remember reading from him too. Worth re-reading his work. I wonder which will win out, brainy babies or emergent AI's? Or will they join? Might as well joke about it, it's irreversible. It will happen somewhere. I'd start looking at the Ashkenazim Jewish genome first. I've been thinking lately that it will be easier for us to create Martians than to terraform Mars. To create space-living humans than move Earth-humans to the stars. Have them create the kinds of humans needed for whatever types of planets they find.

To: combjelly who wrote (821525)	12/9/2014 1:43:35 AM
From: bentway	Read Replies (3) \| Respond to of 1583681

I've been looking at the R language recently. Check this bit of code: en.wikipedia.org library(caTools) # external package providing write.gif function jet.colors <- colorRampPalette(c("#00007F", "blue", "#007FFF", "cyan", "#7FFF7F", "yellow", "#FF7F00", "red", "#7F0000")) m <- 1000 # define size C <- complex( real=rep(seq(-1.8,0.6, length.out=m), each=m ), imag=rep(seq(-1.2,1.2, length.out=m), m ) ) C <- matrix(C,m,m) # reshape as square matrix of complex numbers Z <- 0 # initialize Z to zero X <- array(0, c(m,m,20)) # initialize output 3D array for (k in 1:20) { # loop with 20 iterations Z <- Z^2+C # the central difference equation X[,,k] <- exp(-abs(Z)) # capture results } write.gif(X, "Mandelbrot.gif", col=jet.colors, delay=800)