R

library(plotly)

library(sf)

library(maps)

library(keras)

install_keras()

library(tensorflow)

install_tensorflow()

city <- read.csv("d://filebox/csv/city.csv")

city

set.seed(254)

x<-sample(0:1,128,replace=TRUE)

y<-rpois(128,5)

z<-rpois(128,3)

co<-data.frame(x,y,z)

co

l <- list(color = toRGB("#d1d1d1"), width = 0.5)

g <- list(

  showframe = FALSE,

  showcoastlines = TRUE,

  projection = list(type = 'orthographic'),

  resolution = '100',

  showcountries = TRUE,

  countrycolor = '#d1d1d1',

  showocean = TRUE,

  oceancolor = '#c9d2e0',

  showlakes = TRUE,

  lakecolor = '#99c0db',

  showrivers = TRUE,

  rivercolor = '#99c0db'

)

library(keras)

gl <- plot_geo(color = I("black"), showlegend = TRUE) %>%

  add_sf(

    data = sf::st_as_sf(maps::map("world", plot = FALSE, fill = TRUE)),

      keras_model_sequential(data)%>%

      world %>%

      layer_dense(units = 128, input_shape = c(4)) %>%

      layer_activation(activation = 'sigmoid')%>%

    world %>%  compile(

      loss = "categorical_crossentropy",

      optimizer = optimizer_rmsprop(),

      metric = c(metric_binary_accuracy))%>%

      history <- world$new()%>%

    world %>% fit(

      world,labels,

      batch_size=128, epochs=20, verbose=0,

      callbacks= list(world))%>%

    world <- plot_ly(history,

    x = ~ 1.001 * cos(degrees2radians(x)) * cos(degrees2radians(y)),

    y = ~ 1.001 * sin(degrees2radians(x)) * cos(degrees2radians(y)),

    z = ~ 1.001 * sin(degrees2radians(y)),

    color = I("black"), size = I(1),

    hoverinfo = "skip",

    add_segments(world,

      x = ~x, xend = ~xend,

      y = ~y, yend = ~y,

      color = I("black"),

      hoverinfo = "text",

      text = ~text ))

  ) %>%

  add_trace(z = ~z , color = ~x, colors = 'black',

            text = NULL, locations = ~y, marker = list(l = 'marker'))%%

  add_surface(

    x = cos(degrees2radians(lon)) * cos(degrees2radians(lat)),

    y = sin(degrees2radians(lon)) * cos(degrees2radians(lat)),

    z = sin(degrees2radians(lat)),

    surfacecolor = matrix(world, nrow = nlat, ncol = nlon),

    showscale = TRUE, hoverinfo = "skip",

    lightposition = xyzmean,

    contours = list(

      x = list(highlight = TRUE),

      y = list(highlight = TRUE),

      z = list(highlight = TRUE))

  )%>%

  layout(history,

    projection = list(type = 'orthographic'),

    showlegend = FALSE, geo = 'g',

    camer = list(aeye = xyzmean)

  )

print(gl)

###############

gl <- plot_ly(color = I("black"), showlegend = TRUE) %>%

  add_sf(

    data = sf::st_as_sf(maps::map("world", plot = FALSE, fill = TRUE)),

    x = ~ 1.001 * cos(degrees2radians(x)) * cos(degrees2radians(y)),

    y = ~ 1.001 * sin(degrees2radians(x)) * cos(degrees2radians(y)),

    z = ~ 1.001 * sin(degrees2radians(y)),

    color = I("black"), size = I(1),

    hoverinfo = "skip"

  ) %>%

  add_trace(z = ~z , color = ~x, colors = 'black',

            text = NULL, locations = ~y, marker = list(l = 'line'))%%

  add_surface(

    x = cos(degrees2radians(lon)) * cos(degrees2radians(lat)),

    y = sin(degrees2radians(lon)) * cos(degrees2radians(lat)),

    z = sin(degrees2radians(lat)),

    surfacecolor = matrix(NA, nrow = nlat, ncol = nlon),

    showscale = TRUE, hoverinfo = "skip",

    lightposition = xyzmean,

    contours = list(

      x = list(highlight = TRUE),

      y = list(highlight = TRUE),

      z = list(highlight = TRUE)

    )%>%

      layout(

        projection = list(type = 'orthographic'),

        showlegend = TRUE,

        scene = list(

          xaxis = empty_axis,

          yaxis = empty_axis,

          zaxis = empty_axis),

        aspectratio = list(x = 1, y = 1, z = 1),

        camera = list(eye = xyzmean),

        geo = "g"

      )

  )

print(gl)

##################

add_segments( x = 0,y = 0, xend = 180, yend = tan(60))%>%

  add_segments(x = cos(90), y = 0,xend = 180,yend = 180)%>%

  add_segments(x = cos(90), y = 180 ,xend = 360 ,yend = tan(89))%>%

  add_segments(x = cos(15), y = 180 ,xend = 360 ,yend = sin(45))%>%

  add_segments(x = 0, y = 60 ,xend = 40 ,yend = tan(45))

