Maplesoft is providing an advance notice of changes to platform and operating system availability in the next major release of the Maple product family. Our current plans are to discontinue support for the IBM AIX, HP-UX, HP TRU64 , and SGI IRIX platforms and the Windows 98, ME and NT operating systems. Please see www.maplesoft.com/futureplatforms.aspx for full details.

This feature makes it easy for you to share mathematics with people worldwide. You can now upload your Maple documents to a MapleNET server for free. This allows you to share your interactive Maple documents with people worldwide, even to people who do not have a copy of Maple; all they need is a web browser. Read on to learn more about the new features.

", $data ); $data = preg_replace( "/\\\\n/", "
", $data ); $data = preg_replace( "/\s\s/", "  ", $data ); } $output .= $data; } } } function inTag( $tagName ) { global $inTag; if ( array_key_exists( $tagName, $inTag ) ) { return $inTag[$tagName ]; }else{ return 0; } } // Returns the name of the current HTML tag function currentTag() { global $tagStack; $stackSize = sizeof( $tagStack ); if ( $stackSize >= 1 ) { return $tagStack[ $stackSize - 1 ]; }else{ return ""; } } // Tells the script that we are entering a new tag // $tagName - the HTML tag to open // $tagAttributes - The attributes to give the tag, defaults to none // $write - If this tag should be written - 1 yes - 0 no - defaults to yes function openTag( $tagName, $tagAttributes = "", $write = 1 ) { global $inTag; global $attributes; global $output; global $tagStack; global $tagWritten; array_push( $tagStack, $tagName ); array_push( $tagWritten, $write ); $inTag[ $tagName ] = 1; $attributes[ $tagName ] = $tagAttributes; if ( $write == 1) { $output .= ""; } return $tagName; } //Closes the passed tag function closeSpecificTag( $tagName ) { if ( inTag( $tagName ) ) { do { $closed = closeTag(); }while( $closed != $tagName && $closed != NULL ); return $closed; }else{ // If we weren't in the tag to begin with, its not possible to close it return 0; } } function printElement( $name, $attrs ) { echo "

$name\n"; print_r ($attrs); echo "

