1
power.t.test(n=100, delta=1.0, sd=2.5)

1
 

1
x=scan(n=3);y=diff(x);z=y[2]/y[1];c(z,x[2]-x[1]*z)

1
2
3
4
5
6
7
8
# João Carlos Moura de Mendonça Vasconcelos nUSP 6796420
# 10/04/2012
# EP-2 de MAP2212
# Objetivo:
# Calcular com quatro métodos diferentes integral por Monte Carlo
# conforme enunciado do EP
 
#source("/Users/nino/Documents/EP2_MAP2212/entrada.txt")
 ...

1
2
3
4
5
6
7
8
# João Carlos Moura de Mendonça Vasconcelos nUSP 6796420
# 10/04/2012
# EP-2 de MAP2212
# Objetivo:
# Calcular com quatro métodos diferentes integral por Monte Carlo
# conforme enunciado do EP
 
#source("/Users/nino/Documents/EP2_MAP2212/entrada.txt")
 ...

1
2
3
4
5
6
7
8
# João Carlos Moura de Mendonça Vasconcelos nUSP 6796420
# 10/04/2012
# EP-2 de MAP2212
# Objetivo:
# Calcular com quatro métodos diferentes integral por Monte Carlo
# conforme enunciado do EP
 
#source("/Users/nino/Documents/EP2_MAP2212/entrada.txt")
 ...

1
2
3
4
5
6
7
8
# João Carlos Moura de Mendonça Vasconcelos nUSP 6796420
# 10/04/2012
# EP-2 de MAP2212
# Objetivo:
# Calcular com quatro métodos diferentes integral por Monte Carlo
# conforme enunciado do EP
 
#source("/Users/nino/Documents/EP2_MAP2212/entrada.txt")
 ...

1
2
3
4
5
6
7
8
9
song<-function(n=99) {
  a<-" bottle"
  b<-" of beer on the wall, "
  c<-" of beer. "
  d<-"Take one down and pass it around: "
  #
  ## set "beer counter" vector
  counter<-c(as.character(n:1),"No more")
  # 
 ...

1
2
3
4
5
6
7
8
9
song<-function(n=99) {
  a<-" bottle"
  b<-" of beer on the wall, "
  c<-" of beer. "
  d<-"Take one down and pass it around: "
  #
  ## set "beer counter" vector
  counter<-c(as.character(n:1),"No more")
  # 
 ...

1
2
3
4
5
6
7
8
9
n = input()
while n:
    try:
        l = raw_input().split()
        a = int(l[0])
        b = int(l[1])
        sum1=0
        
        mul=1
 ...

1
print %"racecar" || "racecar"% tnirp

1
2
3
4
5
6
7
8
9
x<-c(0, 2, 4, 8, 12)
y<-c(1, 0.7, 0.4, 0.3, 0.04)
(dat<-data.frame(x, y))
 
(n1<-nls(y~exp(-a*x), dat, start=list(a=1)))
a<-0.1939
f1<-function(x)(exp(-a*x)) 
 
resid<-function(w){ 
 ...

1
print %"racecar" || "racecar"% tnirp

1
2
3
x <- c(1,2,3,4,5,6)
y <- x^2              # Square the elements of x
print(y)

1
print %"racecar" || "racecar"% tnirp

1
Buchhalter Nötzli sass gerade wieder vor seinem Schreibtisch der SBU am Hauptsitz in Zürich, als er die Nachricht im Radio hörte: Deutsche Steuerfahnder offerieren für gestohlene Bankdaten über 1 Mio Euro! Wie ein Blitz durchfuhr es sein Gehirn..…Er der jahrelang zu einem bescheidenen Lohn bei der Bank arbeitete, derweil seine Vorgesetzten 6-stellige Boni abklassierten, obwohl es der Bank schlecht ging und soeben einen Milliardenverluste eingefahren hat! Wie wär es denn wenn er ………………!? Er ging schnell zum abgesicherten Tresor, gab das geheime Passwort ein und entnahm die geheime Bankdaten - CD um eine Kopie anzufertigen. Er wusste genau was kommen würde, wenn dies entdeckt würde….Befragungen sämtlicher Mitarbeiter mit Hausdurchsuchung nach der kopierten Bankdaten - CD und Einschaltung der Bundespolizei! Aber wo die CD verstecken? Da kam ihm ein Gedanke, schliesslich war er in seiner Freizeit Geocacher!

1
2
3
4
5
6
7
8
9
 
 
#
#
#
 
aA1 <- c(1,2,3,4,5)   
aA1
aA1[1]

1
2
3
4
5
6
7
8
9
 
 
#
#
#
 
aA1 <- c(1,2,3,4,5)   
aA1
aA1[1]

1
2
3
4
5
6
7
8
9
 
 
#
#
#
 
aA1 <- c(1,2,3,4,5)   
aA1
aA1[1]

1
2
3
4
5
6
7
8
9
 
 
#
#
#
 
aA1 <- c(1,2,3,4,5)   
aA1
aA[1]

1
2
3
4
5
6
7
8
 
 
#
#
#
 
aA1 <- c(1,2,3,4,5)   
aA1

1
2
3
4
5
6
7
8
9
 
 
#
#
#
 
 height <- c(180, 175, 168, 173, 165) 
 nm <- c("LEE", "KIM", "PARK", "KANG", "SONG") 
 names(height) <- nm 
 ...

1
2
3
4
5
6
7
8
 
 
 height <- c(180, 175, 168, 173, 165) 
 nm <- c("LEE", "KIM", "PARK", "KANG", "SONG") 
 names(height) <- nm 
 height 
 names(height) <- NULL 
 height

1
2
3
4
 
 
vec1 <- c(1,2,3,4,5)   
vec1[1]

1
2
3
 
 
vec1 <- c(1,2,3,4,5)   

1
2
3
4
5
6
7
8
9
# +++++++++++[>+++++++>++++++++++>++++>+>+++<<<<<-]>---.++++++.>>+++++.++++++.+++.--.---.>>++.<<<<+++++++++.>+++++++++++.------------.++++++++.++++++++.>>>>"Hello World!"+.
print "CI-3641 Rocks!";                 
                        
                        
                         
                                
                                
                                
                          
 ...

1
2
3
4
5
6
7
8
9
song<-function(n=99) {
  a<-" bottle"
  b<-" of beer on the wall, "
  c<-" of beer. "
  d<-"Take one down and pass it around: "
  #
  ## set "beer counter" vector
  counter<-c(as.character(n:1),"No more")
  # 
 ...

1
2
3
4
5
6
7
8
9
song<-function(n=99) {
  a<-" bottle"
  b<-" of beer on the wall, "
  c<-" of beer. "
  d<-"Take one down and pass it around: "
  #
  ## set "beer counter" vector
  counter<-c(as.character(n:1),"No more")
  # 
 ...

1
for (i in 1:1000000) {print(i)}

1
1:100