8eeadbecce
This is the example use in optimization site: GUIDES/Introduction/GetStarted/<lang>/RunningProgram
38 lines
1.2 KiB
Forth
38 lines
1.2 KiB
Forth
// Copyright 2018 Google LLC
|
|
// Licensed under the Apache License, Version 2.0 (the "License");
|
|
// you may not use this file except in compliance with the License.
|
|
// You may obtain a copy of the License at
|
|
//
|
|
// http://www.apache.org/licenses/LICENSE-2.0
|
|
//
|
|
// Unless required by applicable law or agreed to in writing, software
|
|
// distributed under the License is distributed on an "AS IS" BASIS,
|
|
// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
// See the License for the specific language governing permissions and
|
|
// limitations under the License.
|
|
|
|
// [START program]
|
|
open System
|
|
open Google.OrTools.FSharp
|
|
open Google.OrTools.LinearSolver
|
|
|
|
let SimpleProgram =
|
|
let svr = Solver.CreateSolver("SimpleProgram", "LinearProgramming.GLOP")
|
|
|
|
// Create the variable x and y.
|
|
let x = svr.MakeNumVar(0.0, 1.0, "x")
|
|
let y = svr.MakeNumVar(0.0, 2.0, "y")
|
|
// Create the objective function, x + y.
|
|
let objective = svr.Objective()
|
|
objective.SetCoefficient(x, 1)
|
|
objective.SetCoefficient(y, 1)
|
|
objective.SetMaximization()
|
|
// Call the solver and display the results.
|
|
svr.Solve()
|
|
printfn "Solution:"
|
|
printfn "x = %f" (x.SolutionValue())
|
|
printfn "y = %f" (y.SolutionValue())
|
|
|
|
SimpleProgram
|
|
// [END program]
|