@Joao_Bianco

Atividade extra 2 - Exercício 1

updated August 05, 2021 · R
# --------------------------------------------------------------------------------------------------
#  -------------------------- 1. Exercício 2.1.17 das notas de aula, item B.------------------------
# --------------------------------------------------------------------------------------------------

# parte b) Um emprestimo de 114.900,00 reais é pago em 96 parcelas fixas mensais de 1.159,00 reais, com entrada
# de um cheque de R$11.000,00 para 1 de agosto e um de R$30.000,00 para 1 de setemb

Atividade extra 2 - Exercicio 2

updated August 04, 2021 · R
# --------------------------------------------------------------------------------------------------
#  ------------------ 2. Resolva o Exercício 2.1.22 das notas de Aula.------------------------------
# --------------------------------------------------------------------------------------------------

f1<-function(u){   # Definição de f1
    x=u[1]
    y=u[2]
    z=u[3]
    return(2-6*y^2+6*x*y^4+2*x+6*x^2+12*x^3*y^2+8*x^3+6*x^5+z)
}

Exercício 2 Prova 1

updated July 30, 2021 · R
# Gráfico em 3 dimensões

# Curva
# Superfície z=f(x,y)

x <- seq(-2,2, by=0.3)
y <- seq(-2,2,by=0.3)
mf<-function(s,r){
    z=s+r*1i; Mod(4*r^6+23*r^5+54*r^4+65*r^3+40*r^2+9*r-2)^2# f(x,y); auxiliar para gráfico
}

Exercício 3 Prova 1

updated July 30, 2021 · R
# Resolver a equação f(x,y)=(f1(x,y),f2(x,y),f3(x,y))=(0,0.5,sqrt(2)).

f1<-function(u){   # Definição de f1
    x=u[1]
    y=u[2]
    z=u[3]
    return(2-6*y^2+6*x*y^4+2*x+6*x^2+12*x^3*y^2+8*x^3+6*x^5)
}

f2<-function(u){   # Definição de f2
    x=u[1]

RaizPolinomio (exercicio 2??)

updated July 28, 2021 · R
# Gráfico em 3 dimensões

# Curva
# Superfície z=f(x,y)

x <- seq(-2,2, by=0.3)
y <- seq(-2,2,by=0.3)
mf<-function(s,r){z=s+r*1i; Mod(4*r^6+23*r^5+54*r^4+65*r^3+40*r^2+9*r-2)^2# f(x,y); auxiliar para gráfico
}

require(grDevices) # for trans3d

Exercício 1 Prova 1

updated July 28, 2021 · R
F<-function(s,u){
    1/(1+u^2)
}

# Condição inicial y(0)=0, y'=1/(1+t^2)=F(t,y). 
n=20
a=147; b=151
h=(b-a)/n 

t=seq(a,b,by=h)
w=0*t 

Exercicio2

updated July 28, 2021 · R
valorInicial = 1200
valor = valorInicial
dividaRestante = valorInicial
parcela = 300
tempo = 6
juros = 0

while (dividaRestante >= 0){
    valor = dividaRestante
    juros = (parcela + dividaRestante - valor)/dividaRestante
    dividaRestante = dividaRestante - valor * (1+juros) - parcela

Exercicio3.1

updated July 26, 2021 · R
# Resolver a equação f(x,y)=(f1(x,y),f2(x,y),f3(x,y))=(0,0.5,sqrt(2)).

f1<-function(u){   # Definição de f1
    x=u[1]
    y=u[2]
    z=u[3]
    return(2-6*y^2+6*x*y^4+2*x+6*x^2+12*x^3*y^2+8*x^3+6*x^5)
}

f2<-function(u){   # Definição de f2
    x=u[1]
F<-function(s,u){
    1+u^2
}

# Condição inicial y(0)=0, y'=1+y^2=F(t,y). 
n=10
a=0; b=1
h=(b-a)/n 

t=seq(a,b,by=h)
w=0*t 

Exercicio1

updated July 28, 2021 · R
F<-function(s,u){
    1/(1+u^2)
}

# Condição inicial y(0)=0, y'=1/(1+t^2)=F(t,y). 
n=10
a=0; b=150
h=(b-a)/n 

t=seq(a,b,by=h)
w=0*t 

Exercicio3.

updated July 21, 2021 · R
# Resolver a equação f(x,y)=(f1(x,y),f2(x,y),f3(x,y))=(0,0.5,sqrt(2)).

f1<-function(u){   # Definição de f1
    x=u[1]
    y=u[2]
    z=u[3]
    return(2-6*y^2+6*x*y^4+2*x+6*x^2+12*x^3*y^2+8*x^3+6*x^5)
}

f2<-function(u){   # Definição de f2
    x=u[1]

Exercicio3

updated July 15, 2021 · R
# Gráfico em 3 dimensões

# Resolver a equação f(x,y)=(f1(x,y),f2(x,y))=(0,0).

f1<-function(u){   # Definição de f1
  r=u[1]
  s=u[2]
  return(2-6*s^2+6*r*s^4+2*r+6*r^2+12*r^3*s^2+8*r^3+6*r^5)
}

x <- seq(-4,4, by=0.05)