;;;; -*-  Mode: LISP; Syntax: Common-Lisp; Base: 10                    -*-
;;;; ---------------------------------------------------------------------
;;;; File name: context-vectors-examples.lsp
;;;;    System: FIRE
;;;;    Author: Praveen Paritosh
;;;;   Created: July 17, 2002 04:10:23
;;;;   Purpose: Testing out the context vector idea 
;;;; ---------------------------------------------------------------------
;;;;  Modified: Friday, September 20, 2002 at 15:15:20 by paritosh
;;;; ---------------------------------------------------------------------

(in-package :fire)

(defun make-countries-list (&optional (reasoner *reasoner*) (kb *kb*))
  (let ((country-assertions (ask-it '(data::isa ?x data::IndependentCountry) :reasoner reasoner))
         (countries nil))
    (dolist (ind country-assertions)
      (push (second ind) countries))
    (values (sort (remove-duplicates countries) 'string<))))

(defun make-conceptuallyCoRelated-list (&optional (reasoner *reasoner*) (kb *kb*))
  (let ((assertions (ask-it '(data::conceptuallyCoRelated ?x ?y) :reasoner reasoner))
        (related nil))
    (dolist (assertion assertions)
      (push (third assertion) related)
      (push (second assertion) related))
    (setq related (remove-duplicates related :test 'equal))
    (setq related (sort related 'string< :key 'symbol-name))
    (values related)))


;; Running the examples

(setq *test-countries* '(data::India data::Nepal data::Niger data::France data::Germany))
(defparameter *corel-basic* nil)
(defparameter *corel-normalized* nil)
(defparameter *country-basic* nil)
(defparameter *country-normalized* nil)


(defun test-assoc-test ()
  (multiple-value-setq (test-basic test-normalized) (make-assoc-matrices *test-countries*))
  (save-assoc-matrices *test-countries* test-basic test-normalized 
                             "d:\\qrg\\fire\\v1\\data\\assoc\\test-basic.txt"
                             "d:\\qrg\\fire\\v1\\data\\assoc\\test-normal.txt"))
  

(defun test-assoc-corel ()
  (multiple-value-setq (*corel-basic* *corel-normalized*) (make-assoc-matrices *co-related*))
  (save-assoc-matrices *co-related* *corel-basic* *corel-normalized* 
                             "d:\\qrg\\fire\\v1\\data\\assoc\\corel-basic.txt"
                             "d:\\qrg\\fire\\v1\\data\\assoc\\corel-normal.txt"))
  
(defun test-assoc-country ()
  (multiple-value-setq (*country-basic* *country-normalized*) (make-assoc-matrices *countries*))
  (save-assoc-matrices *countries* *country-basic* *country-normalized* 
                       "d:\\qrg\\fire\\v1\\data\\assoc\\country-basic.txt"
                       "d:\\qrg\\fire\\v1\\data\\assoc\\country-normal.txt"))


(defparameter *co-related* 
  '(data::Tobacco-TheStuff 
    data::Smoking data::Shopping
    data::DepartmentStore data::Travel-TripEvent data::TravelReservation
    data::AirplaneTicket data::AirlineReservation data::JaguarDealership
    data::JaguarCar data::Taiwan-RepublicOfChina
    data::China-PeoplesRepublic data::Craps-TheGame data::Die-TheCube
    data::SuzukiMotorcycle data::SuzukiTheCompany data::TieTack
    data::Tie-Clothing data::WorkAgreement data::JobClassifiedAd
    data::ReproductiveSystem data::ReproductiveHormone data::Napkin
    data::NapkinRing data::PoliticalParty data::Politics
    data::Fantasy-Genre data::Fantasy-PictorialGenre data::WillSmith
    data::DjJazzyJeff-MusicalPerformer data::ElectronicSynthesizer
    data::MIDI data::HarleyDavidsonInc data::HarleyDavidsonMotorcycle
    data::FishingHook data::FishingLine data::GPSNavigator
    data::GlobalPositioningSystem data::Gun data::GunControl-Issue
    data::YamahaCorp data::YamahaMotorcycle data::GuitarTablatureText
    data::OnLineGuitarArchives data::OnLineGuitarArchives
    data::Guitar-Generic data::ToyotaTheCompany data::LexusCar
    data::Cocaine-Crack data::SubstanceAbuse
    data::MotionPictureAssociationOfAmerica data::Movie-CW
    data::MotionPictureAssociationOfAmerica
    data::MPAAAdvisoryClassification-Film data::ABC-TVNetwork
    data::ABC-WebPortal data::Centerfold-PhotoOfPerson
    data::Playboy-TheMagazine data::FishingPole data::FishingReel
    data::Train-TransportationDevice data::RailwayOrganization
    data::Playboy-TheMagazine data::HughHefner data::CheminDeFer
    data::Baccarat data::KnickKnackMarketCategory data::KnickKnackStore
    data::BassGuitarTablatureText data::BassGuitar-Electric
    data::ClassicCar
    data::DemocraticParty
    data::Leprosy data::Leper data::Suicide data::BipolarDisorder
    data::MicrosoftInc data::BillGates data::BrownieScouts-Organization
    data::GirlScoutsOfAmerica data::Motorola68040Processor data::Motorola
    data::MuscleCar
    data::Bus-RoadVehicle data::BusLine data::BassGuitarTablatureText
    data::BassGuitarTablatureNotation data::UnitedStatesCoastGuardAcademy
    data::UnitedStatesCoastGuard data::NASDAQSecuritiesTradingSystem
    data::TheUSStockMarket data::Cocaine data::SubstanceAbuse
    data::HumanChild data::HumanParenting data::Airplane
    data::AirlineCompany data::Aphrodite-TheGoddess data::Venus-TheGoddess
    data::Zviadists-TerroristGroup data::ZviadGamsakhurdia data::WaltDisney
    data::Disneyworld-TouristAttraction data::GuitarTablatureNotation
    data::Guitar-Generic data::Lladro-CommercialOrganization
    data::Lladro-Figurine
    data::WonderWoman-FictionalCharacter data::DCComics-Publisher
    data::Superman data::WonderWoman-FictionalCharacter
    data::HallmarkOrnament data::HallmarkCards-CommercialOrganization
    data::Watercraft-Surface
    data::ThanksgivingHoliday-UnitedStates data::Turkey-Meat
    data::GoatCheese data::KodakCamera
    data::EastmanKodakCorporation data::NECV20 data::NECInc
    data::GeneralMotors data::GMAutomobile data::ToyotaTheCompany
    data::ToyotaCar data::HondaCar data::HondaTheCompany
    data::CharlesDarwin data::Creationism data::TexasInstrumentsInc
    data::TILispM data::NissanCar data::NissanTheCompany
    data::MonicaLewinsky data::KennethStarr-Celebrity-Political
    data::Motorola68C000Processor data::Motorola
    data::JohnWesley-ReligiousFigure data::WesleyCollege
    data::TIPersonalComputer data::TexasInstrumentsInc data::FordCar
    data::FordTheCompany data::WicosThreeway data::Wico data::LMI
    data::LMILambda data::Daimler-ChryslerTheCompany data::ChryslerCar
    data::HavingAnOrgasm data::Ejaculating data::PlannedParenthood
    data::Abortion-Intentional data::Persecution data::ConcentrationCamp
    data::HIV data::HIVPositive data::GenocideCampaign
    data::ConcentrationCamp data::ClassicalMusic-Baroque
    data::JohannSebastianBach data::RepublicanParty
    data::HumanTeenager
    data::KnotShape data::KnotConfiguration data::Guitar-12String
    data::GuitarTablatureText data::BodyPiercingStudio
    data::PiercedBodyPart data::DownBlousePicture data::UpskirtPicture
    data::BodyPartPiercing data::PiercedBodyPart data::BodyPartPiercing
    data::BodyPiercingStudio data::Marijuana data::Hashish
    data::FantasySportsGame data::SkiResort-Attraction data::SkiArea data::BodyPartPiercing
    data::BassGuitarTablatureNotation data::BassGuitar-Electric
    data::DomainNameRegistration data::NetworkSolutionsInc
    data::GuitarTablatureText data::Guitar-Electric
    data::GuitarTablatureText data::GuitarTablatureNotation
    data::GuitarTablatureText data::Guitar-Acoustic
    data::DomainNameRegistration data::Internic data::AcuraIntegraCar
    data::AcuraTheCompany data::SnowSkiing data::SkiResort-Attraction
    data::NationalFootballLeague data::NFLEurope data::FishingReel
    data::FishingLine data::FishingLure data::FishingLine data::Nursing
    data::HealthcareIndustry data::FrugalAction data::FrugalPersonality
    data::Enema-DosageForm data::EnemaAdministeringEvent data::TheYear2000
    data::Y2KThing data::MultiLevelMarketingActivity
    data::Pachyderm data::Trumpeting-ElephantNoise data::HobartCollege
    data::WilliamSmithCollege data::NaziHolocaust data::NurembergTrials
    data::NaziHolocaust data::AntiSemitism)) 

(defparameter *countries* 
  '(data::Niger 
    data::Liechtenstein data::Zimbabwe data::CoalitionPartner-DASSA data::Yemen
    data::Iran data::Jordan-TheNation data::Lesotho data::Mauritius data::Mexico
    data::MarshallIslands-TheNation data::Fiji data::Ecuador data::Lithuania data::Guinea
    data::Japan data::Benin data::Nauru data::Norway data::Palau data::Bosnia-Herzegovina
    data::Tanzania data::EquatorialGuinea data::Haiti data::IvoryCoast data::China-PeoplesRepublic
    data::Cyprus-TheCountry data::AntiguaAndBarbuda data::Barbados data::Switzerland
    data::SierraLeone data::Burundi data::SriLanka data::Mauritania data::Kazakhstan
    data::Nepal data::Finland data::Belgium data::Israel data::Italy data::SanMarino
    data::Yugoslavia data::UnitedArabEmirates data::UnitedKingdomOfGreatBritainAndNorthernIreland
    data::Suriname data::NorthKorea data::Turkey data::Luxembourg data::Namibia data::Maldives
    data::Uzbekistan data::SaoTomeAndPrincipe data::Mozambique data::UnionOfSovietSocialistRepublics
    data::Slovakia data::Latvia data::Mali data::Ukraine data::Ethiopia data::Libya
    data::Mongolia data::SouthAfrica data::Portugal data::CzechRepublic data::Afghanistan
    data::Algeria data::Guyana data::StVincentAndTheGrenadines data::Botswana
    data::Georgia-TheNation data::Vietnam data::Ghana data::Peru data::Angola data::Eritrea
    data::Senegal data::Somalia data::Seychelles data::Gabon data::Russia data::Greece
    data::Belize data::Ireland-TheNation data::Canada data::Nigeria data::Grenada data::Poland
    data::EastGermany data::PrincipalityOfSealand data::Bhutan data::Gambia data::France
    data::Honduras data::ElSalvador data::SolomonIslands-TheNation data::Egypt data::Sweden
    data::Malaysia data::Belarus data::UnitedStatesOfAmerica data::Tunisia data::Kyrgyzstan
    data::Slovenia data::Macedonia data::Romania data::Bangladesh data::Indonesia-TheNation
    data::Venezuela data::Cuba data::Togo data::Burma data::Armenia data::TrinidadAndTobago
    data::Micronesia-FederatedStatesOf data::Hungary data::Bahamas data::Kiribati
    data::InterestedForeignPower-DASSA data::Panama data::Uruguay data::Zambia data::Azerbaijan
    data::Chile data::Kuwait data::SouthKorea data::Tuvalu data::Argentina
    data::SaintKitts-Nevis data::WestGermany data::Singapore data::Morocco data::Syria
    data::Turkmenistan data::Croatia data::India data::Brazil data::Malawi data::SaudiArabia
    data::Bahrain data::Guatemala data::Vanuatu data::Oman data::VaticanCity data::Bolivia
    data::Germany data::Guinea-Bissau data::Paraguay data::Brunei data::Albania
    data::Tajikistan data::Spain data::Netherlands data::Comoros-TheNation
    data::CentralAfricanRepublic data::Qatar data::Kenya data::Thailand data::Denmark
    data::Tonga data::Philippines data::Congo-Brazzaville data::SaintLucia data::Chad
    data::Lebanon data::Uganda data::Madagascar data::Congo-Kinshasa data::Pakistan
    data::Jamaica data::Sudan data::Iraq data::Laos data::Malta-TheCountry data::Iceland
    data::Czechoslovakia data::Swaziland data::Cambodia data::Andorra data::Liberia
    data::WesternSamoa data::PapuaNewGuinea data::CostaRica data::Moldova data::Rwanda
    data::Djibouti data::Bulgaria data::Dominica data::Colombia data::NewZealand
    data::DominicanRepublic data::Australia data::Cameroon data::BurkinaFaso data::CapeVerde
    data::Nicaragua data::Estonia data::Taiwan-RepublicOfChina data::Monaco data::Austria
    data::ParentCountry-DASSA))