Chris Ried cdr6934

## 0_reuse_code.js
// Use Gists to store code you would like to remember later on
console.log(window); // log the "window" object to the console

## file
<html>
<head>
	<title>Stacked Bar Chart</title>
	<script type="text/javascript" src="protovis.js"></script>
	</head>
	<body>
		<div id="figure-wrapper">
			<div id="figure">
			<script type="text/javascript+protovis">


## edit_distance_perl
#!/usr/bin/perl
#The purpose of this algorithm is to identify
# the edit distance of two words in similarity.

#Enter both words for alignment

print "Please enter first word: ";
chomp($one = <STDIN>);
print "Please enter second word: ";
chomp($two = <STDIN>);

## DivvyRides.R
library(dplyr)
library(ggplot2)
library(viridis)
library(ggthemes)

#import all the files
temp <- list.files(pattern="*.csv")
alldata<- do.call(rbind, lapply(temp, function(x) read.csv(x, stringsAsFactors = FALSE)))


## gist:d6965a0551cbd802e980ed153969f141
  res <- sqlQuery(dbhandle, query1)
  odbcClose(dbhandle)
  result <- data.frame(res)
  result

## import_csv.R
import(readr)

online_orders <- read_csv("online_orders.csv",
                                col_types = cols(ORDER_DATE = col_datetime(format = "%Y-%m-%d %H:%M:%S"),
                                STATUS_DATE = col_datetime(format = "%Y-%m-%d %H:%M:%S")))

## Processing
int cnt = 100;
int[][] color_collection = new color[5][5];
FingerMonster[] fm = new FingerMonster[cnt];
int t,i,j;
color c, c1, c2;
int[] colors = new int[5];

void setup(){
  size(3000,2000);
  noStroke();

## circular_wealth.pde
float n,r, div,margin;
int iter;
color a, b;
void setup()
{
  size(1000,1000);
  background(255);
  n = 6;
  r = 5;
  a = getColor();

## noiseField.pde
/*
Programing: Noise Field
 Name: @Generate.Collective
 Color functions are tewmplates used by @manolode
*/

///////////////////////////////////////////////////////////


int move, n;

## Spiraling Arc
/*
Programing: Explorations in the Arc Realm
 Name: Chris Ried
*/

ArcLine[][] al;
float start_arc, stop_arc, r, diff, margin, x, y, nf;
float noise_factor;
int n;
void setup()
	// Use Gists to store code you would like to remember later on
	console.log(window); // log the "window" object to the console
	<html>
	<head>
	<title>Stacked Bar Chart</title>
	<script type="text/javascript" src="protovis.js"></script>
	</head>
	<body>
	<div id="figure-wrapper">
	<div id="figure">
	<script type="text/javascript+protovis">
	#!/usr/bin/perl
	#The purpose of this algorithm is to identify
	# the edit distance of two words in similarity.

	#Enter both words for alignment

	print "Please enter first word: ";
	chomp($one = <STDIN>);
	print "Please enter second word: ";
	chomp($two = <STDIN>);
	library(dplyr)
	library(ggplot2)
	library(viridis)
	library(ggthemes)

	#import all the files
	temp <- list.files(pattern="*.csv")
	alldata<- do.call(rbind, lapply(temp, function(x) read.csv(x, stringsAsFactors = FALSE)))
	res <- sqlQuery(dbhandle, query1)
	odbcClose(dbhandle)
	result <- data.frame(res)
	result
	import(readr)

	online_orders <- read_csv("online_orders.csv",
	col_types = cols(ORDER_DATE = col_datetime(format = "%Y-%m-%d %H:%M:%S"),
	STATUS_DATE = col_datetime(format = "%Y-%m-%d %H:%M:%S")))
	int cnt = 100;
	int[][] color_collection = new color[5][5];
	FingerMonster[] fm = new FingerMonster[cnt];
	int t,i,j;
	color c, c1, c2;
	int[] colors = new int[5];

	void setup(){
	size(3000,2000);
	noStroke();
	float n,r, div,margin;
	int iter;
	color a, b;
	void setup()
	{
	size(1000,1000);
	background(255);
	n = 6;
	r = 5;
	a = getColor();
	/*
	Programing: Noise Field
	Name: @Generate.Collective
	Color functions are tewmplates used by @manolode
	*/

	///////////////////////////////////////////////////////////


	int move, n;
	/*
	Programing: Explorations in the Arc Realm
	Name: Chris Ried
	*/

	ArcLine[][] al;
	float start_arc, stop_arc, r, diff, margin, x, y, nf;
	float noise_factor;
	int n;
	void setup()