renamed fconstant G into PHI; more documentation (3f45d7a0) · Commits · Bernd Paysan / gforth

complex.fs

+3 −3

Original line number	Diff line number	Diff line
		@@ -117,11 +117,11 @@ previous
		zln z2/ zexp THEN ;
		: z ( z1 z2 -- z1z2 ) zswap zln z* zexp ;
		\ Test: Fibonacci-Zahlen
		1e 5e fsqrt f+ f2/ fconstant g 1e g f- fconstant -h
		1e 5e fsqrt f+ f2/ fconstant phi 1e phi f- fconstant -h
		: zfib ( z1 -- fib[z1] )
		zdup z>r g 0e zswap z**
		zdup z>r phi 0e zswap z**
		zr> zswap z>r -h 0e zswap z** znegate zr> z+
		[ g -h f- 1/f ] FLiteral zscale ;
		[ phi -h f- 1/f ] FLiteral zscale ;

		\ complexe Operationen 02mar05py

+5 −1

Original line number	Diff line number	Diff line
		@@ -12450,17 +12450,21 @@ doc-edit

		doc-help

		@code{Help} sets the current location, so you can use @code{n} and
		@code{b} to show more of the text, or @code{g} to visit the
		documentation in an editor (@pxref{Locating source code definitions}).

		@node Locating uses of a word, Locating exception source, Locating documentation, Programming Tools
		@subsection Locating uses of a word
		@cindex Uses of a word

		doc-where
		doc-whereg
		doc-ww
		doc-nw
		doc-bw
		doc-gg
		doc-ll
		doc-whereg

		@node Locating exception source, Examining compiled code, Locating uses of a word, Programming Tools
		@subsection Locating exception source

+2 −1

Original line number	Diff line number	Diff line
		@@ -127,6 +127,7 @@ variable included-file-buffers
		name-set-located-view l ;

		: locate ( "name" -- ) \ gforth
		\g Show the source code of the word @i{name}.
		(') locate-name ;

		' locate alias view ( "name" -- ) \ gforth