CdMe1: octubre 1997

martes, 14 de octubre de 1997

Semejanzas: dibujando casitas de diversos tamaños con WinLogo (LOGO)

; ---------------------------------------------------------
; Semblances: dibuixant casetes 
; de diverses gradàries i d'igual forma
;    © Joan Aranes Clua, 1997
                CC BY 4.0
; ---------------------------------------------------------
procediment cases.decreixents :costat 
  si :costat < 20 [acaba]
  rep 4 [avança :costat gira.dreta 90]
  pinta.façana 9
  teulada :costat
  cases.decreixents :costat - 10
fi

procediment pinta.façana :color
no.llapis gd 45 av 2 llapis fes.color :color pinta
no.llapis recula 2 ge 45 llapis fes.color 1
fi

procediment pinta.teulada :color
no.llapis gd 30 av 2 llapis fes.color :color pinta
no.llapis recula 2 ge 30 llapis fes.color 1
fi

procediment fes.teulada :costat
  av :costat gd 30 
  rep 3 [av :costat gd 120]
fi

procediment teulada :costat
  fes.teulada :costat
  pinta.teulada 10
  no.llapis gd 60 av :costat ge 90 recula :costat llapis
fi

procediment cases.creixents :costat 
  si :costat < 20 [acaba]
  cases.creixents :costat - 10
  rep 4 [avança :costat gira.dreta 90]
  pinta.façana 9
  teulada :costat
fi

procediment cases :costat ;procediment principal
id
no.llapis ge 90 av 200 gd 90 llapis
cases.decreixents :costat
cases.creixents :costat
no.llapis centre llapis
fi 

; ---------------------------------------------------------
cases 60 ;exemple
id

Números cuadrados con WinLogo (LOGO)

; ---------------------------------------------------------
; Uns quants nombres quadrats
;    © Joan Aranes Clua, 1997
                CC BY 4.0
