| Autor |
Mensagem |
st.efferding
Membro |
# mar/18
Atributos de destaque:
- tem um crush no Jung,
- come 4,4g/proteína /kg corpóreo por dia,
- fez supino com 100 kg,
- combate o pós-modernisno e niilismo de uniesquinas
- tem uma filha *.* que faz você parecer um frango
- escreveu dois livros proficionais [1], [2]
- curte lagostas
- humilha vadi@s feminazis e cucks de pipi pequeno em rede nacional
- é cristão (?) mas não vai na igreja porque é esperto
Invejem abaixo.
|
Pleonasmo
Membro Novato |
# mar/18
· votar
st.efferding
cucks de pipi pequeno
Sall desaprova.
|
One More Red Nightmare
Veterano |
# mar/18
· votar
conhece o Bret Weinstein?
|
st.efferding
Membro |
# mar/18
· votar
não
|
brunohardrocker
Veterano |
# mar/18
· votar
Invejo até por morar no Canadá. Mesmo eu preferindo o interior dos EUA.
|
st.efferding
Membro |
# mar/18
· votar
brunohardrocker
pouco me importa
|
One More Red Nightmare
Veterano |
# mar/18
· votar
ZERO CHILLS
|
Insufferable Bear
Membro |
# mar/18 · Editado por: Insufferable Bear
· votar
e é um daqueles retardados que citam os teoremas da incompletude de Gödel sem entender o que eles dizem
e nesse quesito, ele não é diferente do Lacan que tenta usar topologia diferencial também de forma retardada
|
One More Red Nightmare
Veterano |
# mar/18
· votar
ninguém entende o que eles dizem, nem o Godel
|
Insufferable Bear
Membro |
# mar/18
· votar
One More Red Nightmare
Meu orientador consegue explicar de um jeito que até o Jordan Peterson entenderia. Eu não sou bom quanto ele nisso mas poderia tentar...
|
st.efferding
Membro |
# mar/18
· votar
Insufferable Bear
não, ele é o Cesar Millan para humanos
|
Insufferable Bear
Membro |
# mar/18
· votar
st.efferding
ele é o Cesar Millan para humanos
eu vou usar essa analogia pra sempre
|
One More Red Nightmare
Veterano |
# mar/18
· votar
Insufferable Bear
E o que dizer da soma infinita dos números naturais convergir para -1/12?
|
Viciado em Guarana
Veterano |
# mar/18 · Editado por: Viciado em Guarana
· votar
escreveu dois livros proficionais
12 Rules for Life
The Architecture of Belief
vsf zack!
Isso aqui que é livro proficional!
|
brunohardrocker
Veterano |
# mar/18
· votar
Caramba, estou invejando com a força de mil sóis.
|
st.efferding
Membro |
# mar/18
· votar
Viciado em Guarana
Mas esse somente gente inteligente (eu e você) consegue entender
*wink* *wink*
|
Viciado em Guarana
Veterano |
# mar/18 · Editado por: Viciado em Guarana
· votar
S2
:3
|
brunohardrocker
Veterano |
# mar/18
· votar
st.efferding
Come torta!
|
st.efferding
Membro |
# mar/18
· votar
brunohardrocker
=OOOOOO
|
Jonas Kahnwald
Membro Novato |
# mar/18 · Editado por: Jonas Kahnwald
· votar
st.efferding
é cristão (?)
a julgar pelo que ele falou de evolucionismo acho difícil
mas como tem retardado que interpreta texto isolado como se não houvesse o amanha é possível.
P.S mas gostei de como ele respondeu àquela jornalista
|
Insufferable Bear
Membro |
# mar/18
· votar
One More Red Nightmare
Continuação analítica de uma série: https://en.wikipedia.org/wiki/Riemann_zeta_function
https://en.wikipedia.org/wiki/1_%2B_2_%2B_3_%2B_4_%2B_%E2%8B%AF
|
Joseph Conrad
Membro Novato |
# mar/18
· votar
Eu gosto mais do que desgosto.
|
st.efferding
Membro |
# mar/18
· votar
Jonas Kahnwald
A evolução é o retrato prático das regras escritas por Deus para o nosso planeta.
|
Jonas Kahnwald
Membro Novato |
# mar/18
· votar
Insufferable Bear
acha o erro aí
(defun c:SL ()
(setq layercorrente (getvar 'clayer))
(defun dtr (a) (* Pi (/ a 180.0)))
(defun rtd (b) (* b (/ 180.0 Pi)))
(defun LM:intersections ( ob1 ob2 mod / lst rtn )
(if (and (vlax-method-applicable-p ob1 'intersectwith)
(vlax-method-applicable-p ob2 'intersectwith)
(setq lst (vlax-invoke ob1 'intersectwith ob2 mod))
)
(repeat (/ (length lst) 3)
(setq rtn (cons (list (car lst) (cadr lst) (caddr lst)) rtn)
lst (cdddr lst)
)
)
)
(reverse rtn)
)
(defun LM:intersectionsbetweensets ( ss1 ss2 / id1 id2 ob1 ob2 rtn )
(repeat (setq id1 (sslength ss1))
(setq ob1 (vlax-ename->vla-object (ssname ss1 (setq id1 (1- id1)))))
(repeat (setq id2 (sslength ss2))
(setq ob2 (vlax-ename->vla-object (ssname ss2 (setq id2 (1- id2))))
rtn (cons (LM:intersections ob1 ob2 acextendnone) rtn)
)
)
)
(apply 'append (reverse rtn))
)
(setvar "OSNAPCOORD" 1)
(princ "Selecione o layer delimitador de aberturas:")
(if (not layerlimit) (setq layerlimit (ssget "_:s")))
(princ "Selecione os layers identificadores de aberturas:")
(if (not layerid) (setq layerid (ssget)))
(setq esp (getdist "\nDigite a espessura da parede <enter = ultima espessura>: "))
(if (= esp nil) (setq esp esptemp))
(setq esptemp esp)
(setq altura_texto (getdist "\nInsira a altura do texto:"))
(cond
((and (= altura_texto nil) (= altura_textotemp nil)) (setq altura_texto esp)
)
((and (= altura_texto nil) (/= altura_textotemp nil)) (setq altura_texto altura_textotemp)
)
)
(setq numero (getint "Indique o numero da próxima parede <enter = ultimo numero de parede>:"))
(cond
((and (= numero nil) (= numero_old nil))
(setq numero 1)
)
((and (= numero nil) (/= numero_old nil))
(setq numero numero_old)
)
)
(setq numero_old numero)
(setq texto (itoa numero))
(command "_-style" "loks" "txt" altura_texto "1" "" "" "" "")
(setq rotation 0)
(setq ponto1 (getpoint "\nInsira o primeiro ponto de inserção da parede levando em conta o sentido anti-horário:"))
(setq ponto2 (getpoint "\nInsira o segundo ponto de inserção:"))
(setq comprimento (distance ponto1 ponto2))
(setq ang1 (angle ponto1 ponto2))
(setq ang2 (rtd ang1))
(setq ang3 (+ ang2 90.0))
(if (>= ang3 360.0) (setq ang3 (- ang3 360)))
(setq ang4 (+ ang2 270.0))
(if (>= ang4 360.0) (setq ang4 (- ang4 360)))
(setq ang5 (+ ang2 225.0))
(if (>= ang5 360.0) (setq ang5 (- ang5 360)))
(setq ang6 (+ ang2 45.0))
(if (>= ang6 360.0) (setq ang6 (- ang6 360)))
(setq ponto3 (polar ponto2 (dtr ang3) esp))
(setq ponto4 (polar ponto1 (dtr ang3) esp))
(setq zoompt1 (polar ponto1 (dtr ang5) esp))
(setq zoompt2 (polar ponto3 (dtr ang6) esp))
(setq pontoref (polar ponto1 ang1 (/ comprimento 2)))
(cond
((<= 0 ang4 105) (setq pontotxt (polar pontoref (dtr ang4) (* 1.5 altura_texto)))
)
((and (< 105 ang4 255) (<= 0 numero 9)) (setq pontotxt (polar pontoref (dtr ang4) (* 2 altura_texto)))
)
((and (< 105 ang4 255) (<= 10 numero 99)) (setq pontotxt (polar pontoref (dtr ang4) (* 2.5 altura_texto)))
)
((and (< 105 ang4 255) (<= 100 numero)) (setq pontotxt (polar pontoref (dtr ang4) (* 3.4 altura_texto)))
)
((<= 255 ang4 300) (setq pontotxt (polar pontoref (dtr ang4) (* 2 altura_texto)))
)
((< 300 ang4 360) (setq pontotxt (polar pontoref (dtr ang4) (* 1.5 altura_texto)))
)
)
(setvar 'clayer layercorrente)
(command "zoom" zoompt1 zoompt2)
(command "pline" ponto1 ponto2 ponto3 ponto4 "c")
(command "-LAYER" "M" "-TEXTO" "C" "60" "" "")
(command "text" pontotxt rotation texto)
(command "-LAYER" "M" "_AUXILIAR_LOKS" "C" "7" "" "")
(command "line" ponto4 ponto3 "")
(setq ss1 (ssget "_L"))
(command "layiso" layerlimit "")
(setq ss2 (ssget "_C" ponto1 ponto3))
(command "layuniso")
(setq listadepontos (LM:intersectionsbetweensets ss1 ss2))
(setq listadepontos (vl-sort listadepontos '(lambda (a b) (< (distance ponto4 a) (distance ponto4 b)))))
(command "erase" ss1 "")
(while (/= listadepontos nil)
(cond
((/= listadepontos nil)
(setq pt1 (car listadepontos))
(setq pt2 (cadr listadepontos))
(setq pt3 (polar pt2 (dtr ang4) esp))
(setq pt4 (polar pt1 (dtr ang4) esp))
(setq ptss1 (polar pt2 (dtr ang5) (/ esp 3.0)))
(setq ptss2 (polar pt4 (dtr ang6) (/ esp 3.0)))
(command "layiso" layerid "")
(command "zoom" pt1 pt3)
(setq ss3 (ssget ptss1 ptss2))
(command "layuniso")
(command "-LAYER" "M" "-ABERTURA_JANELAS" "C" "211" "" "")
(cond
((/= ss3 nil)
(command "pline" pt1 pt2 pt3 pt4 "c")
(setvar 'clayer layercorrente)
)
)
(setq listadepontos (cdr listadepontos))
)
)
)
(setvar 'clayer layercorrente)
(while (/= ponto1 nil)
(setq ponto1 (getpoint "\nInsira o primeiro ponto de inserção da parede levando em conta o sentido anti-horário:"))
(cond
((/= ponto1 nil)
(setq ponto2 (getpoint "\nInsira o segundo ponto de inserção:"))
(setq comprimento (distance ponto1 ponto2))
(setq ang1 (angle ponto1 ponto2))
(setq ang2 (rtd ang1))
(setq ang3 (+ ang2 90.0))
(if (>= ang3 360.0) (setq ang3 (- ang3 360)))
(setq ang4 (+ ang2 270.0))
(if (>= ang4 360.0) (setq ang4 (- ang4 360)))
(setq ang5 (+ ang2 225.0))
(if (>= ang5 360.0) (setq ang5 (- ang5 360)))
(setq ang6 (+ ang2 45.0))
(if (>= ang6 360.0) (setq ang6 (- ang6 360)))
(setq ponto3 (polar ponto2 (dtr ang3) esp))
(setq ponto4 (polar ponto1 (dtr ang3) esp))
(setq zoompt1 (polar ponto1 (dtr ang5) esp))
(setq zoompt2 (polar ponto3 (dtr ang6) esp))
(setq pontoref (polar ponto1 ang1 (/ comprimento 2)))
(cond
((<= 0 ang4 105) (setq pontotxt (polar pontoref (dtr ang4) (* 1.5 altura_texto)))
)
((and (< 105 ang4 255) (<= 0 numero 9)) (setq pontotxt (polar pontoref (dtr ang4) (* 2 altura_texto)))
)
((and (< 105 ang4 255) (<= 10 numero 99)) (setq pontotxt (polar pontoref (dtr ang4) (* 2.5 altura_texto)))
)
((and (< 105 ang4 255) (<= 100 numero)) (setq pontotxt (polar pontoref (dtr ang4) (* 3.4 altura_texto)))
)
((<= 255 ang4 300) (setq pontotxt (polar pontoref (dtr ang4) (* 2 altura_texto)))
)
((< 300 ang4 360) (setq pontotxt (polar pontoref (dtr ang4) (* 1.5 altura_texto)))
)
)
(setq numero (+ numero 1))
(setq texto (itoa numero))
(setvar 'clayer layercorrente)
(command "zoom" zoompt1 zoompt2)
(command "pline" ponto1 ponto2 ponto3 ponto4 "c")
(command "-LAYER" "M" "-TEXTO" "C" "60" "" "")
(command "text" pontotxt rotation texto)
(command "-LAYER" "M" "_AUXILIAR_LOKS" "C" "7" "" "")
(command "line" ponto4 ponto3 "")
(setq ss1 (ssget "_L"))
(command "layiso" layerlimit "")
(setq ss2 (ssget "_C" ponto1 ponto3))
(command "layuniso")
(setq listadepontos (LM:intersectionsbetweensets ss1 ss2))
(setq listadepontos (vl-sort listadepontos '(lambda (a b) (< (distance ponto4 a) (distance ponto4 b)))))
(command "erase" ss1 "")
(while (/= listadepontos nil)
(cond
((/= listadepontos nil)
(setq pt1 (car listadepontos))
(setq pt2 (cadr listadepontos))
(setq pt3 (polar pt2 (dtr ang4) esp))
(setq pt4 (polar pt1 (dtr ang4) esp))
(setq ptss1 (polar pt2 (dtr ang5) (/ esp 3.0)))
(setq ptss2 (polar pt4 (dtr ang6) (/ esp 3.0)))
(command "layiso" layerid "")
(command "zoom" pt1 pt3)
(setq ss3 (ssget ptss1 ptss2))
(command "layuniso")
(command "-LAYER" "M" "-ABERTURA_JANELAS" "C" "211" "" "")
(cond
((/= ss3 nil)
(command "pline" pt1 pt2 pt3 pt4 "c")
(setvar 'clayer layercorrente)
)
)
(setq listadepontos (cdr listadepontos))
)
)
)
(setvar 'clayer layercorrente)
)
)
)
(setq numero_old (+ numero 1))
)
(princ "\nDIGITE SL PARA DESENHAR O MAPA DE PAREDES E AS PAREDES ELEVADAS.")
(princ)
|
st.efferding
Membro |
# mar/18
· votar
Insufferable Bear
Pare de postar essas masturbações crípticas com propósito de raciocínio circular no meu tópico.
|
Insufferable Bear
Membro |
# mar/18 · Editado por: Insufferable Bear
· votar
acha o erro aí
tá escrito em Lisp
st.efferding
eu só estou respondendo o que me perguntaram, reclama com o One More Red Nightmare
|
st.efferding
Membro |
# mar/18
· votar
Insufferable Bear
get a room you two
|
Jonas Kahnwald
Membro Novato |
# mar/18 · Editado por: Jonas Kahnwald
· votar
Insufferable Bear
tá escrito em Lisp
pq isso é ruim?
P.S
“Sabias que a soma de todos os inteiros positivos é -1/12?”
“A sério? Portanto, tecnicamente, se me emprestares dinheiro sem fim, acabas por ser tu a ficar-me a dever dinheiro?”
“Bom, estás a tomar isto demasiado literalmente.”
“Estou a começar a apaixonar-me pela Matemática!”
|
One More Red Nightmare
Veterano |
# mar/18
· votar
acabas por ser tu a ficar-me a dever dinheiro
falso. se é infinito, nunca vai ter um acabas
|
Insufferable Bear
Membro |
# mar/18
· votar
Jonas Kahnwald
identifique o erro: (((((((((((((((((((((((((((((()))))))))))))))))))))))))))))))
|