Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- "CLASE UNIFORME
- color
- ^color.
- color: unColor
- color := unColor.
- costurasExtras
- ^costurasExtras.
- costurasExtras: unaCantidad
- costurasExtras := costurasExtras + unaCantidad.
- initialize
- refuerzos := 0.
- costurasExtras := 0.
- resistenciaMaterial := 2.
- leyenda
- ^leyenda.
- leyenda: unaLeyenda
- leyenda := unaLeyenda.
- material
- ^self material.
- material: unMtaterial
- material := unMaterial.
- refuerzos
- ^refuerzos.
- refuerzos: unaCantidad
- refuerzos := refuerzos + unaCantidad.
- resistenciaMaterial
- ^resistenciaMaterial.
- resistenciaUniforme
- ^ resistenciaUniforme := (self resistenciaMaterial + (0.5 *self refuerzos)) * (1 + (0.2 * self costurasExtras)).
Add Comment
Please, Sign In to add comment