Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.lang.forth > #18052 > unrolled thread

Re: Search Google, 1960:s-style

Back to article view | Back to comp.lang.forth

This discussion starts older than the indexed window; earlier articles aren't shown. The article labeled Started by below is the oldest one visible, not the original post.

Contents

  Re: Search Google, 1960:s-style "Stanley Daniel de Liver" <notagoodone@invalid.org.invalid> - 2012-12-17 19:58 +0000
    Re: Search Google, 1960:s-style Tarkin <tarkin000@gmail.com> - 2012-12-17 14:58 -0800
      Re: Search Google, 1960:s-style Alex McDonald <blog@rivadpm.com> - 2012-12-17 22:34 -0800

#18052 — Re: Search Google, 1960:s-style

On Fri, 14 Dec 2012 21:00:55 -0000, <hancock4@bbs.cpcn.com> wrote:

> On Dec 14, 3:40 pm, Michael Black <et...@ncf.ca> wrote:
>
>> For all the expense, and size, most of them are quite simple.  Some
>> controls, some electronics now, the motor in a washing machine, the
>> heating elements in an oven.  Yet often very bulky to work on, and  
>> nobody
>> is going to take it in to fix it, they require a serviceman to come to  
>> the
>> house.
>
> After usage for some time, repairing a major appliance isn't usually
> econonically justified.  Labor and parts are expensive, and it becomes
> cheaper just to get a new one.
>
> I don't think of an automatic washing machine was "quite simple".  It
> may be old technology, not as complex as an automobile, but it does
> various tasks fully automatically.  It knows how to fill the tub with
> water of the proper temperature, to stop filling when full, then start
> the wash cycle, to drain the water, knowing when to stop, then refill
> with rinse water, then draining and executing a spin cycle.  The
> controls engage and disengage multiple electrical-mechanical
> components in the course of that process.  There are some safety
> interlocks built in, too.  It has some measure of durability and
> reliability (commercial grade units have more ruggedness).
>
This is a standard Forth programming example!
Which I don't have to hand ATM.
Hopefully a Forther can post it.

(xpost added)


-- 
[dash dash space newline 4line sig]

Money/Life question

[toc] | [next] | [standalone]

#18055

On Dec 17, 2:58 pm, "Stanley Daniel de Liver"
<notagood...@invalid.org.invalid> wrote:
> On Fri, 14 Dec 2012 21:00:55 -0000, <hanco...@bbs.cpcn.com> wrote:
> > On Dec 14, 3:40 pm, Michael Black <et...@ncf.ca> wrote:
>
> >> For all the expense, and size, most of them are quite simple.  Some
> >> controls, some electronics now, the motor in a washing machine, the
> >> heating elements in an oven.  Yet often very bulky to work on, and
> >> nobody
> >> is going to take it in to fix it, they require a serviceman to come to
> >> the
> >> house.
>
> > After usage for some time, repairing a major appliance isn't usually
> > econonically justified.  Labor and parts are expensive, and it becomes
> > cheaper just to get a new one.
>
> > I don't think of an automatic washing machine was "quite simple".  It
> > may be old technology, not as complex as an automobile, but it does
> > various tasks fully automatically.  It knows how to fill the tub with
> > water of the proper temperature, to stop filling when full, then start
> > the wash cycle, to drain the water, knowing when to stop, then refill
> > with rinse water, then draining and executing a spin cycle.  The
> > controls engage and disengage multiple electrical-mechanical
> > components in the course of that process.  There are some safety
> > interlocks built in, too.  It has some measure of durability and
> > reliability (commercial grade units have more ruggedness).
>
> This is a standard Forth programming example!
> Which I don't have to hand ATM.
> Hopefully a Forther can post it.
>
> (xpost added)
>
> --
> [dash dash space newline 4line sig]
>
> Money/Life question

From Leo Brodie's 'Starting Forth':

: WASHER WASH SPIN RINSE SPIN ;

: RINSE  FAUCETS OPEN  TILL-FULL  FAUCETS CLOSE ;

ok.

[toc] | [prev] | [next] | [standalone]

