1*cdf0e10cSrcweir /************************************************************************* 2*cdf0e10cSrcweir * 3*cdf0e10cSrcweir * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 4*cdf0e10cSrcweir * 5*cdf0e10cSrcweir * Copyright 2000, 2010 Oracle and/or its affiliates. 6*cdf0e10cSrcweir * 7*cdf0e10cSrcweir * OpenOffice.org - a multi-platform office productivity suite 8*cdf0e10cSrcweir * 9*cdf0e10cSrcweir * This file is part of OpenOffice.org. 10*cdf0e10cSrcweir * 11*cdf0e10cSrcweir * OpenOffice.org is free software: you can redistribute it and/or modify 12*cdf0e10cSrcweir * it under the terms of the GNU Lesser General Public License version 3 13*cdf0e10cSrcweir * only, as published by the Free Software Foundation. 14*cdf0e10cSrcweir * 15*cdf0e10cSrcweir * OpenOffice.org is distributed in the hope that it will be useful, 16*cdf0e10cSrcweir * but WITHOUT ANY WARRANTY; without even the implied warranty of 17*cdf0e10cSrcweir * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18*cdf0e10cSrcweir * GNU Lesser General Public License version 3 for more details 19*cdf0e10cSrcweir * (a copy is included in the LICENSE file that accompanied this code). 20*cdf0e10cSrcweir * 21*cdf0e10cSrcweir * You should have received a copy of the GNU Lesser General Public License 22*cdf0e10cSrcweir * version 3 along with OpenOffice.org. If not, see 23*cdf0e10cSrcweir * <http://www.openoffice.org/license.html> 24*cdf0e10cSrcweir * for a copy of the LGPLv3 License. 25*cdf0e10cSrcweir * 26*cdf0e10cSrcweir ************************************************************************/ 27*cdf0e10cSrcweir package ifc.sheet; 28*cdf0e10cSrcweir 29*cdf0e10cSrcweir import com.sun.star.container.XIndexAccess; 30*cdf0e10cSrcweir import com.sun.star.sheet.GoalResult; 31*cdf0e10cSrcweir import com.sun.star.sheet.XGoalSeek; 32*cdf0e10cSrcweir import com.sun.star.sheet.XSpreadsheet; 33*cdf0e10cSrcweir import com.sun.star.sheet.XSpreadsheetDocument; 34*cdf0e10cSrcweir import com.sun.star.sheet.XSpreadsheets; 35*cdf0e10cSrcweir import com.sun.star.table.CellAddress; 36*cdf0e10cSrcweir import com.sun.star.uno.UnoRuntime; 37*cdf0e10cSrcweir import lib.MultiMethodTest; 38*cdf0e10cSrcweir import lib.StatusException; 39*cdf0e10cSrcweir 40*cdf0e10cSrcweir /** 41*cdf0e10cSrcweir * 42*cdf0e10cSrcweir */ 43*cdf0e10cSrcweir public class _XGoalSeek extends MultiMethodTest { 44*cdf0e10cSrcweir public XGoalSeek oObj = null; 45*cdf0e10cSrcweir XSpreadsheet xSheet = null; 46*cdf0e10cSrcweir CellAddress aFormula = null; 47*cdf0e10cSrcweir CellAddress aValue = null; 48*cdf0e10cSrcweir 49*cdf0e10cSrcweir public void before() { 50*cdf0e10cSrcweir Exception ex = null; 51*cdf0e10cSrcweir // get two sheets 52*cdf0e10cSrcweir try { 53*cdf0e10cSrcweir XSpreadsheetDocument xSpreadsheetDocument = (XSpreadsheetDocument) 54*cdf0e10cSrcweir UnoRuntime.queryInterface(XSpreadsheetDocument.class, oObj); 55*cdf0e10cSrcweir XSpreadsheets oSheets = xSpreadsheetDocument.getSheets(); 56*cdf0e10cSrcweir XIndexAccess oIndexSheets = (XIndexAccess) UnoRuntime.queryInterface( 57*cdf0e10cSrcweir XIndexAccess.class, oSheets); 58*cdf0e10cSrcweir xSheet = (XSpreadsheet) UnoRuntime.queryInterface( 59*cdf0e10cSrcweir XSpreadsheet.class, oIndexSheets.getByIndex(1)); 60*cdf0e10cSrcweir } 61*cdf0e10cSrcweir catch(com.sun.star.lang.IndexOutOfBoundsException e) { 62*cdf0e10cSrcweir ex = e; 63*cdf0e10cSrcweir } 64*cdf0e10cSrcweir catch(com.sun.star.lang.WrappedTargetException e) { 65*cdf0e10cSrcweir ex = e; 66*cdf0e10cSrcweir } 67*cdf0e10cSrcweir catch(java.lang.NullPointerException e) { 68*cdf0e10cSrcweir ex = e; 69*cdf0e10cSrcweir } 70*cdf0e10cSrcweir if (ex != null) { 71*cdf0e10cSrcweir throw new StatusException("Could not get a sheet.", ex); 72*cdf0e10cSrcweir } 73*cdf0e10cSrcweir 74*cdf0e10cSrcweir // set value and formula 75*cdf0e10cSrcweir try { 76*cdf0e10cSrcweir xSheet.getCellByPosition(3, 4).setValue(9); 77*cdf0e10cSrcweir xSheet.getCellByPosition(3, 5).setFormula("= SQRT(D5)"); 78*cdf0e10cSrcweir aValue = new CellAddress((short)1, 3, 4); 79*cdf0e10cSrcweir aFormula = new CellAddress((short)1, 3, 5); 80*cdf0e10cSrcweir } 81*cdf0e10cSrcweir catch(Exception e) { 82*cdf0e10cSrcweir throw new StatusException("Could not get set formulas on the sheet.", e); 83*cdf0e10cSrcweir } 84*cdf0e10cSrcweir } 85*cdf0e10cSrcweir 86*cdf0e10cSrcweir public void _seekGoal() { 87*cdf0e10cSrcweir boolean result = true; 88*cdf0e10cSrcweir double divergence = 0.01; 89*cdf0e10cSrcweir GoalResult goal = oObj.seekGoal(aFormula, aValue, "4"); 90*cdf0e10cSrcweir log.println("Goal Result: " + goal.Result + " Divergence: " + goal.Divergence); 91*cdf0e10cSrcweir result &= goal.Divergence < divergence; 92*cdf0e10cSrcweir result &= goal.Result > 16 - divergence || goal.Result < 16 + divergence; 93*cdf0e10cSrcweir 94*cdf0e10cSrcweir goal = oObj.seekGoal(aFormula, aValue, "-4"); 95*cdf0e10cSrcweir log.println("Goal Result: " + goal.Result + " Divergence: " + goal.Divergence); 96*cdf0e10cSrcweir result &= goal.Divergence > 1/divergence; 97*cdf0e10cSrcweir result &= goal.Result < divergence || goal.Result > -divergence; 98*cdf0e10cSrcweir 99*cdf0e10cSrcweir // just curious: let goal seek find a limiting value 100*cdf0e10cSrcweir try { 101*cdf0e10cSrcweir xSheet.getCellByPosition(3, 4).setValue(0.8); 102*cdf0e10cSrcweir xSheet.getCellByPosition(3, 5).setFormula("= (D5 ^ 2 - 1) / (D5 - 1)"); 103*cdf0e10cSrcweir } 104*cdf0e10cSrcweir catch(Exception e) {} 105*cdf0e10cSrcweir goal = oObj.seekGoal(aFormula, aValue, "2"); 106*cdf0e10cSrcweir log.println("Goal Result: " + goal.Result + " Divergence: " + goal.Divergence); 107*cdf0e10cSrcweir result &= goal.Divergence < divergence; 108*cdf0e10cSrcweir result &= goal.Result > 16 - divergence || goal.Result < 16 + divergence; 109*cdf0e10cSrcweir 110*cdf0e10cSrcweir tRes.tested("seekGoal()", result); 111*cdf0e10cSrcweir } 112*cdf0e10cSrcweir } 113