add_segments(x = 0, y = -60 ,xend = -40 ,yend = tan(45))%>%

  add_segments(x = cos(90), y = 180 ,xend = 360 ,yend = tan(89))%>%

  add_segments(x = cos(15), y = 180 ,xend = 360 ,yend = sin(45))%>%

  add_segments(x = 0, y = 60 ,xend = 40 ,yend = tan(45))%>%

  add_segments(x = 0,y = 0, xend = 180, yend = tan(60))%>%

  add_segments(x = tan(45),y = 180 , xend = 90, yend = tan(15))%>%

  add_segments(x = 0,y = 90 , xend = 90, yend = tan(15))%>%

  add_segments(x = 0,y = sin(60) , xend = sin(60), yend = 0)%>%

  add_segments(x = sin(45),y = 0 , xend = 0, yend = -sin(45))%>%

  add_segments(x = -sin(45),y = 0 , xend = 0, yend = -sin(45))%>%

  add_segments(x = 0,y = 0 , xend = -sin(45), yend = -sin(45))%>%

  add_segments(x = 0,y = 0 , xend = -sin(45), yend = tan(45), z = 90, zend = tan(89),length = z)%>%

  add_segments(x = 90,y = 90 , xend = -sin(45), yend = tan(45), z = 90, zend = tan(89), length = z)%>%

  add_segments(x = -100, xend = -50, y = 50, yend = 75) %>%

  add_surface(

    x = cos(degrees2radians(lon)) * cos(degrees2radians(lat)),

    y = sin(degrees2radians(lon)) * cos(degrees2radians(lat)),

    z = sin(degrees2radians(lat)),

    surfacecolor = matrix(NA, nrow = nlat, ncol = nlon),

    showscale = FALSE, hoverinfo = "skip",

    lightposition = xyzmean,

    contours = list(

      x = list(highlight = FALSE),

      y = list(highlight = FALSE),

      z = list(highlight = FALSE)

    )

  ) %>%

무제

when up close see he looks like else 

out of else when compare to  this one is expensive

come what may that i should be done it in a day

thanks out of busy time as you have visit to me

out of moment  come close said  

just as will you too same

be all is right same

out of just been here had fire

out of get some rest here again work after 10 minutes

get pull over at here 

over of next story go on 

had been without nothing as gone out of moment 

i just not after him due to as he said

just isn't be nothing  

that over question is don't do without agree all

무제

what took you so long 

might get worse having you get more doing it

for better or worse must have been doing begin 

i was told you have loan of housing 

you are mess as all get around was told 

to get worse is having happened near die due to you

as goes arrive there you should calling call to me

may i have off the care for you

don't care for better or worse

i am good judge of charact for people

i has clear judge of person as whether good or bad

i will be spell out for happened it mess why

i will explain for mess happen why

why as does  hard not make over money

i can't pull over car due not used to here

have been get aim he want by now 

aim over ahead object for hit  

look at that go mess 

you go up stay in room 

so will you how do

i wait able alone if without you

don't upset to him when look direct slowly say to him

 has comes to what is should know for now

move up yet don't

we be hold this house till come owner

do you have moment 

what is should know will be explain by us

if more need you as what is should know will be explain

do you know what is should know

yet i am not used to here 

so first once what is should know ready

shall you after to me come

over here is your desk 

don't you have good position 

my feel is full good

over here is cool where than guess

to coming day is picks day you will be shift up status 

sometime ago one manager had kicked out to company

you are his successor in charge of manager

might be you will be as him nextwho too

have good luck 

i will living as goes times on step whether good or bad

comes to mind which man as i see you having same mind too

here been all as you what is should know 

would have been first see having be such 

무제

might get goes to sometime will home

might have been pay to fee 

that should be done don't you 

don't you know meaning 

we goes to any where in end as goes running river 

keep going as gone as wind to dreams go ahead

don't ranging we related betwin

he has been dreaming from kid as able to whatsome 

he had been torture by secret police due to do resistant movement

i didn't say anything

i didn't say anything don't you so that 

i didn't say anything like that 

should be well's keep try

should keep going until it does 

had been time to go

i am not help to you but unless that 

it's secret as unless you said to else

as a while comes to mind does to did it 

unless marrried will be not having happened any 

starting in today, you can sharing that replicate medicate

our aim is service  as well as provide a cutting-edge resource to the broader community

cutting-edge technology 

as goes mind i going 

as goes time showed we get better to do whether whatsome ever

to do near die to do fighting 

not able win unless help by else whom

not able fighting alone 

help able need to you by us

i want keep better relation with you

i have comes to think relation a big sees with you from as look forward good result

for better of worth

whether better or worth of both

don't you save not to say

take in away it

when he does happen what

sees as do happen bad to me soon

to whom had been as you are choice either one by forced take  

ارجي جاء هنا شرب

كيف انت فعل فكر في

نفعل شرب مع لكى يفعل حوار

انا سوف تفعل عملت

يفعل عملت  الى راديو برودكاست

هل افعل انت ماذا هنا

ارجي جاء هنا شرب

يجب ممكن ككل عمل

هل لي ان شاء املك هذا المال

انت لا يفعل  رعاية 

هل انت طلب الى اي

سوف ئون طلب من الاحدين

انظر مثل انت لا عرفت ان

بلا مال اي بواسط ل يفعل ما 

هل فعل اصوت الى من

انا كان لم صوت  الى حزب ديموكري

نكرب الى بك ان يفعل طلب الى منا لم

سيكون انت مثل انا قول

عرف سيكون لو سيكون والا لا ما

ملا كوب شرب ل شربك 

بسم الله سوف يفعل عمل 

حمد ل الى انت