Paste number 51815: SQL Square root

Paste number 51815: SQL Square root
Pasted by: faxathisia
7 months, 3 weeks ago
#lispcafe | Context in IRC logs
Paste contents:
Raw Source | XML | Display As
-- Square root procedure
-- Purpose: Y is automatically set to the (approximate)
--          sqrt of X upon insertion
-- Example Usage: INSERT INTO Sqrt VALUES(3.0,NULL);

CREATE TABLE Sqrt (X real, Y real DEFAULT 0.0);
CREATE TRIGGER newton_iterate AFTER INSERT ON Sqrt
 BEGIN
  UPDATE Sqrt SET Y = X;
  UPDATE Sqrt SET Y = (Y+X/Y)/2; UPDATE Sqrt SET Y = (Y+X/Y)/2;
  UPDATE Sqrt SET Y = (Y+X/Y)/2; UPDATE Sqrt SET Y = (Y+X/Y)/2;
  UPDATE Sqrt SET Y = (Y+X/Y)/2; UPDATE Sqrt SET Y = (Y+X/Y)/2;
  UPDATE Sqrt SET Y = (Y+X/Y)/2; UPDATE Sqrt SET Y = (Y+X/Y)/2;
  UPDATE Sqrt SET Y = (Y+X/Y)/2; UPDATE Sqrt SET Y = (Y+X/Y)/2;
  UPDATE Sqrt SET Y = (Y+X/Y)/2; UPDATE Sqrt SET Y = (Y+X/Y)/2;
 END;

This paste has no annotations.

Colorize as:
Show Line Numbers

Ads absolutely not by Google

Lisppaste pastes can be made by anyone at any time. Imagine a fearsomely comprehensive disclaimer of liability. Now fear, comprehensively.