Google es un plato fuerte de Intenet, los más imitados en su motor de busqueda, creadores de formas para publicistas y número uno en tecnología, al implantar de forma gratutita en sus páginas web, mapas y sobre todo su aplicación Google Earht. Una forma de viajar, de navegar desde la pantalla de tu ordenador por todo el mundo, con datos revelantes como pueden ser latitud y longitud.

Apple es un gigante en el mundo informatico de sistemas y hardware. Hoy en día Apple revoluciona el diseño con sus tabletas y sus dispositivos móviles.
Apple anuncia que proximamente lanza al ciberespacio, sus propios mapas y su propia visión de la Tierra. Apple Maps y Apple Earth en sus propios dispositivos; para ello ha adquirido recientemente la empresa de mapas Poly9.

Los Gigantes de Internet compiten con las técnicas de información más avanzadas. Posicionamientos fisicos, intentan crear fórmulas Global Position para situar por medio de sus propios dispositivos móviles a sus clientes.
Ya escribimos que a esta empresa, Apple, le falta una pantalla web, con funciones de motor de busqueda; un buscador gratuito, libre y universal.

10 * Programa basic para el cálculo de la altura de las mareas en un instante cualquiera

20 *

30* El listado es compatible para IBM Pc ó compatible

40*

50*

60* DEFDBL A-Z

70* PI=3.14159265359 #

80* CLS

90* INPUT ” amplitud marea en metros?,AM

100* INPUT “duración marea?,DCS

110* DC=VAL (LEFT$(DC$,2)) + VAL(RIGHT$(DCS,2))/60

120* PRINT:PRINT  “número del dato”

130* PRINT:PRINT “intervalo desde/hasta la bajamar más proxima”

140* PRINT “Correción aditiva”

150* A$=”"

160* WHILE A$=”":A$=INKEY$:WEND

170* IF A$<”1″ OR  A$>”2″ THEN 150

180* LOCATE 4 PRINT SPACES (80)

190* LOCATE 6 PRINT SPACES (80)

200* LOCATE 7 PRINT SPACES (80)

210* LOCATE  3, 1

220* ON VAL (A$) GOTO 230, 290

230* INPUT “Mismo intervalo formatoHH:MM”,IB$

240* IB=VAL (LEFT$(IB$,2)) + VAL(RIGHT$(IBS,2))/60

250* PRINT

260* PRINT “Correción aditiva”

270* PRINT USING “##.## metros”; am/2*(1-cos(IB*PI/DC))

280* END

290* INPUT “Correción aditiva”.COR

300* PRINT

310* C=1-2*COR/AM

320* IF C=0 THEN AT=PI/2:GOTO 370

330* T=SQR(1/C^2-1)

340* IF C<0 THEN AT=PI/2:GOTO 370

350* AT=ATN(T)

360* IF AT<0 THEN AT=PI+AT

370* IB=DC/PI*AT

380* HORA=INT(IB)

390* MINUTO=(IB-HORA)*60

400*  PRINT “intervalo hasta la bajamar más proxima”

410*  PRINT USING “## horas ##minutos”;HORA MINUTO

420* END