\n"; } function setStyles( $attrs ) { global $inlineOutput; if ( array_key_exists('ALIGNMENT', $attrs ) ) { if ( $attrs['ALIGNMENT'] == "centred" && $inlineOutput == 0 ) { openTag( 'center' ); } } if ( array_key_exists('STYLE', $attrs ) ) { $style = $attrs['STYLE']; if ( $style == "Title" ) { if ( inTag('center') == 0 ) { openTag( 'center'); } openTag( 'h1' ); }elseif ( $style == "Heading 1" ) { openTag( 'h1' ); }elseif ( $style == "Heading 2" ) { openTag( 'h2' ); }elseif ( $style == "Heading 3" ) { openTag( 'h3' ); }elseif ( $style == "Heading 4" ) { openTag( 'h4' ); }elseif ( $style == "Author" ) { if ( inTag('center') == 0 ) { openTag( 'center'); } }elseif ( $style == "Warning" ) { openTag( 'font', "color=\"#0000ff\" face=\"Monospaced\"" ); }elseif ( $style == "Error" ) { openTag( 'font', "color=\"#ff00ff\" face=\"monospace\"" ); }elseif ( $style == "Maple Input" ) { openTag( 'strong' ); openTag( 'font', "color=\"#ff0000\" face=\"Monospaced\""); }elseif ( $style == "Maple Plot" ) { openTag( 'center' ); }elseif ( $style == "2D Output" ) { openTag( 'center' ); }elseif( $style == "Bullet Item" ) { openTag( 'li' ); }elseif( $style == "Line Printed Output" ) { openTag( 'font', "color=\"#0000ff\" face=\"monospace\"" ); }else{ } } } function startElement($parser, $name, $attrs) { global $plotWidth; global $plotHeight; global $plotType; global $output; global $inTag; global $attributes; global $hideInput; global $hideOutput; global $inlineOutput; global $hidden; global $gotDisplayEqn; global $maxWidth; global $maxHeight; if ( $name == "STYLES" ) { openTag( 'styles', "", 0 ); } elseif ( $name == "TEXT-FIELD" && inTag('styles') == 0 ) { //echo "

io $inlineOutput intag ". inTag('output'). "

"; openTag('text-field', "", 0 ); if( inTag('group' ) == 0 ) { if ( inTag('p') != 0 ) { closeSpecificTag('p'); } openTag('p'); } if ( $inlineOutput != 1 && $hidden==0 ) { setStyles($attrs); } if ( array_key_exists('PROMPT', $attrs ) && ( $attributes['group'] == "code" || inTag('presblock') == 0 ) ) { $output .= $attrs['PROMPT']; } }elseif( $name == "FONT" && inTag('styles') == 0 ) { if ( $inlineOutput != 1 || inTag('output') == 0 ) { setStyles($attrs); } if ( array_key_exists('BOLD', $attrs ) && $attrs['BOLD'] == "true" ) { openTag( 'strong' ); } if ( array_key_exists('ITALIC', $attrs ) && $attrs['ITALIC'] == "true" ) { openTag( 'i' ); } }elseif( $name == "PLOT" ) { // printElement($name, $attrs ); openTag('plot', "", 0 ); $plotWidth = $attrs['WIDTH']; if ( $plotWidth > $maxWidth ) { $plotWidth = $maxWidth; } $plotHeight = $attrs['HEIGHT']; if ( $plotHeight > $maxHeight ) { $plotHeight = $maxHeight; } if ( $attrs['TYPE'] == "two-dimensional" ) { $plotType = 2; }else{ $plotType = 3; } }elseif( $name == "EC-PLOT" ) { //

uid == 0 ) { $dest = $_SERVER['REQUEST_URI']; ?> Please log in to access this page. 0) { $output .= form_textfield(t('Username'), 'name', $edit['name'], 30, 64, t('Enter your %s username, or an ID from one of our affiliates: %a.', array('%s' => variable_get('site_name', 'local'), '%a' => implode(', ', user_auth_help_links())))); } else { $output .= form_textfield(t('Username'), 'name', $edit['name'], 30, 64, t('Enter your %s username.', array('%s' => variable_get('site_name', 'local')))); } $output .= form_password(t('Password'), 'pass', $pass, 30, 64, t('Enter the password that accompanies your username.')); $output .= form_submit(t('Log in')); return form($output, 'post', url("user/login?destination=$dest")); } $serverpath = "http://beta.mapleprimes.com/files/"; $uploaddir = '/srv/www/htdocs/drupal/files/'; function ftpMaplenet( $localpath, $filename ) { $maplenet_settings['maplenet_ftp_server'] = "maplenet.maplesoft.com"; $maplenet_settings['maplenet_server_name'] = "maplenet.maplesoft.com"; $maplenet_settings['maplenet_ftp_root'] ="mapleprimes"; $maplenet_settings['maplenet_ftp_login']="primesftp"; $maplenet_settings['maplenet_ftp_passwd'] = "dxsjmk56"; $maplenet_settings['maplenet_max_file_size'] = 100000; $dir=$maplenet_settings['maplenet_ftp_root']; $ftp=new ftp_communication($maplenet_settings['maplenet_ftp_server'], $maplenet_settings['maplenet_ftp_login'], $maplenet_settings['maplenet_ftp_passwd'], $maplenet_settings['maplenet_server_name']); // $ftp->change_directory($maplenet_settings['maplenet_ftp_root']); // $res=$ftp->change_directory($dir, false); /* if(!$res) { $ftp->create_directory($dir); $ftp->change_directory($dir); } */ //$ftp->upload_file($dir.'/'.$file, $_FILES['userfile']['tmp_name'], FTP_BINARY); $ftp->upload_file($dir.'/'.$filename, $localpath, FTP_BINARY); // @unlink($_FILES['userfile']['tmp_name']); $ftp->close_ftp_connection(); } $me = $_SERVER['REQUEST_URI']; if ($_SERVER['REQUEST_METHOD'] == 'POST' ) { // The user got here by submitting a form, process it $fileName = basename($_FILES['userfile']['name']); $fileError = basename($_FILES['userfile']['error']); $newName = $user->uid. "_". $fileName; $uploadfile = $uploaddir . $newName; //echo "

$uploadfile

"; if ( $fileName == "" ) { echo "

Upload error. Perhaps the file is too large

"; }elseif($_FILES['userfile']['size'] > 200000 ) { echo "File size cannot exceed 200000 bytes."; }else{ $extensions = array("doc", "dvi", "eps", "gif", "gz", "hdb", "html", "ind", "jpeg", "jpg", "lib", "m", "mla", "mm", "mpl", "mw", "mws", "pdf", "png", "ppt", "ps", "tar", "tex", "tgz", "txt", "xls", "zip" ); $ext=substr(strrchr($_FILES['userfile']['name'], "."), 1); $ext=strtolower($ext); if(!in_array( $ext, $extensions ) ) { echo "

File is not of an allowed type, it has type, $ext
Allowed types:"; foreach( $extensions as $curext ) { echo "$curext, "; } echo "

"; }elseif ( move_uploaded_file($_FILES['userfile']['tmp_name'], $uploadfile ) ) { if ( $ext == "mw" ) { ftpMaplenet( $uploadfile, $newName); } $query = "INSERT INTO filemanager (filename, userid, ext) VALUES ('$newName','". $user->uid. "', '$ext')"; // echo $query; mysql_query($query); //$data = $_POST["userfile"]; }elseif ( $fileError == UPLOAD_ERR_NO_FILE ) { echo "

Please give a filename

"; } else { echo "

Invalid file, permission denied

"; } } } if ( isset($_GET['id']) ) { $id = $_GET['id']; /* $query="SELECT * FROM filemanager WHERE fileid = $id"; $result=mysql_query($query); $formfilename=mysql_result($result,$i,"filename"); $formname=mysql_result($result,$i,"name"); $formtype=mysql_result($result,$i,"type"); //Remove this element so we just read it when it is submitted $query="DELETE FROM filemanager WHERE fileid = $id"; $result=mysql_query($query); */ } else { $formfilename=""; $formname=""; $formtype=0; } $by = "fileid"; $order= "DESC"; if ( isset($_GET['by']) and strcmp($_GET['by'], "filename" ) == 0) { $by = "filename"; $order = "ASC"; } if ( isset($_GET['order']) and strcmp($_GET['order'], "asc") == 0 ) { $order = "ASC"; } if ( isset($_GET['order']) and strcmp($_GET['order'], "desc") == 0 ) { $order = "DESC"; } $query="SELECT * FROM filemanager WHERE userid='".$user->uid. "' ORDER BY $by $order"; $result=mysql_query($query); $num=mysql_numrows($result); //mysql_close(); ?>

This site lets you enter your birthday as a sequence of numbers and it checks to see if that sequence of digits exists in the first 1254543 digits of Pi. Mine (12221982) wasn't in it, Maybe yours is. You can also enter any other sequence of digits to see if they exist as well. It probably would be simple to do this in Maple. Maybe it would work even better. Here is a challenge then, write a Maple application that does the same thing but to a greater number of digits. Link Via (CowPi)