#!/bin/sh #| umask 002 PLTHOME=/proj/nlp/tools/languages/plt_205; export PLTHOME PLTCOLLECTS=$PWD/my-plt:$PLTHOME/collects; export PLTCOLLECTS exec $PLTHOME/bin/mzscheme -mvf $0 -e '(nlpweb-make)' |# ;;; =========================================================================== ;;; nlp.scm: ;;; 1999: Maintained by Regina Barzilay, regina@cs.columbia.edu ;;; 2001: Maintained by Noemie Elhadad, noemie@cs.columbia.edu ;;; ai.scm: ;;; 2004: Maintained by Michel Galley, galley@cs.columbia.edu ;;; =========================================================================== (define *web-directory* "~galley/html/cs4701") (set! *web-directory* (current-directory));!!! (current-directory *web-directory*) (require (lib "html.ss" "swindle")) (*image-dir* "images/") ;; People -- each is (who [link]) or a "label" for a subgroup (define *people-faculty* '(("Kathy McKeown" "~kathy") )) (define *people-tas* '(("Kapil Thadani" "~krt2107") ; ("Phong Pham" "~tp2210") )) ;; This makes all URLs flexible (define (httpify url) (define base "http://www.cs.columbia.edu/") (cond ((regexp-match "^http://" url) url) ; noem ((regexp-match "^nlp" url) (concat base url)) ((regexp-match "^~[^ /]+$" url) (concat base url "/")) ((regexp-match "^~" url) (concat base url)) (else (error 'httpify "Got an unknown url ~s." url)))) ;;; =========================================================================== ;; Without this it goes to the current directory. (define *html-target-dir* *web-directory*) ;;;(define *body-args* `(:bgcolor "cccccccc")) ;;;(define *body-args* `(:background (,*image-dir* "llwith.jpeg"))) (define *body-args* `(:background (,*image-dir* "grey052.jpg"))) (define *title-prefix* "Columbia NLP ") (define *menu-in-img* "ball_rd") (define *menu-out-img* "ball_brique") (define *menu-sel-img* "ball_wh") (define *mail* "kathy@cs.columbia.edu") (define *text-bar* "--------------------") (define *text-bullet* "->") (define (with-menu: . lines) (lambda args (apply html-with-menu lines args))) ;;; =========================================================================== (define *style* (style: "A { text-decoration: none; }" "A:link { font-family: Lucinda, Helvetica; font-weight: bold; color: #990000; }" "A:visited { font-weight: bold; color: #990000; text-decoration:none}" "A:active { color: #990000; text-decoration:none }" "A:hover { text-decoration: underline; color: #990000; font-weight: bold;}" "p, li, td, h1, h2, h3, h4, h5 { font-family: Lucinda, Helvetica; }" "tt, pre { font-family: courier; }")) (define (*footer* name) (right: (size-2: ::newlines? #t (text: (break~: 8) "Created by" (ref~: "ai.scm" "ai.scm") "using" (http~: "www.barzilay.org/interests.html" "html.scm"))))) ;;; br: )) ;;; (script: ;;; "d=document; ": ;;; "d.write('');") ;;; "Bugs+comments to" (mailto~ *mail*))) ;;; )) (define (html-ref html) (let ((page (html-ref-name html)) (name (getarg html :menu-name (string-capital (getarg html :name))))) (ref~: page name))) ;;; =========================================================================== (defhtml _main :name "index" :title "COMS W4701 - Artificial Intelligence" :window-title "COMS W4701 - Artificial Intelligence" :menu-name "Home" :side-image "AI-Logo.gif" :no-side-border? #t :menu-msg "The main homepage" (with-menu: (size+1: (p: "This course is an introduction to artificial intelligence. It provides" "the basic foundation for building intelligent computer systems. It" "will cover five main topics: search, game playing, knowledge" "representation, planning and machine learning. For each basic" "technique, we will look at an application whose implementation is" "based on that technique. Towards the end of the course, we will get a" "flavor of some of the advanced areas in the field. Assignments for the" "course will consist of a combination of written and programming" "assignments. The programming language for the course is Java. Students" "may also choose to program in LISP, if they prefer.") ))) ;;; =========================================================================== (defhtml _syllabus :name "syllabus" :title "Syllabus" :window-title "COMS W4701 - Syllabus" :menu-name "Syllabus" :side-image "ChessPlayer2.jpg" :menu-msg "Course syllabus" (with-menu: (p: "SYLLABUS HERE") )) ;;; =========================================================================== (defhtml _assignments :name "assignments" :title "Assignments" :window-title "COMS W4701 - Assignments" :menu-name "Assignments" :side-image "robot.gif" ;;;:side-image "ChessPlayer.jpg" :no-side-border? #t :menu-msg "Assignments" (with-menu: (p: "Late policy: 1.5 point lost for each day late. No assignments accepted after 7 days.") (p: "Assignment 0:" (ref~: "documents/survey.doc" "Survey")) (p: "Assignment 1:" (ref~: "Assignments/hw2-kt.html" "Search")) (p: "Assignment 2:" (ref~: "documents/Homework3-connect4.htm" "Game Playing")) (p: "Assignment 3:" (ref~: "assign4-F07.htm" "Machine Learning")) (p: "Assignment 3:" (ref~: "documents/HW-specifications-print.ppt" "Extra Guidelines for How to do the Machine Learning Homework")) (p: "Assignment 4:" (ref~: "Assignments/Logic.doc" "KR and Logic Exercises")) )) ;;; =========================================================================== (defhtml _reading :name "reading" :title "Reading" :window-title "COMS W4701 - Reading" :menu-name "Reading" :side-image "ingresso2.png" :menu-msg "Reading" (with-menu: (size+1: (p: "The textbook for the course is" (b: "Artificial Intelligence : A Modern Approach") "by Stuart Russell and Peter Norvig, 2003." "The book may be purchased in Columbia University Bookstore.") ))) ;;; =========================================================================== (defhtml _links :name "links" :title "Related sites" :window-title "COMS W4701 - Related sites" :menu-name "Links" :side-image "tree2.gif" :no-side-border? #t :menu-msg "Related Sites" (with-menu: (p: (h3: "Demos" br:) (ref~: "http://aquaint.cs.columbia.edu/CUAQ/query.cgi" "Open Ended Question Answering" br:) (ref~: "http://tangra.si.umich.edu/clair/NSIR/html/nsir.cgi" "Short Answer Question Answering" br:) (ref~: "http://www.cs.columbia.edu/nlp/newsblaster" "News Summarization" br:) (ref~: "http://www.openr.org/robocup/movies/2003movies.HTML" "RoboCup competition" br:) (ref~: "http://www.cs.columbia.edu/CAVE" "Vision/learning demo")) (p: (h3: "Machine Translation Paper" br:) (ref~: "publications/FastDecodingACL2001.pdf" "Fast Decoding and Optimal Decoding for Machine Translation, Germann et al" br:)) (p: (h3: "Chess Papers" br:) (ref~: "publications/DeepBlueChess.pdf" "IBM's Deep Blue Chess GrandMaster Chips, Hsu" br:) (ref~: "publications/KnowledgeDiscovery.pdf" "Knowledge Discovery in Deep Blue, Campbell" br:) (ref~: "images/chess-p1.jpg" "Chess-page1 of News Release" br:) (ref~: "images/chess-p2.jpg" "Chess-page2 of News Release" br:)) (p: (h3: "Reading for Retrospective Class, Oct. 5th" br:) (ref~: "http://www.loebner.net/Prizef/TuringArticle.html" "Original Turing test paper" br:) (ref~: "http://members.aol.com/NeoNoetics/MindsBrainsPrograms.html" "Minds, Brain and Behavior, John Searle")) (p: (h3: "Knowledge Representation Papers" br:) (ref~: "publications/p33-lenat.pdf" "CYC: A Large-Scale Investment in Knowledge Infrastructure" br:) (ref~: "publications/onto-design.pdf" "Toward Principles for the Design of Ontologies Used for Knowledge Sharing" br:) (ref~: "publications/p39-miller.pdf" "WordNet: A Lexical Resource for English" br:) (ref~: "publications/p2-niles-upperlevel.pdf" "Towards a Standard Upper Ontology" br:)) (p: (h3: "Videos of Roomba" br:) (ref~: "Videos/Clip13.mpg" "The room" br:) (ref~: "Videos/Clip9.mpg" "A full sequence of Roomba vacuuming the room" br:) (ref~: "Videos/Clip10.mpg" "Roomba going around table legs" br:) (ref~: "Videos/Clip11.mpg" "Roomba manages to escape from the cabinet" br:) (ref~: "Videos/Clip12.mpg" "Roomba does well under chairs" br:)) (p: (h3: "Scrabble" br:) (ref~: "documents/aj.pdf" "The World's Fastest Scrabble Program" br:) (ref~: "http://www1.cs.columbia.edu/~frank/scrabble.html" "Scrabble solution" br:)) (p: (h3: "Machine learning" br:) (ref~: "documents/conditional-independence-bn.txt" "Conditional independence" br:) (ref~: "documents/nature_bayes.pdf" "Nature bayes" br:)) (p: (h3: "Crossword Puzzle Paper" br:) (ref~: "documents/Proverb.pdf" "Proverb" br:)) (p: (h3: "A sample midterm" br:) (ref~: "documents/midterm.doc" "The Exam" br:) (ref~: "documents/Full-Midterm-solutions.doc" "The Solutions" br:)) (p: (h3: "A sample final exam" br:) (ref~: "documents/finalF04.doc" "The Exam" br:)) (p: (h3: "Answers for sample final exam (as much as available)" br:) (ref~: "documents/finalF04-answers.doc" "Exam Answers" br:)) (p: (h3: "Solutions for the midterm of Fall06" br:) (ref~: "midterm-F06-solutions.doc" "The Solutions" br:)) (p: (h3: "Solutions for the midterm of Fall07" br:) (ref~: "midterm-F07-solutions-only.doc" "The Solutions" br:)) (p: (h3: "Tournament Results" br:) (ref~: "http://www.columbia.edu/~tp2210/connect4/round1.html" "Round 1" br:) (ref~: "http://www.columbia.edu/~tp2210/connect4/round2.html" "Round 2" br:) (ref~: "http://www.columbia.edu/~tp2210/connect4/round3.html" "Round 3" br: ) (ref~: "http://www.columbia.edu/~tp2210/connect4/round4.html" "Round 4")) )) ;;; =========================================================================== (defhtml _grading :name "grading" :title "Grading" :window-title "COMS W4701 - Grading" :menu-name "Grading" :side-image "ChessPlayer3s.jpg" :menu-msg "Grading" (with-menu: (size+1: (p: "The final grade for the course will be determined as follows:") (quote: " Homeworks 45%" br: " Class Participation 5%" br: " Midterm 20%" br: " Final 30%") ))) ;;; =========================================================================== (defhtml _oh :name "oh" :title "Office hours" :window-title "COMS W4701 - Office hours" :menu-name "Office hours" ;;; :side-image ".jpg" :menu-msg "Office hours" (with-menu: (p: "OH HERE") )) ;;; =========================================================================== (defhtml _prerequisites :name "prerequisites" :title "Prerequisites" :window-title "COMS W4701 - Prerequisites" :menu-name "Prerequisites" ;;; :side-image ".jpg" :menu-msg "Prerequisites" (with-menu: (size+1: (p: "The prerequisite for this course is data structures (3137 or 3139)." "Students should know how to program in Java or in LISP." "Programming assignments for this course must be done in Java (Sun Java v1.4.x) or in LISP (Allegro Common Lisp)." "Neither programming language will be covered in the course." "It is helpful if the student has taken software engineering (3156)," "but it is not required.") ))) ;;; =========================================================================== (defhtml _classnotes :name "notes" :title "Classnotes" :window-title "COMS W4701 - Classnotes" :menu-name "Classnotes" ;;; :side-image ".jpg" :menu-msg "Classnotes" (with-menu: (p: "Lecture slides can be found on " (ref~: "syllabus.html" "syllabus") "page.") )) ;;; =========================================================================== (defhtml _submissions :name "submissions" :title "Submitting assignments" :window-title "COMS W4701 - Submitting assignments" :menu-name "Submissions" ;;; :side-image ".jpg" :menu-msg "How to submit assignments" (with-menu: (p: "Instructions for submission can be found " (ref~: "http://www.columbia.edu/~tp2210/submission.html" "here")) )) ;;; =========================================================================== (defhtml _collaboration :name "collaboration" :title "Collaboration Policy" :window-title "COMS W4701 - Collaboration policy" :menu-name "Collaboration" ;;; :side-image ".jpg" :menu-msg "Collaboration policy" (with-menu: (size+1: (p: "Limited collaboration is permitted on programming and written" "assignments.") (p: "We allow:") (quote: " Discussion of lecture and textbook materials" br: " Discussion of how to approach assignments") (p: "We do not allow:") (quote: " Sharing of ideas in any written form: code, pseudocode or solutions.") (p: "Please refer to the Computer Science Department handout on academic" "dishonesty. The instructor takes such offenses seriously and does" "refer them to the Deans. Note that the penalty imposed by the Deans is" "at least probation. Any student determined by the Deans to have been" "cheating will be given a grade of F.") ))) ;;; =========================================================================== ;;;(defhtml _overview ;;; :name "overview" ;;; :side-image "nlpgroup_s.jpg" ;;; :side-image-big "nlpgroup.jpg" ;;; :menu-msg "Overview of the NLP group at Columbia" ;;; (with-menu: ;;; (par: "The Natural Language Processing Group at Columbia, which was" ;;; "established by" ;;; (http~: "www.cs.columbia.edu/~kathy" "Prof. Kathleen R. McKeown") ;;; "and now has two faculty members, three research scientists, nine" ;;; "doctoral students and five masters students, is pursuing a broad" ;;; "range of research, including natural language generation, concept" ;;; "to speech generation, summarization of news, statistical language" ;;; "modelling and digital libraries.") ;;; (par: "A number of the applications we are developing address the problems" ;;; "and opportunities that come with the rapid growth of the World Wide" ;;; "Web. Among these are a system to produce multimedia briefings or" ;;; "updates of on-line news articles and a domain-independant system to" ;;; "generate summaries of a number of articles on a related subject.") ;;; (par: "In a number of projects, we collaborate with the medical and" ;;; "journalism schools at Columbia, with several other groups within" ;;; "the Computer Science Department, and have enjoyed good relations" ;;; "with researchers at IBM, AT&T Research and Lucent Technologies.") ;;; (par: "We are working the medical school to build a system that" ;;; "coordinates language and graphics to rapidly produce customized" ;;; "explanations in a cardiac Intensive Care Unit.") ;;; (par: "In more basic research, we are exploring how to apply machine" ;;; "learning techniques to the natural language problem, conducting" ;;; "statistical analyses of large text corpora and applying the results" ;;; "to text generation, and trying to develop methods of generating" ;;; "speech from concepts. Several on-going projects are looking at" ;;; "innovative ways to extract information for domain-independent" ;;; "summaries and to improve the readability of the summaries" ;;; "themselves."))) ;;; ;;;;;; =========================================================================== ;;; ;;;(defhtml _people ;;; :name "people" ;;; :menu-msg "Members of the NLP group" ;;; :side-image "people.gif" ;;; (letrec ((list-people: ;;; (lambda (title lst) ;;; (td: ::indent? #t :align 'left :valign 'top ;;; (b: (size+2: title)) ;;; (quote: (apply ;;; text: ;;; (map (lambda (name+url) ;;; (if (list? name+url) ;;; (list ;;; (if (>= (length name+url) 2) ;;; (ref~: (httpify (cadr name+url)) ;;; (car name+url)) ;;; (car name+url)) ;;; (and (>= (length name+url) 3) ;;; " (":(caddr name+url):")") ;;; br:) ;;; (list (and (not (eq? name+url (car lst))) ;;; br: : newline!:) ;;; "--- " (b: name+url) br:))) ;;; lst))))))) ;;; (with-menu: ;;; (table: ::indent? #t :cellspacing 20 :cellpadding 10 ;;; (tr: ::newlines? #t ::indent? #t ;;; (list-people: "Professor" *people-faculty*) ;;; (tr: ::newlines? #t ::indent? #t ;;; (list-people: "Teaching assistants" *people-tas*) ;;; )))))) ;;; ;;;;;; =========================================================================== ;;; ;;;(defhtml _events ;;; :name "events" ;;; :menu-msg "Events related to the NLG group" ;;; :side-image #f ;;; (let () ;;; (define (make-seminar month day year who title) ;;; (tr: (td: (vector-ref '#("Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" ;;; "Sep" "Oct" "Nov" "Dec") ;;; (sub1 month)) ;;; : " " : day : (case (modulo day 10) ;;; ((1) "st") ((2) "nd") ((3) "rd") (else "th")) ;;; : ", " : year) ;;; (td: who) ;;; (td: title ;;; (let* ((pad (lambda (n) ;;; (concat (if (< n 10) "0" "") (number->string n)))) ;;; (fname (concat "seminars/" (pad year) (pad month) ;;; (pad day) ".html"))) ;;; (and (file-exists? fname) ;;; (td: (ref~: fname "(abstract)"))))))) ;;; (define (make-deadline what where when deadl &optional url) ;;; (tr: (td: (if url (ref~: "http://" : url what) what)) ;;; (td: where) (td: when) (td: deadl))) ;;; (with-menu: ;;; (break~: 3) ;;; "NLP group" (ref~: "schedule.html" "meetings") ;;; p: ;;; "Occasional Talks in Speech, Language and Cognition (OTSLAC)" (ref~: "otslac.html" "schedule") ;;; ;(size+2: "NLP Group Meetings") ;;; ;(break~: 2) ;;; ;(quote: (table: :border #t (map (lambda (x) (apply make-seminar x)) ;;; ; (reverse *seminars*)))) ;;; hline: ;;; p: ;;; (ref~: "http://inlg02.cs.columbia.edu" "INLG'02") ;;; " -- The Columbia NLP group was the local organizer of the second" ;;; "International Natural Language Generation Conference in Arden " ;;; "House, NY." ;;; p: ;;; (ref~: "sgd/" "Columbia Statistical Generation Day") ;;; "took place on Oct 9th, 2001." ;;; ;;p: ;;; ))) ;;; ;;;;;; =========================================================================== ;;; ;;;(defhtml _tools ;;; :name "tools" ;;; :menu-msg "Tools created by the NLG group" ;;; :side-image "tools.gif" ;;; :no-side-border? #t ;;; (with-menu: ;;; (size+1: ;;; (size+2: (b: "LinkIT")) ;;; (quote: ;;; "" ;;; br: ;;; "A tool for identifying and relating noun phrases within a document" ;;; br: ;;; (ref~: "licenses/LinkITLicenseDownload.html" ;;; "Licensing agreement")) ;;; (size+2: (b: "SimFinder")) ;;; (quote: ;;; "" ;;; br: ;;; "SimFinder identifies spans of texts that convey similar meaning." ;;; br: ;;; (ref~: "licenses/simfinderLicenseDownload.html" ;;; "Licensing agreement")) ;;; (size+2: (b: "Centrifuser")) ;;; (quote: ;;; "Developed by Min-Yen Kan" ;;; br: ;;; "Centrifuser is a domain- and genre-specific multidocument" ;;; "summarization system. It builds both extract based summary as well as" ;;; "indicative document cluster summaries. The extract summary gives a" ;;; "high level overview of the query topic suitable for browsers. The" ;;; "indicative document cluster summaries differentiate the documents from" ;;; "each other as much as possible to route users to particular documents" ;;; "that can meet their underspecified information needs. Centrifuser was" ;;; "developed as part of the NSF's DLI 2 initiative and focuses on patient" ;;; "health care documents." ;;; br: ;;; (ref~: "licenses/centrifuserLicenseDownload.html" ;;; "Licensing agreement")) ;;; (size+2: (b: "Annotated Bibliography Corpus")) ;;; (quote: ;;; "Developed by Min-Yen Kan" ;;; br: ;;; "We have collected 2000 annotated bibliography entries from the web and" ;;; "put them into a standardized XML format. We have further annotated" ;;; "100 of these entries with semantic tags that discuss the types of" ;;; "document-derived and metadata features that play a role in these" ;;; "summaries. Annotated bibliography entries are a good source for doing" ;;; "research on corpus-based summarization; as they provide information" ;;; "about what to include and how to write and stylize indicative" ;;; "summaries." ;;; br: ;;; (ref~: "licenses/annotatedBibliographyCorpusLicenseDownload.html" ;;; "Licensing agreement")) ;;; (size+2: (b: "FUF")) ;;; (quote: ;;; "Developed by Michael Elhadad" ;;; br: ;;; "FUF stands for Functional Unification Formalism." ;;; br: ;;; (ref~: "ftp://ftp.cs.columbia.edu/pub/nlp/fuf-5.3.tar.gz" ;;; (tt: "fuf-5.3.tar.gz"))) ;;; (size+2: (b: "CFUF")) ;;; (quote: ;;; "Developed by Michael Elhadad and Mark Kharitonov" ;;; br: ;;; "CFUF is A graph-based implementation of the FUF language implemented" ;;; "in C and embedded within a Scheme interpreter." ;;; br: ;;; (ref~: "http://www.cs.bgu.ac.il/~elhadad/research.html" ;;; (tt: "More"))) ;;; (size+2: (b: "Surge")) ;;; (quote: ;;; "Developed by Michael Elhadad and Jacques Robin" ;;; br: ;;; "Surge is a syntactic realization grammar for text generation." ;;; br: ;;; (ref~: "ftp://ftp.cs.columbia.edu/pub/nlp/surge.tar.gz" ;;; (tt: "surge.tar.gz"))) ;;; (size+2: (b: "CREP")) ;;; (quote: ;;; "Developed by Duford" ;;; br: ;;; "CREP is a regular expression finder for linguistic patterns." ;;; br: ;;; (ref~: "licenses/CREPLicenseDownload.html" ;;; "Licensing agreement")) ;;; (size+2: (b: "Segmenter")) ;;; (quote: ;;; "Developed by Min-Yen Kan" ;;; br: ;;; "Segmenter is a Text Segmentation program." ;;; br: ;;; (ref~: "licenses/segmenterLicenseDownload.html" ;;; "Licensing agreement")) ;;; (size+2: (b: "Verber")) ;;; (quote: ;;; "Developed by Min-Yen Kan, Judith Klavans and Kathleen McKeown" ;;; br: ;;; "Verber is designed to conflate semantically related verbs together." ;;; br: ;;; (ref~: "licenses/verberLicenseDownload.html" ;;; "Licensing agreement"))))) ;;; ;;;;;; =========================================================================== ;;; ;;;(defhtml _projects ;;; :name "projects" ;;; :menu-msg "Projects in the NLG group" ;;; :side-image "projects.jpg" ;;; (with-menu: ;;; (size+2: (b: "AQUAINT")) ;;; (quote: ;;; (ref~: "http://aquarium.cs.columbia.edu" "AQUAINT") ;;; "is a question answering project which focuses on the issues involved" ;;; "with answering complex questions. Such questions include those which" ;;; "require definitions, opionions or biographies as answers. We are in" ;;; "the process of building a prototype system, QUACC, which integrates" ;;; "the work of interpreting the question, searching for and determining the" ;;; "answer, and formulating the answer." ;;; br: ;;; "This project is a collaborative effort with a team from the Colorado" ;;; "University Center for Spoken Language Research." ;;; ) ;;; (size+2: (b: "CLiMB")) ;;; (quote: ;;; "The goal of" (ref~: "http://www.columbia.edu/cu/cria/climb/" "CLiMB") ;;; "(Computational Linguistics for Metadata Building)" ;;; "is to explore and develop computer-assisted" ;;; "strategies for extracting item-level metadata -- i.e., cataloging" ;;; "suitable for use in large-scale digital library collection projects --" ;;; "from the body of existing scholarly monographic literature relating" ;;; "to those collections. This effort is an attempt to address the problem" ;;; "presented by the often prohibitive expense of creating detailed subject" ;;; "cataloging for items in the collections being" ;;; "digitized. This is especially true for the many unique image-based" ;;; "research collections that would be of significant scholarly and" ;;; "instructional interest if they were made available as part of the" ;;; "evolving national and international digital library." ;;; ) ;;; (size+2: (b: "MAGIC")) ;;; (quote: ;;; (ref~: "/~shaw/acldemo" "MAGIC") ;;; "is an intelligent multimedia presentation system for the medical domain." ;;; "After a patient has heart surgery, the physicians in the operating room" ;;; "(OR) must inform the caregivers in the intensive care unit (ICU) what" ;;; "happened during the surgery in order to prepare for the patient when" ;;; "he/she arrives in the ICU. MAGIC replaces the OR physicians in this" ;;; "scenario by presenting similar information using coordinated speech and" ;;; "graphics.") ;;; (size+2: (b: "Newsblaster")) ;;; (quote: ;;; (ref~: "newsblaster" "Newsblaster") ;;; "is a system that helps users find the news that is of the most" ;;; "interest to them. The system autmatically collects, clusters," ;;; "categorizes, and summarizes news from several sites on the web (CNN," ;;; "Reuters, Fox News, etc.) on a daily basis, and it provides users a" ;;; "user-friendly interface to browse the results. Articles on the same story" ;;; "from various sources are presented together and summarized using" ;;; "state-of-the-art techniques. The Newsblaster system has already caught" ;;; "the attention of the press and public. A recent analysis indicates that" ;;; "Newsblaster receives tens of thousands of hits a day, and news agencies" ;;; "that have written articles about Newsblaster include the New York Times," ;;; "USA Today, and Slashdot.") ;;; (size+2: (b: "PERSIVAL")) ;;; (quote: ;;; "In healthcare settings, healthcare consumers and providers both need" ;;; "quick and easy access to a wide range of online resources." ;;; (ref~: "http://persival.cs.columbia.edu" "PERSIVAL") ;;; "(PErsonalized Retrieval and Summarization of Image, Video And Language" ;;; "resources) aims to provide personalized access to a distributed patient" ;;; "care digital library." ;;; "PERSIVAL is a joint research initiative between the fields of NLP," ;;; "human-computer interaction, medical informatics, video processing," ;;; "library and cognitive science." ;;; "Key features of PERSIVAL include personalized access to distributed," ;;; "multimedia resources available both locally and over the Internet," ;;; "fusion of repetitive information and identification of conflicting" ;;; "information from multiple relevant sources, and presentation of" ;;; "information in concise multimedia summaries that cross-link images," ;;; "video, and text. When the latest medical information is provided at" ;;; "the point of patient care, it can help practicing clinicians to avoid" ;;; "missed diagnoses and minimize impending complications. When expressed" ;;; "in understandable terms, it can empower patients to take charge of their" ;;; "healthcare.") ;;; (size+2: (b: "TIDES")) ;;; (quote: ;;; "TIDES is DARPA's Translingual Information Detection, Extraction and" ;;; "Summarization project. It consists of a practical multidocument" ;;; "information tracking and summarization system. The system is intended" ;;; "to be portable across languages and we are in the process of extending" ;;; "the system to handle Arabic, Japanese and Chinese. " ;;; "Technology designed in TIDES is used everyday in Newsblaster.") ;;; ;(size+2: (b: "Summarization")) ;;; ;(let ((SUMMONS ;;; ; (ref~: "/~hjing/sumDemo" "SUMMONS")) ;;; ; (MultiGen ;;; ; (ref~: "/~hjing/sumDemo" "MultiGen")) ;;; ; (FociSum ;;; ; (ref~: "/~hjing/sumDemo" "FociSum")) ;;; ; (SumGen ;;; ; (ref~: "/~hjing/sumDemo" "SumGen"))) ;;; ; (quote: ;;; ; (par: ;;; ; "Given the exponential growth of online information, one of the primary" ;;; ; "difficulties facing Internet users is information overload. Summaries" ;;; ; "can function as an abbreviated form of a document or as an aid in" ;;; ; "assessing the relevance of a document to a selected topic, thereby" ;;; ; "reducing the amount of information a user must read. The Columbia NLP" ;;; ; "Group developed several summarization systems to perform this task:" ;;; ; SUMMONS :"(1996)," MultiGen :"(1999)," ;;; ; FociSum :"(1998), and" SumGen :"(1999).") ;;; ; (par: ;;; ; "These projects can be easily categorized by the input parameters that" ;;; ; "they each handle. Progress is being made on domain-independent" ;;; ; "multiple document summarization in the" MultiGen ;;; ; "system, on generating briefings over multiple documents in the" ;;; ; "terrorist domain in" SUMMONS :"," ;;; ; "on domain-indepent single document summarization through focus" ;;; ; "analysis in the" FociSum ;;; ; "system, and on using editing such as \"cut and paste\", using" ;;; ; "extracted sentences as input to generate summaries in the" SumGen ;;; ; "system."))) ;;; ;(size+2: (b: "Corpus Annotation")) ;;; ;(quote: ;;; ; "The" ;;; ; (ref~: "carp/" ;;; ; "Columbia Annotation Repository Project") ;;; ; "(CARP) is a system that allows users to submit and retrieve annotations" ;;; ; "on corpora. The CARP system uses any SGML compliant document markup, in" ;;; ; "which different corpora have standardized markup as well as specific" ;;; ; "annotation markup. We at Columbia are particularly interested in using" ;;; ; "the system to assist in distributed annotation and retrieval of markup" ;;; ; "for text summarization, and both speech transcript and journalistic text" ;;; ; "segmentation. This project is part of the larger CARD grant at" ;;; ; "Columbia.") ;;; ;) ;;; )) ;;; ;;;;;; =========================================================================== ;;; ;;;(defhtml _papers ;;; :name "papers" ;;; :menu-msg "Papers published by the NLG group" ;;; :side-image "papers.jpg" ;;; (with-menu: ;;; (p: "TODO")) ;;;) ;;; ;;;;;; =========================================================================== ;;; ;;;(defhtml _internal ;;; :name "internal" ;;; :menu-msg "Internal" ;;; :side-image #f ;;; (let ((show-pics ;;; (lambda (base . names) ;;; (define num (let ((n 0)) (lambda () (set! n (add1 n)) n))) ;;; (apply text: (map (lambda (name) ;;; (ref~: base : name : ".jpg" "[": (num) :"]")) ;;; names))))) ;;; (define (make-who-does-what who what &optional desc) ;;; (tr: (if desc ;;; (td: what (apply ;;; text: ;;; (map (lambda (desc-list) ;;; (list br: desc-list)) ;;; desc))) ;;; (td: what)) ;;; (td: :valign 'top who))) ;;; (with-menu: ;;; (size+2: (b: "Some pictures")) ;;; ;; (center: (blink: "This page is not available.")) ;;; (quote: ;;; "Min's farewell party:" ;;; (show-pics "images/min-farewell/" ;;; "12030002" ;;; "12030003" ;;; "12030004" ;;; "12030005" ;;; ;"12030006" ;;; "12030007" ;;; "12030008" ;;; "12030009" ;;; "12030010" ;;; "12030011" ;;; "12030012" ;;; "12030014" ;;; "12030015" ;;; ) ;;; ;hline: ;;; br: ;;; "Gabriel's farewell party:" ;;; (show-pics "images/gab-farewell/" ;;; "gabrielFarewellGabriel.b" ;;; "gabrielFarewellMichelCarl.b" ;;; "gabrielFarewellMinVH.b" ;;; "gabrielFarewellNoemieSmara.b" ;;; "gabrielFarewellSmaraGabriel2.b" ;;; "gabrielFarewellVH.b" ;;; "gabrielFarewellVHSashaNoemie1.b" ;;; "gabrielFarewellVHSashaNoemie2.b") ;;; ;hline: ;;; br: ;;; "Some pictures of James' wedding:" ;;; (show-pics "images/james-wedding/" ;;; "02" "04" "05" "06" "07" "08" "09" "15" "16" "31" "35" "36" ;;; "38") ;;; ;hline: ;;; br: ;;; "Statistical Generation Day pictures: " ;;; : (ref~: "/~pablo/community/photoczar/generation_day/" "index") ;;; ;hline: ;;; br: ;;; "Smaranda's Birthday: " ;;; : (ref~: "/~min/pictures01/room-28.html" "index") ;;; ;hline: ;;; br: ;;; "Kathy receives Outstanding Women Scientists Award in" ;;; : " NY Academy of Sciences: " ;;; : (ref~: "/~pablo/community/photoczar/kathy_award/" "index") ;;; ;hline: ;;; br: ;;; "A brunch at Noemie's:" ;;; (show-pics "/~noemie/images/brunch/r01000" ;;; "08" "09" "11" "13" "14" "16" "17" "18" "19") ;;; ;hline: ;;; )))) ;;; ;;; =========================================================================== (define *pages* (reverse *defined-htmls*)) (define ((menu-preload &keys (cur-name :name #f) extra-img-preload) pages) (let* ((preloaded-images '()) (add-menu-image (lambda (image) (let ((image (concat (*image-dir*) image ".gif"))) (if (not (member image preloaded-images)) (set! preloaded-images (cons image preloaded-images))))))) (cond (extra-img-preload => add-menu-image)) (for-each (lambda (page) (if (equal? cur-name (getarg page :name)) (add-menu-image (getarg page :menu-sel-img *menu-sel-img*)) (begin (add-menu-image (getarg page :menu-in-img *menu-in-img*)) (add-menu-image (getarg page :menu-out-img *menu-out-img*))))) pages) (script: "var my_preloaded = new Array();" "function preload_images() {" (let loop ((i 0) (p preloaded-images)) (if (null? p) '() (list " my_preloaded[" i "] = new Image;" newline!: " my_preloaded[" i "].src = \"" (car p) "\";" newline!: (loop (+ i 1) (cdr p))))) "}"))) (define (make-menu-entry this-name &keys (page-name :name #f) (menu-name (string-capital page-name)) (in-img :menu-in-img *menu-in-img*) (out-img :menu-out-img *menu-out-img*) (sel-img :menu-sel-img *menu-sel-img*) (menu-msg "")) (let* ((img-name (concat "_" page-name "_img")) (content (list (my-gif~ (if (equal? this-name page-name) sel-img out-img) *text-bullet* :align 'middle :border 0 :hspace 2 :name img-name) (color~: "#F5F5DC" (list menu-name))))) (if (equal? this-name page-name) content (ref~: (concat page-name ".html") :OnMouseOver `("document." ,img-name ".src = '" ,*image-dir*,in-img".gif';" "window.status = '" ,menu-msg "';" "return true;") :OnMouseOut `("document." ,img-name ".src = '" ,*image-dir*,out-img".gif';" "window.status = '';" "return true;") content)))) (define (make-menu &keys (this-name :name #f)) (define (split-to-4 lst) (if (> (length lst) 4) (cons (list (car lst) (cadr lst) (caddr lst) (cadddr lst)) (split-to-4 (cddddr lst))) (list lst))) (output (apply table: ::indent? #t :cellspacing 8 :cellpadding 4 (map (lambda (4pages) (apply tr: ::indent? #t :align 'left (map (lambda (page) (td: ::indent? #t :nowrap #t :bgcolor "black" (size+1: (b: (apply make-menu-entry this-name page) "\\ \\ ")))) 4pages))) (split-to-4 *pages*))))) (define (html-with-menu lines &rest args &keys name (title (string-capital name)) (window-title (concat *title-prefix* title)) (side-image #f) (side-image-big #f) (no-side-border? #f) (menu-name title)) (html: (head: (title: window-title) ((apply menu-preload args) *pages*)) "" (body: ::args *body-args* :OnLoad "preload_images();" "" *style* "" (table: ::newlines? #t :width "100%" :border 0 :cellspacing 3 :cellpadding 3 (tr: ::newlines? #t (td: ::newlines? #t :valign 'top (h1: (size+3: title)) (comment: "Menu junk begins here") (thunk (apply make-menu args)) (comment: "Menu junk ends here")) (td: ::newlines? #t :valign 'top (and side-image (let ((img (my-image~ side-image (string-capital menu-name) :border (if no-side-border? 0 2) :align 'right))) (if side-image-big (ref~: (concat (*image-dir*) side-image-big) img) img)))))) "" p: (table: ::newlines? #t :width "90%" :align 'center (tr: ::newlines? #t (td: ::newlines? #t (apply text: lines)))) "" (*footer* name)) "")) ;;; =========================================================================== (define nlpweb-make make-defined-htmls) ;;Local variables: ;;enable-local-eval: t ;;eval: (put 'with-output-to-html 'scheme-indent-function 1) ;;eval: (put 'thunk 'scheme-indent-function 'defun) ;;hide-local-variable-section: t ;;End: