diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

purge non-source files

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@57 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2001-06-06 20:21:16 +00:00
parent 2a94b16a8c
commit f31bd95ada
14 changed files with 0 additions and 420 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
Logtalk/examples/symdiff/log1.pl
View File

@ -1,25 +0,0 @@
:- op(600,xfy,::).
:- op(600,fy,::).
:- op(600,fx,^^).
:- dynamic log1__ddcl/4.
:- dynamic log1__ddef/5.
log1_(log1__dcl,log1__def,log1__super,log1__sdcl,log1__sdef,log1__ddcl,log1__ddef).
log1__dcl(_9931,_9932,_9933,_9934):-fail.
log1__dcl(_9931,_9932,_9933,_9934,log(_9938),log(_9938)):-log1__dcl(_9931,_9932,_9933,_9934).
log1__dcl(_9931,_9932,_9933,_9934,log(_9938),log(_9938)):-log1__ddcl(_9931,_9932,_9933,_9934).
log1__dcl(_9931,_9932,_9933,_9934,log(_9938),_9936):-symdiffp0__dcl(_9931,_9932,_9933,_9934,_9936).
log1__def(diff(_9934),_9929,_9930,_9931,log1_diff1(_9934,_9929,_9930,_9931)).
log1__def(diff(_9934,_9935),_9929,_9930,_9931,log1_diff2(_9934,_9935,_9929,_9930,_9931)).
log1__def(simplify(_9934),_9929,_9930,_9931,log1_simplify1(_9934,_9929,_9930,_9931)).
log1__def(simplify(_9934,_9935),_9929,_9930,_9931,log1_simplify2(_9934,_9935,_9929,_9930,_9931)).
log1__def(_9931,_9932,_9933,_9934,_9935,log(_9938)):-log1__def(_9931,_9932,_9933,_9934,_9935).
log1__def(_9931,_9932,_9933,_9934,_9935,log(_9938)):-log1__ddef(_9931,_9932,_9933,_9934,_9935).
log1__super(_9931,_9932,_9933,_9934,_9935,_9936):-fail.
log1_diff1(_9931,_9932,log(_9936),_9934):-once(log1_diff2(_9936,_9931,_9932,log(_9936),_9934)).
log1_diff2(_9931,0,_9933,_9934,_9935):-integer(_9931).
log1_diff2(_9931,_9937*_9931** -1,_9933,_9934,_9935):-lgt_send_to_object(_9931,diff(_9937),_9934).
log1_simplify1(_9931,_9932,log(_9936),_9934):-once(log1_simplify2(_9936,_9931,_9932,log(_9936),_9934)).
log1_simplify2(1,0,_9930,_9931,_9932).
log1_simplify2(_9931,_9932,_9933,_9934,_9935):-integer(_9931),_9932 is log(_9931).
log1_simplify2(_9928,_9928,_9930,_9931,_9932).
:- initialization((lgt_assert_relation_clauses([lgt_current_object_(log(_9945),log1_,log1__dcl,log1__def,log1__super),lgt_implements_protocol_(log(_9953),symdiffp,public)]))).

33
Logtalk/examples/symdiff/log1.xml
View File

@ -1,33 +0,0 @@
<?xml version="1.0"?>
<!DOCTYPE logtalk SYSTEM "logtalk.dtd">
<?xml-stylesheet type="text/xsl" href="logtalk.xsl"?>
<logtalk>
<entity>
<name><![CDATA[log(Expression)]]></name>
<type>object</type>
<compilation>static</compilation>
<comment><![CDATA[Symbolic differentiation and simplification of log/1 expressions.]]></comment>
<authors><![CDATA[Paulo Moura]]></authors>
<version>1.0</version>
<date>1999/12/29</date>
<info>
<key>source</key>
<value><![CDATA[Example based on the Clocksin and Mellish Prolog book.]]></value>
</info>
</entity>
<relations>
<implements>
<name><![CDATA[symdiffp]]></name>
<scope>public</scope>
<file><![CDATA[symdiffp]]></file>
</implements>
</relations>
<predicates>
<public>
</public>
<protected>
</protected>
<private>
</private>
</predicates>
</logtalk>

31
Logtalk/examples/symdiff/minus2.pl
View File

@ -1,31 +0,0 @@
:- op(600,xfy,::).
:- op(600,fy,::).
:- op(600,fx,^^).
:- dynamic '-2__ddcl'/4.
:- dynamic '-2__ddef'/5.
'-2_'('-2__dcl','-2__def','-2__super','-2__sdcl','-2__sdef','-2__ddcl','-2__ddef').
'-2__dcl'(_17137,_17138,_17139,_17140):-fail.
'-2__dcl'(_17137,_17138,_17139,_17140,_17144-_17145,_17144-_17145):-'-2__dcl'(_17137,_17138,_17139,_17140).
'-2__dcl'(_17137,_17138,_17139,_17140,_17144-_17145,_17144-_17145):-'-2__ddcl'(_17137,_17138,_17139,_17140).
'-2__dcl'(_17137,_17138,_17139,_17140,_17144-_17145,_17142):-symdiffp0__dcl(_17137,_17138,_17139,_17140,_17142).
'-2__def'(diff(_17140),_17135,_17136,_17137,'-2_diff1'(_17140,_17135,_17136,_17137)).
'-2__def'(diff(_17140,_17141,_17142),_17135,_17136,_17137,'-2_diff3'(_17140,_17141,_17142,_17135,_17136,_17137)).
'-2__def'(simplify(_17140),_17135,_17136,_17137,'-2_simplify1'(_17140,_17135,_17136,_17137)).
'-2__def'(simplify(_17140,_17141,_17142),_17135,_17136,_17137,'-2_simplify3'(_17140,_17141,_17142,_17135,_17136,_17137)).
'-2__def'(_17137,_17138,_17139,_17140,_17141,_17144-_17145):-'-2__def'(_17137,_17138,_17139,_17140,_17141).
'-2__def'(_17137,_17138,_17139,_17140,_17141,_17144-_17145):-'-2__ddef'(_17137,_17138,_17139,_17140,_17141).
'-2__super'(_17137,_17138,_17139,_17140,_17141,_17142):-fail.
'-2_diff1'(_17137,_17138,_17142-_17143,_17140):-once('-2_diff3'(_17142,_17143,_17137,_17138,_17142-_17143,_17140)).
'-2_diff3'(_17137,_17138,0,_17140,_17141,_17142):-integer(_17137),integer(_17138).
'-2_diff3'(_17137,_17138,_17139,_17140,_17141,_17142):-integer(_17138),lgt_send_to_object(_17137,diff(_17139),_17141).
'-2_diff3'(_17137,_17138,_17139,_17140,_17141,_17142):-integer(_17137),lgt_send_to_object(_17138,diff(_17139),_17141).
'-2_diff3'(_17137,_17138,_17144-_17145,_17140,_17141,_17142):-lgt_send_to_object(_17137,diff(_17144),_17141),lgt_send_to_object(_17138,diff(_17145),_17141).
'-2_simplify1'(_17137,_17138,_17142-_17143,_17140):-once('-2_simplify3'(_17142,_17143,_17137,_17138,_17142-_17143,_17140)).
'-2_simplify3'(_17134,_17134,0,_17137,_17138,_17139).
'-2_simplify3'(_17137,_17138,_17139,_17140,_17141,_17142):-integer(_17137),integer(_17138),_17139 is _17137-_17138.
'-2_simplify3'(_17137,0,_17139,_17140,_17141,_17142):-lgt_send_to_object(_17137,simplify(_17139),_17141).
'-2_simplify3'(0,_17138,_17139,_17140,_17141,_17142):-lgt_send_to_object(_17138,simplify(_17139),_17141).
'-2_simplify3'(_17137,_17138,_17144-_17138,_17140,_17141,_17142):-integer(_17138),lgt_send_to_object(_17137,simplify(_17144),_17141).
'-2_simplify3'(_17137,_17138,_17137-_17145,_17140,_17141,_17142):-integer(_17137),lgt_send_to_object(_17138,simplify(_17145),_17141).
'-2_simplify3'(_17137,_17138,_17139,_17140,_17141,_17142):-lgt_send_to_object(_17137,simplify(_17151),_17141),lgt_send_to_object(_17138,simplify(_17160),_17141),(_17137-_17138\=_17151-_17160->lgt_send_to_object_nv(_17151-_17160,simplify(_17139),_17141);_17139=_17151-_17160).
:- initialization((lgt_assert_relation_clauses([lgt_current_object_(_17151-_17152,'-2_','-2__dcl','-2__def','-2__super'),lgt_implements_protocol_(_17160-_17161,symdiffp,public)]))).

33
Logtalk/examples/symdiff/minus2.xml
View File

@ -1,33 +0,0 @@
<?xml version="1.0"?>
<!DOCTYPE logtalk SYSTEM "logtalk.dtd">
<?xml-stylesheet type="text/xsl" href="logtalk.xsl"?>
<logtalk>
<entity>
<name><![CDATA[Expression1-Expression2]]></name>
<type>object</type>
<compilation>static</compilation>
<comment><![CDATA[Symbolic differentiation and simplification of -/2 expressions.]]></comment>
<authors><![CDATA[Paulo Moura]]></authors>
<version>1.0</version>
<date>1999/12/29</date>
<info>
<key>source</key>
<value><![CDATA[Example based on the Clocksin and Mellish Prolog book.]]></value>
</info>
</entity>
<relations>
<implements>
<name><![CDATA[symdiffp]]></name>
<scope>public</scope>
<file><![CDATA[symdiffp]]></file>
</implements>
</relations>
<predicates>
<public>
</public>
<protected>
</protected>
<private>
</private>
</predicates>
</logtalk>

30
Logtalk/examples/symdiff/plus2.pl
View File

@ -1,30 +0,0 @@
:- op(600,xfy,::).
:- op(600,fy,::).
:- op(600,fx,^^).
:- dynamic '+2__ddcl'/4.
:- dynamic '+2__ddef'/5.
'+2_'('+2__dcl','+2__def','+2__super','+2__sdcl','+2__sdef','+2__ddcl','+2__ddef').
'+2__dcl'(_24091,_24092,_24093,_24094):-fail.
'+2__dcl'(_24091,_24092,_24093,_24094,_24098+_24099,_24098+_24099):-'+2__dcl'(_24091,_24092,_24093,_24094).
'+2__dcl'(_24091,_24092,_24093,_24094,_24098+_24099,_24098+_24099):-'+2__ddcl'(_24091,_24092,_24093,_24094).
'+2__dcl'(_24091,_24092,_24093,_24094,_24098+_24099,_24096):-symdiffp0__dcl(_24091,_24092,_24093,_24094,_24096).
'+2__def'(diff(_24094),_24089,_24090,_24091,'+2_diff1'(_24094,_24089,_24090,_24091)).
'+2__def'(diff(_24094,_24095,_24096),_24089,_24090,_24091,'+2_diff3'(_24094,_24095,_24096,_24089,_24090,_24091)).
'+2__def'(simplify(_24094),_24089,_24090,_24091,'+2_simplify1'(_24094,_24089,_24090,_24091)).
'+2__def'(simplify(_24094,_24095,_24096),_24089,_24090,_24091,'+2_simplify3'(_24094,_24095,_24096,_24089,_24090,_24091)).
'+2__def'(_24091,_24092,_24093,_24094,_24095,_24098+_24099):-'+2__def'(_24091,_24092,_24093,_24094,_24095).
'+2__def'(_24091,_24092,_24093,_24094,_24095,_24098+_24099):-'+2__ddef'(_24091,_24092,_24093,_24094,_24095).
'+2__super'(_24091,_24092,_24093,_24094,_24095,_24096):-fail.
'+2_diff1'(_24091,_24092,_24096+_24097,_24094):-once('+2_diff3'(_24096,_24097,_24091,_24092,_24096+_24097,_24094)).
'+2_diff3'(_24091,_24092,0,_24094,_24095,_24096):-integer(_24091),integer(_24092).
'+2_diff3'(_24091,_24092,_24093,_24094,_24095,_24096):-integer(_24092),lgt_send_to_object(_24091,diff(_24093),_24095).
'+2_diff3'(_24091,_24092,_24093,_24094,_24095,_24096):-integer(_24091),lgt_send_to_object(_24092,diff(_24093),_24095).
'+2_diff3'(_24091,_24092,_24098+_24099,_24094,_24095,_24096):-lgt_send_to_object(_24091,diff(_24098),_24095),lgt_send_to_object(_24092,diff(_24099),_24095).
'+2_simplify1'(_24091,_24092,_24096+_24097,_24094):-once('+2_simplify3'(_24096,_24097,_24091,_24092,_24096+_24097,_24094)).
'+2_simplify3'(_24091,_24092,_24093,_24094,_24095,_24096):-integer(_24091),integer(_24092),_24093 is _24091+_24092.
'+2_simplify3'(_24091,0,_24093,_24094,_24095,_24096):-lgt_send_to_object(_24091,simplify(_24093),_24095).
'+2_simplify3'(0,_24092,_24093,_24094,_24095,_24096):-lgt_send_to_object(_24092,simplify(_24093),_24095).
'+2_simplify3'(_24091,_24092,_24098+_24092,_24094,_24095,_24096):-integer(_24092),lgt_send_to_object(_24091,simplify(_24098),_24095).
'+2_simplify3'(_24091,_24092,_24091+_24099,_24094,_24095,_24096):-integer(_24091),lgt_send_to_object(_24092,simplify(_24099),_24095).
'+2_simplify3'(_24091,_24092,_24093,_24094,_24095,_24096):-lgt_send_to_object(_24091,simplify(_24105),_24095),lgt_send_to_object(_24092,simplify(_24114),_24095),(_24091+_24092\=_24105+_24114->lgt_send_to_object_nv(_24105+_24114,simplify(_24093),_24095);_24093=_24105+_24114).
:- initialization((lgt_assert_relation_clauses([lgt_current_object_(_24105+_24106,'+2_','+2__dcl','+2__def','+2__super'),lgt_implements_protocol_(_24114+_24115,symdiffp,public)]))).

33
Logtalk/examples/symdiff/plus2.xml
View File

@ -1,33 +0,0 @@
<?xml version="1.0"?>
<!DOCTYPE logtalk SYSTEM "logtalk.dtd">
<?xml-stylesheet type="text/xsl" href="logtalk.xsl"?>
<logtalk>
<entity>
<name><![CDATA[Expression1+Expression2]]></name>
<type>object</type>
<compilation>static</compilation>
<comment><![CDATA[Symbolic differentiation and simplification of +/2 expressions.]]></comment>
<authors><![CDATA[Paulo Moura]]></authors>
<version>1.0</version>
<date>1999/12/29</date>
<info>
<key>source</key>
<value><![CDATA[Example based on the Clocksin and Mellish Prolog book.]]></value>
</info>
</entity>
<relations>
<implements>
<name><![CDATA[symdiffp]]></name>
<scope>public</scope>
<file><![CDATA[symdiffp]]></file>
</implements>
</relations>
<predicates>
<public>
</public>
<protected>
</protected>
<private>
</private>
</predicates>
</logtalk>

26
Logtalk/examples/symdiff/power2.pl
View File

@ -1,26 +0,0 @@
:- op(600,xfy,::).
:- op(600,fy,::).
:- op(600,fx,^^).
:- dynamic '**2__ddcl'/4.
:- dynamic '**2__ddef'/5.
'**2_'('**2__dcl','**2__def','**2__super','**2__sdcl','**2__sdef','**2__ddcl','**2__ddef').
'**2__dcl'(_37598,_37599,_37600,_37601):-fail.
'**2__dcl'(_37598,_37599,_37600,_37601,_37605**_37606,_37605**_37606):-'**2__dcl'(_37598,_37599,_37600,_37601).
'**2__dcl'(_37598,_37599,_37600,_37601,_37605**_37606,_37605**_37606):-'**2__ddcl'(_37598,_37599,_37600,_37601).
'**2__dcl'(_37598,_37599,_37600,_37601,_37605**_37606,_37603):-symdiffp0__dcl(_37598,_37599,_37600,_37601,_37603).
'**2__def'(diff(_37601),_37596,_37597,_37598,'**2_diff1'(_37601,_37596,_37597,_37598)).
'**2__def'(diff(_37601,_37602,_37603),_37596,_37597,_37598,'**2_diff3'(_37601,_37602,_37603,_37596,_37597,_37598)).
'**2__def'(simplify(_37601),_37596,_37597,_37598,'**2_simplify1'(_37601,_37596,_37597,_37598)).
'**2__def'(simplify(_37601,_37602,_37603),_37596,_37597,_37598,'**2_simplify3'(_37601,_37602,_37603,_37596,_37597,_37598)).
'**2__def'(_37598,_37599,_37600,_37601,_37602,_37605**_37606):-'**2__def'(_37598,_37599,_37600,_37601,_37602).
'**2__def'(_37598,_37599,_37600,_37601,_37602,_37605**_37606):-'**2__ddef'(_37598,_37599,_37600,_37601,_37602).
'**2__super'(_37598,_37599,_37600,_37601,_37602,_37603):-fail.
'**2_diff1'(_37598,_37599,_37603**_37604,_37601):-once('**2_diff3'(_37603,_37604,_37598,_37599,_37603**_37604,_37601)).
'**2_diff3'(_37598,_37599,_37599*_37598**_37612*_37606,_37601,_37602,_37603):-integer(_37599),_37612 is _37599-1,lgt_send_to_object(_37598,diff(_37606),_37602).
'**2_diff3'(_37598,_37599,_37599*_37598**_37612*_37606,_37601,_37602,_37603):-_37612=_37599-1,lgt_send_to_object(_37598,diff(_37606),_37602).
'**2_simplify1'(_37598,_37599,_37603**_37604,_37601):-once('**2_simplify3'(_37603,_37604,_37598,_37599,_37603**_37604,_37601)).
'**2_simplify3'(_37595,0,1,_37598,_37599,_37600).
'**2_simplify3'(_37595,1,_37595,_37598,_37599,_37600).
'**2_simplify3'(_37598,_37599,_37605**_37599,_37601,_37602,_37603):-integer(_37599),lgt_send_to_object(_37598,simplify(_37605),_37602).
'**2_simplify3'(_37598,_37599,_37605**_37606,_37601,_37602,_37603):-lgt_send_to_object(_37598,simplify(_37605),_37602),lgt_send_to_object(_37599,simplify(_37606),_37602).
:- initialization((lgt_assert_relation_clauses([lgt_current_object_(_37612**_37613,'**2_','**2__dcl','**2__def','**2__super'),lgt_implements_protocol_(_37621**_37622,symdiffp,public)]))).

33
Logtalk/examples/symdiff/power2.xml
View File

@ -1,33 +0,0 @@
<?xml version="1.0"?>
<!DOCTYPE logtalk SYSTEM "logtalk.dtd">
<?xml-stylesheet type="text/xsl" href="logtalk.xsl"?>
<logtalk>
<entity>
<name><![CDATA[Expression**Power]]></name>
<type>object</type>
<compilation>static</compilation>
<comment><![CDATA[Symbolic differentiation and simplification of **/2 expressions.]]></comment>
<authors><![CDATA[Paulo Moura]]></authors>
<version>1.0</version>
<date>1999/12/29</date>
<info>
<key>source</key>
<value><![CDATA[Example based on the Clocksin and Mellish Prolog book.]]></value>
</info>
</entity>
<relations>
<implements>
<name><![CDATA[symdiffp]]></name>
<scope>public</scope>
<file><![CDATA[symdiffp]]></file>
</implements>
</relations>
<predicates>
<public>
</public>
<protected>
</protected>
<private>
</private>
</predicates>
</logtalk>

8
Logtalk/examples/symdiff/symdiffp.pl
View File

@ -1,8 +0,0 @@
:- op(600,xfy,::).
:- op(600,fy,::).
:- op(600,fx,^^).
symdiffp0_(symdiffp0__dcl).
symdiffp0__dcl(diff(_2249),p(p(p)),static,no).
symdiffp0__dcl(simplify(_2249),p(p(p)),static,no).
symdiffp0__dcl(_2247,_2248,_2249,_2250,symdiffp):-symdiffp0__dcl(_2247,_2248,_2249,_2250).
:- initialization((lgt_assert_relation_clauses([lgt_current_protocol_(symdiffp,symdiffp0_)]))).

50
Logtalk/examples/symdiff/symdiffp.xml
View File

@ -1,50 +0,0 @@
<?xml version="1.0"?>
<!DOCTYPE logtalk SYSTEM "logtalk.dtd">
<?xml-stylesheet type="text/xsl" href="logtalk.xsl"?>
<logtalk>
<entity>
<name><![CDATA[symdiffp]]></name>
<type>protocol</type>
<compilation>static</compilation>
<comment><![CDATA[Symbolic differentiation and simplification protocol.]]></comment>
<authors><![CDATA[Paulo Moura]]></authors>
<version>1.0</version>
<date>1999/12/29</date>
<info>
<key>source</key>
<value><![CDATA[Example based on the Clocksin and Mellish Prolog book.]]></value>
</info>
</entity>
<relations>
</relations>
<predicates>
<public>
<predicate>
<name><![CDATA[diff/1]]></name>
<scope>public</scope>
<compilation>static</compilation>
<mode>
<template><![CDATA[diff(-expression)]]></template>
<solutions>one</solutions>
</mode>
<comment><![CDATA[Returns the symbolic differentiation of self.]]></comment>
<template><![CDATA[diff(Expression)]]></template>
</predicate>
<predicate>
<name><![CDATA[simplify/1]]></name>
<scope>public</scope>
<compilation>static</compilation>
<mode>
<template><![CDATA[simplify(-expression)]]></template>
<solutions>one</solutions>
</mode>
<comment><![CDATA[Returns the symbolic simplification of self.]]></comment>
<template><![CDATA[simplify(Expression)]]></template>
</predicate>
</public>
<protected>
</protected>
<private>
</private>
</predicates>
</logtalk>

34
Logtalk/examples/symdiff/times2.pl
View File

@ -1,34 +0,0 @@
:- op(600,xfy,::).
:- op(600,fy,::).
:- op(600,fx,^^).
:- dynamic '*2__ddcl'/4.
:- dynamic '*2__ddef'/5.
'*2_'('*2__dcl','*2__def','*2__super','*2__sdcl','*2__sdef','*2__ddcl','*2__ddef').
'*2__dcl'(_32011,_32012,_32013,_32014):-fail.
'*2__dcl'(_32011,_32012,_32013,_32014,_32018*_32019,_32018*_32019):-'*2__dcl'(_32011,_32012,_32013,_32014).
'*2__dcl'(_32011,_32012,_32013,_32014,_32018*_32019,_32018*_32019):-'*2__ddcl'(_32011,_32012,_32013,_32014).
'*2__dcl'(_32011,_32012,_32013,_32014,_32018*_32019,_32016):-symdiffp0__dcl(_32011,_32012,_32013,_32014,_32016).
'*2__def'(diff(_32014),_32009,_32010,_32011,'*2_diff1'(_32014,_32009,_32010,_32011)).
'*2__def'(diff(_32014,_32015,_32016),_32009,_32010,_32011,'*2_diff3'(_32014,_32015,_32016,_32009,_32010,_32011)).
'*2__def'(simplify(_32014),_32009,_32010,_32011,'*2_simplify1'(_32014,_32009,_32010,_32011)).
'*2__def'(simplify(_32014,_32015,_32016),_32009,_32010,_32011,'*2_simplify3'(_32014,_32015,_32016,_32009,_32010,_32011)).
'*2__def'(_32011,_32012,_32013,_32014,_32015,_32018*_32019):-'*2__def'(_32011,_32012,_32013,_32014,_32015).
'*2__def'(_32011,_32012,_32013,_32014,_32015,_32018*_32019):-'*2__ddef'(_32011,_32012,_32013,_32014,_32015).
'*2__super'(_32011,_32012,_32013,_32014,_32015,_32016):-fail.
'*2_diff1'(_32011,_32012,_32016*_32017,_32014):-once('*2_diff3'(_32016,_32017,_32011,_32012,_32016*_32017,_32014)).
'*2_diff3'(_32011,_32012,0,_32014,_32015,_32016):-integer(_32011),integer(_32012).
'*2_diff3'(0,_32009,0,_32011,_32012,_32013).
'*2_diff3'(_32008,0,0,_32011,_32012,_32013).
'*2_diff3'(_32011,_32012,_32012*_32019,_32014,_32015,_32016):-integer(_32012),lgt_send_to_object(_32011,diff(_32019),_32015).
'*2_diff3'(_32011,_32012,_32011*_32019,_32014,_32015,_32016):-integer(_32011),lgt_send_to_object(_32012,diff(_32019),_32015).
'*2_diff3'(_32011,_32012,_32011*_32022+_32024*_32012,_32014,_32015,_32016):-lgt_send_to_object(_32011,diff(_32024),_32015),lgt_send_to_object(_32012,diff(_32022),_32015).
'*2_simplify1'(_32011,_32012,_32016*_32017,_32014):-once('*2_simplify3'(_32016,_32017,_32011,_32012,_32016*_32017,_32014)).
'*2_simplify3'(_32011,_32012,_32013,_32014,_32015,_32016):-integer(_32011),integer(_32012),_32013 is _32011*_32012.
'*2_simplify3'(0,_32009,0,_32011,_32012,_32013).
'*2_simplify3'(_32008,0,0,_32011,_32012,_32013).
'*2_simplify3'(1,_32012,_32013,_32014,_32015,_32016):-lgt_send_to_object(_32012,simplify(_32013),_32015).
'*2_simplify3'(_32011,1,_32013,_32014,_32015,_32016):-lgt_send_to_object(_32011,simplify(_32013),_32015).
'*2_simplify3'(_32011,_32012,_32011*_32019,_32014,_32015,_32016):-integer(_32011),lgt_send_to_object(_32012,simplify(_32019),_32015).
'*2_simplify3'(_32011,_32012,_32012*_32019,_32014,_32015,_32016):-integer(_32012),lgt_send_to_object(_32011,simplify(_32019),_32015).
'*2_simplify3'(_32011,_32012,_32018*_32019,_32014,_32015,_32016):-lgt_send_to_object(_32011,simplify(_32018),_32015),lgt_send_to_object(_32012,simplify(_32019),_32015).
:- initialization((lgt_assert_relation_clauses([lgt_current_object_(_32025*_32026,'*2_','*2__dcl','*2__def','*2__super'),lgt_implements_protocol_(_32034*_32035,symdiffp,public)]))).

33
Logtalk/examples/symdiff/times2.xml
View File