#18060

On Dec 17, 2:58 pm, Tarkin <tarkin...@gmail.com> wrote:
> On Dec 17, 2:58 pm, "Stanley Daniel de Liver"
>
>
>
>
>
>
>
>
>
> <notagood...@invalid.org.invalid> wrote:
> > On Fri, 14 Dec 2012 21:00:55 -0000, <hanco...@bbs.cpcn.com> wrote:
> > > On Dec 14, 3:40 pm, Michael Black <et...@ncf.ca> wrote:
>
> > >> For all the expense, and size, most of them are quite simple.  Some
> > >> controls, some electronics now, the motor in a washing machine, the
> > >> heating elements in an oven.  Yet often very bulky to work on, and
> > >> nobody
> > >> is going to take it in to fix it, they require a serviceman to come to
> > >> the
> > >> house.
>
> > > After usage for some time, repairing a major appliance isn't usually
> > > econonically justified.  Labor and parts are expensive, and it becomes
> > > cheaper just to get a new one.
>
> > > I don't think of an automatic washing machine was "quite simple".  It
> > > may be old technology, not as complex as an automobile, but it does
> > > various tasks fully automatically.  It knows how to fill the tub with
> > > water of the proper temperature, to stop filling when full, then start
> > > the wash cycle, to drain the water, knowing when to stop, then refill
> > > with rinse water, then draining and executing a spin cycle.  The
> > > controls engage and disengage multiple electrical-mechanical
> > > components in the course of that process.  There are some safety
> > > interlocks built in, too.  It has some measure of durability and
> > > reliability (commercial grade units have more ruggedness).
>
> > This is a standard Forth programming example!
> > Which I don't have to hand ATM.
> > Hopefully a Forther can post it.
>
> > (xpost added)
>
> > --
> > [dash dash space newline 4line sig]
>
> > Money/Life question
>
> From Leo Brodie's 'Starting Forth':
>
> : WASHER WASH SPIN RINSE SPIN ;
>
> : RINSE  FAUCETS OPEN  TILL-FULL  FAUCETS CLOSE ;
>
> ok.

That's a fraction of it. From Forth Inc's web site;

( Washing Machine Embedded Application )
\ Port assignments
01 CONSTANT PORT

\ bit-mask     name       bit-mask      name
    1 CONSTANT MOTOR       8 CONSTANT FAUCETS
    2 CONSTANT CLUTCH   16 CONSTANT DETERGENT
    4 CONSTANT PUMP       32 CONSTANT LEVEL

\ A colon begins a new definition.

\ Device control
: ON ( mask -- ) PORT C@ OR PORT C! ;
: OFF ( mask -- ) INVERT PORT C@ AND PORT C! ;

\ Definitions can contain generic SwiftX words and any others you've
defined…

\ Timing functions
: SECONDS ( n -- ) 0 ?DO 1000 MS LOOP ;
: MINUTES ( n -- ) 60 * SECONDS ;

: TILL-FULL ( -- ) \ Wait till level switch is on
     BEGIN PORT C@ LEVEL AND UNTIL ;

\ …so, application-specific functions are defined in terms of previous
definitions…

\ Washing machine functions
: ADD ( port -- ) DUP ON 10 SECONDS OFF ;
: DRAIN ( -- ) PUMP ON 3 MINUTES ;
: AGITATE ( -- ) MOTOR ON 10 MINUTES MOTOR OFF ;
: SPIN ( -- ) CLUTCH ON MOTOR ON
    5 MINUTES MOTOR OFF CLUTCH OFF PUMP OFF ;
: FILL-TUB ( -- ) FAUCETS ON TILL-FULL FAUCETS OFF ;

\ Wash cycles
: WASH ( -- ) FILL-TUB DETERGENT ADD AGITATE DRAIN ;
: RINSE ( -- ) FILL-TUB AGITATE DRAIN ;

\ …until you reach the main application definition.

\ Top-level control
: WASHER ( -- ) WASH SPIN RINSE SPIN ;

[toc] | [prev] | [standalone]

Back to top | Article view | comp.lang.forth

csiph-web