; ---------------------------------------------------------
procediment llista.de.nombres.quadrats :num
  si :num > 15 [acaba]
  (escriu [el quadrat de] :num "és :num * :num) 
  llista.de.nombres.quadrats :num + 1
fi
; ---------------------------------------------------------
llista.de.nombres.quadrats 1 ;exemple

Introducción al cálculo numérico con WinLogo (LOGO). Conversión de horas a minutos

; ---------------------------------------------------------
; Conversió d'hores a minuts
;    © Joan Aranes Clua, 1997
                CC BY 4.0
; ---------------------------------------------------------

procediment conversor.hores.a.minuts
  esborra.text
  mou.cursor [6 2]
  escriu.seguit [Digues un nombre d'hores: $ ]
  posa.a "hores paraula.llegida
  mou.cursor [9 4]
  (escriu :hores [hores són] :hores*60 "minuts)
  escriu " ;salt de linia
  mou.cursor [12 6]
  escriu [Voleu continuar ? (s/n)]
  posa.a "resposta caràcter.llegit
  si :resposta = "n [acaba]
  conversor.hores.a.minuts
fi
; ----------------------------------------------------------

% conversor.hores.a.minuts ;posta en marxa

lunes, 13 de octubre de 1997

Una flor con WinLogo (LOGO)

; ---------------------------------------------------------
; Model d'una senzilla flor 
;    © Joan Aranes Clua, 1997
                CC BY 4.0
; ---------------------------------------------------------

procediment flor :n :color
  id
  repeteix :n [pètal :color gd 360 / :n]
fi

procediment pètal :color
  repeteix 2 [repeteix 90 [av 1 gd 1] gd 90]
  no.llapis gd 45 av 50 llapis fes.color :color pinta
  no.llapis centre ge 45 llapis
  fes.color 1
fi

; ---------------------------------------------------------
flor 15 10 ;un exemple

Modelo de diana con circunferencias concéntricas. Un ejercicio de programación con WinLogo (LOGO)


; ---------------------------------------------------------
; Model d'una diana amb circumferències concètriques 
;    © Joan Aranes Clua, 1997
                CC BY 4.0
; ---------------------------------------------------------

procediment circumferència.centrada :radi :color
  repeteix 200 
    [
      avança 2 * pi * :radi / 200 gira.dreta 360 /200
    ]
  no.llapis 
  gd 90 
  av 15 
  ge 90 
  llapis
  acoloreix :color
fi


procediment acoloreix :nombre.color
  no.llapis 
  gira.dreta 45
  av 4 
  llapis
  fes.color :nombre.color 
  pinta
  no.llapis recula 4
  gira.esquerra 45
  llapis
  fes.color 1
fi

procediment diana
  id
  circumferència.centrada 70 10
  circumferència.centrada 55 11
  circumferència.centrada 40 10
  circumferència.centrada 25 11
  circumferència.centrada 10 1
  desapareix
fi
; ---------------------------------------------------------

;Exemple:
% diana

Pila de circunferencias superpuestas con efecto tridimensional con WinLogo (LOGO)

; ---------------------------------------------------------
; Pila de circumferències amb efecte tridimensional 
;    © Joan Aranes Clua, 1997
                CC BY 4.0
; ---------------------------------------------------------

procediment circumferència :radi :nombre.costats 
  repeteix :nombre.costats 
    [
      avança 2 * pi * :radi / :nombre.costats gira.dreta 360 / :nombre.costats
    ]
fi

procediment pila.de.circumferències :radi :nombre.costats :pas
  id
  repeteix 50 
    [
      circumferència :radi :nombre.costats no.llapis 
      gd 90 
      av :pas 
      ge 90 
      llapis
    ]
fi

; ---------------------------------------------------------
;Exemple:
% pila.de.circumferències  50 100 4

Modelo de una mariposa con WinLogo (LOGO)

; ---------------------------------------------------------
; Model d'una senzilla papallona
;    © Joan Aranes Clua, 1997
                CC BY 4.0
; ---------------------------------------------------------

procediment acoloreix :nombre.color
  no.llapis gira.dreta 30
  av 3 llapis
  fes.color :nombre.color pinta
  no.llapis recula 3
  gira.esquerra 30 llapis fes.color 1
fi

procediment ales :radi :nombre.costats
  posa.a "color 13
  id
  repeteix 4 
    [
      dues.circumferències :radi :nombre.costats :color 
      posa.a "radi :radi - 10 posa.a "color :color - 1
    ]
fi

procediment circumferència :radi :nombre.costats :color
  repeteix :nombre.costats 
    [
      avança 2 * pi * :radi / :nombre.costats gira.dreta 360 / :nombre.costats
    ]
  acoloreix :color
fi


procediment dues.circumferències :radi :nombre.costats :color
  repeteix 2 
  [
    circumferència :radi :nombre.costats :color gd 180
  ]
fi

procediment ull :llarg :radi
  av :llarg
  ge 90
  repeteix 100 
    [
      avança 2 * pi * :radi / 100 gira.dreta 360 / 100
    ]
  gd 90
fi

procediment cos.papallona
  recula 60
  av 90
  ge 20
  ull 10 5 acoloreix 1
  recula 10
  gd 40
  ull 10 5 acoloreix 1
fi


procediment papallona :radi :nombre.costats
  ales :radi :nombre.costats
  cos.papallona 
  desapareix
fi

; ---------------------------------------------------------
;Exemple:
% papallona 100 100

Dibujo de dos circunferencias con colores con WinLogo (LOGO)

; ---------------------------------------------------------
; Dibuix de dues circumferències acolorides
;    © Joan Aranes Clua, 1997
                CC BY 4.0
; ---------------------------------------------------------
procediment acoloreix :nombre.color
  no.llapis gira.dreta 30
  av 3 llapis
  fes.color :nombre.color pinta
  no.llapis recula 3
  gira.esquerra 30 llapis fes.color 1
fi

procediment circumferència :radi :nombre.costats
  repeteix :nombre.costats 
    [avança 2 * pi * :radi / :nombre.costats gira.dreta 360 / :nombre.costats]
  acoloreix 10
fi

procediment dues.circumferències :radi :nombre.costats
  id
  repeteix 2 [circumferència :radi :nombre.costats gd 180]
  fi
; ---------------------------------------------------------
;Exemple:
% dues.circumferències 80 500

Dibujando y pintando polígonos regulares con WinLogo (LOGO)

; ---------------------------------------------------------
; Dibuixant i pintant polígons regulars
;    © Joan Aranes Clua, 1997
                CC BY 4.0
; ---------------------------------------------------------
procediment polígons :mida.costat :nombre.costats
  id
  repeteix :nombre.costats 
     [av :mida.costat gd 360 / :nombre.costats]
  acoloreix 1 + atzar 14
fi

procediment acoloreix :nombre.color
  no.llapis gira.dreta 30
  av 3 llapis
  fes.color :nombre.color pinta
  no.llapis recula 3
  gira.esquerra 30 llapis fes.color 1
fi
; ---------------------------------------------------------
;Exemples:
% polígons 60 3
% polígons 60 4
% polígons 60 5
% polígons 60 6
...

Espiral poligonal equiangular. Un ejercicio de programación con WinLogo (LOGO)

; ------------------------------------------------------------
; Espiral poligonal equiangular con un cierto número de tramos
;    © Joan Aranes Clua, 1997
                CC BY 4.0
; ------------------------------------------------------------
procediment espiral :longitud.costat :nombre.costats 
id
repeteix :nombre.costats [av :longitud.costat 
                          gira.dreta 360/:nombre.costats 
                          posa.a "costat :longitud.costat+5
                         ] 
fi
; ------------------------------------------------------------
; Exemple:
% espiral 40 5

miércoles, 8 de octubre de 1997

Horquilla compuesta de cinco brazos radiales. Un ejercicio de programación con WinLogo (LOGO)

; ---------------------------------------------------------
; Forqueta composta de cinc braços radials
;    © Joan Aranes Clua, 1997
                CC BY 4.0
; ---------------------------------------------------------
procediment forca
  av 70 ge 90 no.llapis av 20 gd 90 llapis
  repeteix 2 [av 20 gd 90 no.llapis av 10 llapis gd 90]
  repeteix 2 [av 20 gd 90 no.llapis av 20 llapis gd 90]
  repeteix 2 [av 20 gd 90 no.llapis av 30 llapis gd 90]
  repeteix 2 [av 20 gd 90 no.llapis av 40 llapis gd 90]
  gd 90 av 40 ge 90
  no.llapis
  centre
  llapis
fi

procediment forqueta_composta
  id
  fes.color 13
  fes.gruix 2
  repeteix 5 [forca gd 72]
  fes.color 1
fi
; ---------------------------------------------------------
% forqueta_composta

Hoja compuesta con WinLogo (LOGO)

; ---------------------------------------------------------
; Fulla composta
;    © Joan Aranes Clua, 1997
                CC BY 4.0
; ---------------------------------------------------------
procediment fulla
  fes.gruix 2
  av 20
  repeteix 2 [gira.esquerra 30 av 40 gira.dreta 60 av 40 gira.dreta 150]
  no.llapis av 40
  fes.color 11 llapis pinta
  fes.color 3 fes.gruix 5 recula 60
  fes.color 1 fes.gruix 1
fi

procediment fulla_composta
  inicia.dibuix
  no.llapis ge 90 av 90 gd 90
  repeteix 4 [llapis fulla no.llapis gd 90 av 60 ge 90]
fi
; ---------------------------------------------------------
% fulla_composta

Hoja múltiple de cinco lóbulos rotulada. Otro ejercicio de programación en WinLogo (LOGO)

; ---------------------------------------------------------
; Hoja de cinco lóbulos con el mismo rótulo en cada uno
;    © Joan Aranes Clua, 1997
                CC BY 4.0
; ---------------------------------------------------------
procediment fulla_retolada
  inicia.dibuix
  fes.fons 16
  fes.gruix 2
  av 20
  repeteix 2 [gira.esquerra 30 av 40 gira.dreta 60 av 40 gira.dreta 150]
  no.llapis av 40
  fes.color 11 llapis pinta
  fes.color 3 fes.gruix 5 recula 60
  fes.color 1 fes.gruix 2
  no.llapis recula 30 gira.esquerra 90 av 30 gira.dreta 180 llapis
  fes.tipus "caligraf retola [fulla]
  desapareix
fi
; ---------------------------------------------------------
% fulla_retolada

Hexágono regular con WinLogo (LOGO)

; ---------------------------------------------------------
; Hexagon regular
;    © Joan Aranes Clua, 1997
                CC BY 4.0
; ---------------------------------------------------------
procediment hexagon
  id
  fes.fons 16
  fes.gruix 2
  fes.color 10
  repeteix 6 [av 80 gd 60]
  no.llapis gd 60 av 10
  fes.color 13
  llapis pinta
  no.llapis centre llapis ge 60
  fes.color 1 fes.gruix 1
fi
; ---------------------------------------------------------
% hexagon

Polígono estrellado de cinco vértices con WinLogo (Logo)

; ---------------------------------------------------------
; Poligon estrellat de cinc vèrtexs
;    © Joan Aranes Clua, 1997
                CC BY 4.0
; ---------------------------------------------------------
rocediment estel5
  id
  fes.color 15
  fes.fons 5
  fes.gruix 5
  gd 18
  repeteix 5 [av 100 gd 144]
  desapareix
fi
; ---------------------------------------------------------
% estel5

martes, 7 de octubre de 1997

Un sencillo ejercicio con WinLogo (Logo) para activar y posicionar más de una tortuga

; ---------------------------------------------------------
; Activant i posicionant més d'una tortuga
;    © Joan Aranes Clua, 1997
                  CC BY 4.0
; ---------------------------------------------------------

fes.actives [1 2]
escriu actives ;dóna el número de les tortugues actives
crida [1] [fes.color 10 apareix posa't [-10 -10]]
crida [2] [fes.color 32 apareix posa't [10 10]]
id

Suscribirse a: Entradas ( Atom )