@ -1,33 +0,0 @@
<?xml version="1.0"?>
<!DOCTYPE logtalk SYSTEM "logtalk.dtd">
<?xml-stylesheet type="text/xsl" href="logtalk.xsl"?>
<logtalk>
<entity>
<name><![CDATA[Expression1*Expression2]]></name>
<type>object</type>
<compilation>static</compilation>
<comment><![CDATA[Symbolic differentiation and simplification of */2 expressions.]]></comment>
<authors><![CDATA[Paulo Moura]]></authors>
<version>1.0</version>
<date>1999/12/29</date>
<info>
<key>source</key>
<value><![CDATA[Example based on the Clocksin and Mellish Prolog book.]]></value>
</info>
</entity>
<relations>
<implements>
<name><![CDATA[symdiffp]]></name>
<scope>public</scope>
<file><![CDATA[symdiffp]]></file>
</implements>
</relations>
<predicates>
<public>
</public>
<protected>
</protected>
<private>
</private>
</predicates>
</logtalk>

18
Logtalk/examples/symdiff/x.pl
View File

@ -1,18 +0,0 @@
:- op(600,xfy,::).
:- op(600,fy,::).
:- op(600,fx,^^).
:- dynamic x0__ddcl/4.
:- dynamic x0__ddef/5.
x0_(x0__dcl,x0__def,x0__super,x0__sdcl,x0__sdef,x0__ddcl,x0__ddef).
x0__dcl(_5074,_5075,_5076,_5077):-fail.
x0__dcl(_5074,_5075,_5076,_5077,x,x):-x0__dcl(_5074,_5075,_5076,_5077).
x0__dcl(_5074,_5075,_5076,_5077,x,x):-x0__ddcl(_5074,_5075,_5076,_5077).
x0__dcl(_5074,_5075,_5076,_5077,x,_5079):-symdiffp0__dcl(_5074,_5075,_5076,_5077,_5079).
x0__def(diff(_5077),_5072,_5073,_5074,x0_diff1(_5077,_5072,_5073,_5074)).
x0__def(simplify(_5077),_5072,_5073,_5074,x0_simplify1(_5077,_5072,_5073,_5074)).
x0__def(_5074,_5075,_5076,_5077,_5078,x):-x0__def(_5074,_5075,_5076,_5077,_5078).
x0__def(_5074,_5075,_5076,_5077,_5078,x):-x0__ddef(_5074,_5075,_5076,_5077,_5078).
x0__super(_5074,_5075,_5076,_5077,_5078,_5079):-fail.
x0_diff1(1,_5072,_5073,_5074).
x0_simplify1(x,_5072,_5073,_5074).
:- initialization((lgt_assert_relation_clauses([lgt_current_object_(x,x0_,x0__dcl,x0__def,x0__super),lgt_implements_protocol_(x,symdiffp,public)]))).

33
Logtalk/examples/symdiff/x.xml
View File

@ -1,33 +0,0 @@
<?xml version="1.0"?>
<!DOCTYPE logtalk SYSTEM "logtalk.dtd">
<?xml-stylesheet type="text/xsl" href="logtalk.xsl"?>
<logtalk>
<entity>
<name><![CDATA[x]]></name>
<type>object</type>
<compilation>static</compilation>
<comment><![CDATA[Symbolic differentiation and simplification of a variable.]]></comment>
<authors><![CDATA[Paulo Moura]]></authors>
<version>1.0</version>
<date>1999/12/29</date>
<info>
<key>source</key>
<value><![CDATA[Example based on the Clocksin and Mellish Prolog book.]]></value>
</info>
</entity>
<relations>
<implements>
<name><![CDATA[symdiffp]]></name>
<scope>public</scope>
<file><![CDATA[symdiffp]]></file>
</implements>
</relations>
<predicates>
<public>
</public>
<protected>
</protected>
<private>
</private>
</predicates>
</logtalk>