This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// VDC 256x200 modes | |
// by YTM/Elysium, 2022 | |
// | |
// in C64 mode (with cartridge or due to holding C= key) call VDC_Init first | |
// in C128 mode proper VDC timings are already initialized by Kernal | |
// | |
// (for KickAssembler) | |
// BasicUpstart128 macro from https://github.com/wiebow/examples.c128 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
/* | |
This doesn't allow for full protocol decode, I have only 1-channel remote. | |
rf433_mhz confirms the pulse length settings: 4800,1500,700,350,8000 | |
----UP------8<---------UP----------- | |
YOODA UP | |
string format: c:0123232323232332323232323232323223232323233223323223233232323232233232322323232334;p:4797,1506,722,352,8019@ |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# circular means by using vector method #### | |
# from http://math.stackexchange.com/questions/44621/calculate-average-wind-direction | |
circmean <- function(ws,wd,na.rm=TRUE) { | |
V_east = mean(ws*sin(wd * pi/180),na.rm=na.rm) | |
V_north = mean(ws*cos(wd * pi/180),na.rm=na.rm) | |
mean_WD = atan2(V_east, V_north) * 180/pi | |
mean_WD = (360 + mean_WD) %% 360 | |
return(mean_WD) | |
} | |
circlength <- function(ws,wd,na.rm=TRUE) { |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library("RCurl") | |
library("jsonlite") | |
library("ggplot2") | |
library("RColorBrewer") | |
library("scales") | |
library("gridExtra") | |
api.key <- "yourAPIkey" | |
rt <- getURI(paste0("http://api.rottentomatoes.com/api/public/v1.0/lists/dvds/top_rentals.json?apikey=", api.key, "&limit=50")) |