DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦2c9eda492⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »DIFF.SCL«

Derivation

└─⟦216f59cd8⟧ Bits:30002641 SCANLOG - Piccoline vers. nov. 87
    └─ ⟦this⟧ »DIFF.SCL«

TextFile

vælg_een d
  d(K,X,0) hvor 
       K <> X og 
       (konstant(K) eller heltal(K)).
  d(X,X,1).
  d(-U,X,-A) hvis 
       d(U,X,A).
  d(U+V,X,A+B) hvis 
       d(U,X,A) og 
       d(V,X,B).
  d(U-V,X,A-B) hvis 
       d(U,X,A) og 
       d(V,X,B).
  d(K*U,X,K*A) hvor 
       (konstant(K) eller heltal(K)) og 
       K <> X hvis 
       d(U,X,A).
  d(U*V,X,B*U+A*V) hvis 
       d(U,X,A) og 
       d(V,X,B).
  d(U/V,X,A) hvis 
       d(U*pot(V,-1),X,A).
  d(pot(U,K),X,V*W*pot(U,K-1)) hvor 
       (heltal(K) eller konstant(K)) hvis 
       K <> X og 
       d(U,X,W).
  d(log(U),X,A*pot(U,-1)) hvis 
       d(U,X,A).
slut.
«eof»